作者fish19850104 (chih)
看板Office
标题[算表] 合并多档活页簿vba问题
时间Sun Jun 26 23:24:04 2022
软体: EXCEL
版本: 2019
最近找到网路上分享合并多档案活页簿VBA
不过执行到某行就出错,也搞不懂问题在哪....
请问大神该如何解决
Sub 合并工作簿()
Dim FileOpen
Dim X As Integer
Application.ScreenUpdating = False
FileOpen = Application.GetOpenFilename(FileFilter:="Excel 97-2003 工作簿
(*.xls),*xls,Microsoft Excel档案(*.xlsx),*.xlsx", MultiSelect:=True, Title:="
请选择需要合并的工作簿")
X = 1
If TypeName(FileOpen) = "Boolean" Then
MsgBox "未选择任何档案, 退出."
Exit Sub
End If
While X <= UBound(FileOpen)
Workbooks.Open Filename:=FileOpen(X)
Sheets().Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
X = X + 1
Wend
ExitHandler:
Application.ScreenUpdating = True
Exit Sub
errhadler:
MsgBox Err.Description
End Sub
每当执行至此列就出现错误
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 61.231.66.12 (台湾)
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Office/M.1656257046.A.45E.html
1F:推 chunchanhung: 带入变数 06/27 02:50
2F:→ chunchanhung: Sheets()->sheets(x) 06/27 02:50