VBA-打开.xls文件，然后在一个主.xls文件中复制3个单元格

Question

我是VBA的菜鸟，在问这个问题之前，我花了半天的时间尝试自己找到答案。

这是我的情况：
我有一个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在退出时会清除剪贴板。