如何用VBA语言将一个文件夹中多个excel表，导入到一个新的excel表的不同sheet里？

Question

不要复制粘贴这种方法，要VBA语言的编码！

Answer 1

Sub fuzhisheet()
Dim 文件类型 As String
Dim 筛选索引 As Integer
Dim 文件名 As Variant
文件类型 = "所有 Microsoft Office Excel 文件 (*.xls;*.xlsx;*.xlsm),*.xls;*.xlsx;*.xlsm," & "所有文件 (*.*),*.*"
筛选索引 = 1
文件名 = Application.GetOpenFilename(filefilter:=文件类型, FilterIndex:=筛选索引, MultiSelect:=True)
Dim wk
For Each f In 文件名

On Error Resume Next
Set wk = Application.Workbooks.Open(f)
Workbooks.Item(2).Sheets(1).Copy after:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
Workbooks.Item(2).Close savechanges:=False
Next
ThisWorkbook.Save
End Sub

'新建一个工作簿,然后运行此代码,会弹出选择文件窗口,你把需要的文件选中,默认是复制所有文件的第一张工作表到新建的本工作表中.

Answer 2

Excelhome有个易用宝插件，有这个功能

Answer 3

遍历工作簿、遍历工作表，表副本复制入新表