以下是在VBA中合并当前文件夹下所有Excel表格到一个工作表的代码:
Sub MergeExcelFiles()
Dim path As String
Dim filename As String
Dim wb As Workbook
Dim ws As Worksheet
Dim ws1 As Worksheet
Dim lRow As Long
Application.ScreenUpdating = False
path = ThisWorkbook.Path
filename = Dir(pat