我需要编写一个MACRO,将特定工作表中的表复制到主工作簿中的第一个空行中的特定工作表(工作表3) .

理想情况下,我希望MACRO适用于特定文件夹中的所有文件 . 从不同的工作簿中提取一个名为“Sheet 3”的工作表 . (“表3”只是一个占位符)

这是我到目前为止:

Sub Master()
Application.ScreenUpdating = False
Dim erow

Workbooks.Open Filename:= "C:\Example\File.xlsx"
Sheets("Sheet 3").Select
Range("A2").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
ActiveWorkbook.Close

Workbooks("MASTER").Sheets("Sheet 3").Activate 
'MASTER is the name of the Master Workbook
erow = Sheets("Sheet 3").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row

Selection.Paste 
'This is where the MACRO gives a "Run-time error '438': Object doesn't support
'this property or method"

Application.ScreenUpdating = True
End Sub

任何帮助,将不胜感激!