[算表] 合併多檔活頁簿vba問題
軟體: 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://www.ptt.cc/bbs/Office/M.1656257046.A.45E.html
推
06/27 02:50,
1年前
, 1F
06/27 02:50, 1F
→
06/27 02:50,
1年前
, 2F
06/27 02:50, 2F