VBA本菜单下EXCEL汇总在一张sheet里
2017-01-24 15:08
936 查看
VBA 路径下EXCEL合并
感觉有点一知半解
”’ VBASub 合并当前目录下所有工作簿的全部工作表()
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 //本excel所在路径
MsgBox “MYPATH = ” & MyPath
MyName = Dir(MyPath & “\” & “*.xlsx”) //找到路径下第一个.xlsx文件
MsgBox “MYNAME = ” & MyName
AWbName = ActiveWorkbook.Name //写入excel文件名
Num = 0
Do While MyName <> “”
If MyName <> AWbName Then
Set Wb = Workbooks.Open(MyPath & “\” & MyName)
Num = Num + 1
With Workbooks(1).ActiveSheet
.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 //寻找下一个 excel 文件
Loop
Range(“B1”).Select
Application.ScreenUpdating = True
MsgBox “共合并了” & Num & “个工作薄下的全部工作表。如下:” & Chr(13) & WbN, vbInformation, “提示”
End Sub
”’
相关文章推荐
- 写出了第一个VBA程序了:合并不同的文件到同一张sheet
- SQL.MDB数据库记录Rs导出到Excel.Sheet中代码(VBA+VB.Net)
- Excel VBA-批量将多个sheet表另存为单独的工作薄文件
- EXCEL-VBA:Sheet是否存在、新建Sheet、Sheet改名
- Excel VBA遍历所有sheet创作目录并超链接,无视特殊符号
- Excel VBA 根据日期汇总统计另一字段非重复值的个数
- Read a Text File with VBA in Excel, and Write the Text to a Spreadsheet
- excel中用vba加载宏添加菜单和按钮
- Excel VBA 根据筛选条件自动汇总统计(for 铁虎)
- VBA 汇总指定文件夹下的Excel文件数据
- EXCEL-VBA:引用SHEET中的TextBox1(文本框)的值
- Excel开发(VBA)— 在Excel里自动添加菜单
- Excel VBA将所有Sheet重命名为单元格a1的名称
- Excel VBA - Sheet对象
- Office VBA进阶(二):如何在Access 2007里导入一个Excel sheet表
- 使用VBA从海量Excel文件中模糊获取数据并生成新表(附实例) - (四) 结合病人病例,批量汇总实例
- [vba]PPT中超链接Excel中某个sheet
- excel中 VBA实现 两sheet表间查询赋值应用示例
- EXCEL VBA代码,实现点击Sheet1按钮控件保存不连续单元格的数据到Sheet2中,然后清空输入内容
- 用VBA将多个Excel文件里的数据汇总到一个Excel表