VBA - 打開.xls文件，然後將3個單元格複製到一個主文件夾中.xls文件

Question

我是VBA的noob，我花了半天的時間嘗試在提出此問題之前找到自己的答案。

這裏是我的情況：
我有100 .xls文件的數據庫，我想這些文件的細節4個單元格複製在一個主文件
。產品ID：合併案例（IJK2）
。尺寸1：H71
。尺寸2：J71
。尺寸3：L71

每個文件有產品ID的名稱（.xls的）

這裏是我的VBA代碼是什麼樣子：

Sub LoopThroughDirectory() 
Dim MyFile As String 
Dim erow 
MyFile = Dir("C:\Users\User\Documents\TEST\") 

Do While Len(MyFile) > 0 
If MyFile = "zmaster.xls" Then 
Exit Sub 
End If 

Workbooks.Open (MyFile) 
Range("H71:L71").Copy 
ActiveWorkbook.Close 

erow = Sheet1.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row 
ActiveSheet.Paste Destination:=Worksheets("sheet1").Range(Cells(erow, 1), Cells(erow, 4)) 

MyFile = Dir 

Loop 

End Sub 

它一點兒也不工作..你能幫我修改代碼嗎？

謝謝！

Answer 1

嘗試直到粘貼後才關閉源工作簿。我認爲Excel在退出時會清除剪貼板。