网上找了一个合并EXCEL表的代码,找了一个合并SHEET的代码,合并SHEET可以再个人宏保存,正常使用。但是合并表格的就不行,总再选取的时候只是打开其中的一个表,并不是合并至我新建的这个EXCEL表。求大神指教,万分感谢,代码如下。平时正常使用,就是想快捷一点再查看宏里直接使用,我用的是2016版
Sub CombineWorkbooks()
Dim FilesToOpen, ft
Dim x As Integer
Application.ScreenUpdating = False
On Error GoTo errhandler
FilesToOpen = Application.GetOpenFilename _
(FileFilter:="Micrsofe Excel文件(*.xls), *.xls", _
MultiSelect:=True, Title:="要合并的文件")
If TypeName(FilesToOpen) = "boolean"Then
MsgBox "没有选定文件"
'GoTo errhandler
End If
x = 1
While x <= UBound(FilesToOpen)
Set wk = Workbooks.Open(Filename:=FilesToOpen(x))
wk.Sheets().Move after:=ThisWorkbook.Sheets _
(ThisWorkbook.Sheets.Count)
x = x + 1
Wend
MsgBox "合并成功完成!"
errhandler:
'MsgBox Err.Description
'Resume errhandler
End Sub
|