VBA学习笔记1：将同个文件夹中的工作簿汇总为一个工作簿，并建立目录超链接

1、将文件夹中的xlsx文件名复制到新工作簿；
2、将文件夹中的xlsx数据簿中的sheet复制到新表并重命名；
3、插入超链接。

效果如下：

代码执行前,有3个工作簿：

执行后，3个工作簿汇总到1个新的工作簿中，并插入超链接：

代码如下：

Sub 汇总文件夹数据()
'遍历文件夹数据表，并复制表名
Dim file$ 'file是变量
Dim num%
Dim sht As Worksheet
Dim k%
Application.DisplayAlerts = False '当删除sheet时不再弹出弹框
Application.ScreenUpdating = False '屏幕不再闪烁
For Each sht In ThisWorkbook.Worksheets '该循环是为了删除新表中的其他数据表
If sht.Name <> "sheet1" Then '仅保留了sheet1sht.Delete
End If
Next sht
file = Dir(ThisWorkbook.Path & "\*.xlsx") '遍历文件夹下后缀为xlsx的文件
Range("a1:a1048576").Clear '清除sheet1中的内容
[a1] = "班级" 'a列用来存储各文件的文件名，a1为列名
Donum = num + 1 '因为num默认为0，所以+1k = k + 1 'k为了后面新建sheet时引用sheet（k），以防新sheet顺序混乱Worksheets("sheet1").Cells(num + 1, 1) = file '将xlsx的文件名1赋值为a2Workbooks.Open ThisWorkbook.Path & "\" & file '打开文件1ActiveWorkbook.Sheets(1).Copy after:=ThisWorkbook.Sheets(k) '将文件1复制到sheet1后面的sheet中ActiveSheet.Name = file '给新的sheet明明为fileWorkbooks(ThisWorkbook.Path & "\" & file).Close '关闭文件夹中的工作簿ThisWorkbook.Worksheets("sheet1").Hyperlinks.Add  anchor:=ThisWorkbook.Worksheets("sheet1").Cells(num + 1, 1), Address:="", SubAddress:="'" & ThisWorkbook.Worksheets(file).Name & "'!a1", ScreenTip:="", TextToDisplay:=file '创建超链接,连接的地址为file名字的sheet的a1单元格，对应的超链接名字为filefile = Dir '循环文件夹中的下一个xlsx
Loop Until file = "" '直到文件遍历完结束
End Sub

欢迎大家批评指正！谢谢！

VBA学习笔记1：将同个文件夹中的工作簿汇总为一个工作簿，并建立目录超链接相关推荐

python学习笔记9.2-文件及文件夹操作
本文主要介绍python对文件以及文件夹的操作,主要涉及到文件的创建.读取.文件内容的修改.删除,文件夹的索引.目录的判断等等.此节内容非常重要,是以后编程的基础.python文件夹和文件的操作主要借 ...
AndroidStudio_android中实现对properties文件的读写操作_不把properties文件放在assets文件夹中_支持读写---Android原生开发工作笔记238
这个东西还挺麻烦,因为是android中,我们一般把文件放到assets文件夹中去,但是实际上,这个raw文件夹和assets文件夹是只读的,对,就是只读的只能读取,不能写入,所以一定要把文件写入到 ...
基于python实现将一个文件夹中的图片移动到另一个文件夹
深度学习时,往往需要划分训练集.测试集以及验证集.在之前,我已经介绍了利用keras中的ImageDataGenerator方法实现数据集的划分.但是原文件夹中的数据,并没有真正的划分到两个文件夹中. ...
Python 学习笔记（2）创建文件夹
目的:在指定路径下创建一个文件夹: 步骤: 1.先确定路径和创建的文件夹的名字,路径可以在工程下的一个名称为File的文件夹下面,需要新建的文件夹名称为当前的时间: 这边需要使用两个Python的库 ...
如何将文件夹中的图片名字提取到一个txt文档上
得到的文档只有全部图片的名字 1 先建一个.txt 文件 2 在文件中写进代码 @echo off dir /b /on >list.txt 保存,把后缀名.txt 改成 .bat 3 把这个b ...
将一个文件夹中的所有图片移到另外一个文件夹中，包含二级文件夹中的
# coding=utf-8 import os import shutil#目标文件夹,此处为相对路径,也可以改为绝对路径 determination = '/Users/huhao/Downloa ...
VBA学习笔记2：将工作簿的表格拆分为工作簿
VBA学习笔记2:将工作簿的表格拆分为工作簿 1.判断原有工作簿的sheet是否需要拆分: 2.如需拆分则创建新表: 3.将原sheet复制到新建的工作簿中. 效果如下: 代码执行前,有1个工作簿,需 ...
Python读取指定文件夹中的所有图片并保存
事先说明:本文所有灵感来源于博客python读取文件夹下所有图片在复现的基础之上作了一些修改,加入了一些自己的心得体会: 改进: 1.原博客要求所读取文件夹与python文件在同一目录下,这里进行了 ...
使用Python读取文件夹中的图片
文章目录 Python创建新的文件夹 Python读取文件夹中的图片内容以及存取一个文件夹中含有大量的图片文件,jpg格式和png格式的.需要从中选出一些比较适合电脑分辨率的,也就是宽度大于高度 ...

VBA学习笔记1：将同个文件夹中的工作簿汇总为一个工作簿，并建立目录超链接

VBA学习笔记1：将同个文件夹中的工作簿汇总为一个工作簿，并建立目录超链接

效果如下：

代码如下：

VBA学习笔记1：将同个文件夹中的工作簿汇总为一个工作簿，并建立目录超链接相关推荐

最新文章

热门文章