一系列 Microsoft 試算表軟體,具有可用來對資料進行分析、製圖及通訊的工具
Hi shelbybom
我們搜索了一下, 發現了一篇官方文檔, 和您的問題相似, 您可以參考一下這篇文章中的方法, 看是否可以解決您的問題。 請參考合併多個工作表的資料 (microsoft.com)
除此之外, 您也可以嘗試將要合併的所有文檔放在同一個目錄下, 打開要將其他文檔合併到其中的Excel文檔。 插入一個模板, 並在該模板中輸入以下代碼
Sub GetSheets()
Path = "C:\Users\dt\Desktop\dt kte\"
Filename = Dir(Path & "*.xls")
Do While Filename <> ""
Workbooks.Open Filename:=Path & Filename, ReadOnly:=True
For Each Sheet In ActiveWorkbook.Sheets
Sheet.Copy After:=ThisWorkbook.Sheets(1)
Next Sheet
Workbooks(Filename).Close
Filename = Dir()
Loop
End Sub
然後運行這個模板, 看是否可以解決您的問題。
Regards,
Stacey