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在退出时会清除剪贴板。