Excel合并，VBA代码，最后一列填充文件名

想合并很多excel表格，搜索了下论坛，看到很多大佬们的作品，但是我想在第一列显示合并的excel名称，寻找一圈没有找到，因此在该链接下的宏上填写了一些。
下载链接：把多个EXCEL文件合并成一个文件_excel多个文件合并成一个文件-C/C++文档类资源-CSDN下载该宏可以很好的应用.xls文件。

很遗憾我没学过vba，只能照猫画虎，excel文件名在最后一列，剪切至第一列即可。在博客存一下档，以待用时自取，如果可以直接第一行显示文件名，请大佬赐教。

1 ，处理前

2，处理后

3，应用方法

在待合并的excel文件下，

新建excel，sheet页表处右键插入代码，复制，运行

Sub 合并当前目录下所有工作簿的全部工作表()
Dim MyPath, MyName, AWbName
Dim Wb As Workbook, WbN As String
Dim G As Long
Dim Num As Long
Dim BOX As String
Application.ScreenUpdating = False
MyPath = ActiveWorkbook.Path
MyName = Dir(MyPath & "\" & "*.xls")
AWbName = ActiveWorkbook.Name
Num = 0
Do While MyName <> ""
If MyName <> AWbName Then
Set Wb = Workbooks.Open(MyPath & "\" & MyName)
Num = Num + 1
With Workbooks(1).ActiveSheet
.Cells(.Range("h65536").End(xlUp).Row + 1, 30) = Split(MyName)
.Cells(.Range("B65536").End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4)
For G = 1 To Sheets.Count
Wb.Sheets(G).UsedRange.Copy .Cells(.Range("B65536").End(xlUp).Row + 1, 1)
Next
WbN = WbN & Chr(13) & Wb.Name
Wb.Close False
End With
End If
MyName = Dir
Loop
Range("B1").Select
Application.ScreenUpdating = True
MsgBox "共合并了" & Num & "个工作薄下的全部工作表。如下：" & Chr(13) & WbN, vbInformation, "提示"
End Sub

Excel合并，VBA代码，最后一列填充文件名相关推荐

查询时拼接两列数据_如何用VBA代码查询两列数据差异？
爱就一个字,我只说一次-- 北京市第三交通委提醒您:代码千万条,注释第一条,命名不规范,修订两行泪-- 咳,给大家拜晚年了,再提前祝大家元宵快乐-- 我们今天和大家分享的内容是如何用VBA代码查询两列 ...
python打开excel执行vba代码_“Python替代Excel Vba”系列（终）：vba中调用Python
请关注本号,后续会有更多相关教程. 系列文章学Python还不会处理Excel数据?带你用pandas玩转各种数据处理"Python替代Excel Vba"系列(二):panda ...
python和vba操作excel_python调用excel中VBA代码
python中调用excel中的VBA代码,本机需要安装python以及该python版本对应的"pywin32-214.win32-py2.5.exe" #!/usr/bin/e ...
Excel使用VBA代码，每隔m行插入n行(可以是n行空白行，也可以是n行经复制的固定内容行)
对于这个需求,本来是想用openpyxl,毕竟更熟悉Python,上网搜了之后,发现有更简单的方法VBA 例如要在Excel表进行处理,每隔100行就要插入8行一样的固定的内容下面展示一些 VBA代 ...
[VBA]EXCEL同工作簿中多工作表合并VBA代码
代码分为三部分: 第一部分是新建一个汇总的工作表,并重新自定义命名: 第二部分是逐一将各个工作表复制粘贴到汇总工作表中: 第三部分为提示,即当合并工作完成后弹出提示. 代码如下: Sub Comb() ...
python打开excel执行vba代码_python可以添加，运行和删除VBA宏以实现excel而无需中间保存步骤吗？...
我有一个长期运行的python管道,它生成一个pandas数据帧.简而言之,我想:在excel中显示pandas数据帧添加并运行VBA宏删除VBA宏并将(新格式化的)输出保存为 .xslx 挑战在 ...
java poi excel合并单元格相同的列以及在有父级约束条件下合并二级列
import org.apache.poi.ss.usermodel.Sheet; import org.apache.poi.ss.util.CellRangeAddress;public clas ...
Excel 2010 VBA 入门 032 将列进行分组
目录 Columns对象和Rows对象单列和单行的表示多列和多行的表示 Group方法和Ungroup方法单元格对象的EntireColumn属性和EntireRow属性单元格区域的Colum ...
Word合并VBA代码
Sub DocMerge() ''' 合并多个文档 '''用法:先创建一个目标文档,依次加入源文件,最后保存 '''by:CMooon '''2012.02.26Dim myDialog As Fil ...

Excel合并，VBA代码，最后一列填充文件名

Excel合并，VBA代码，最后一列填充文件名相关推荐

最新文章

热门文章