有兩個檔案，命名為A和B
目的：想用VBA代碼將A、B兩個檔案夾下的檔案分別合并匯總到一個excel作業簿的A、B作業表下
以下是為匯總A檔案夾下的檔案撰寫的代碼
Sub 匯總A()
Dim myfile, mypath, wb '宣告變數
Application.ScreenUpdating = False '關閉螢屏更新
Sheet1.UsedRange.Offset(1, 0).Clear '清除除表頭之外的所有內容
mypath = "A的路徑" '找到當前作業簿的路徑"
myfile = Dir(mypath & "\*.xlsx*") '遍歷當前檔案夾下的Excel檔案
Do While myfile <> "" '當找到的檔案不為空時
If myfile <> ThisWorkbook.Name Then '當找到的檔案不是當前Excel作業簿時
Set wb = GetObject(mypath & "\" & myfile) '得到dir找到的作業簿的內容，設為wb
With wb.Sheets(1) '對找到的作業簿的sheet1進行操作
'復制wb的sheet1除第一行的所有內容
.UsedRange.Offset(1, 0).Copy Sheet1.Range("A" & Sheet1.UsedRange.Rows.Count + 1)
End With
wb.Close False '關閉wb作業簿且不保存
End If
myfile = Dir '尋找下一個Excel作業簿
Loop
Application.ScreenUpdating = True '恢復螢屏更新
End Sub
求大神幫忙解答一下該如何改代碼
uj5u.com熱心網友回復：
回圈一個個打開，復制全部內容出來。轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/13502.html
標籤：VBA
上一篇：求助
下一篇：求助VBA的資料篩選