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

Question

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

以下是我的情况：
我有一个100 .xls文件的数据库，我想在一个主文件中复制这些文件的4个细节单元
。产品编号：合并案例（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会在退出时清除剪贴板。