VBA Excel将数据从特定工作表复制到另一工作簿中的特定工作表
我需要编写一个宏,将表格从特定工作表复制到主工作簿中第一个空行的特定工作表(工作表3) 理想情况下,我希望宏应用于特定文件夹中的所有文件。从不同的工作簿中提取的工作表名为“工作表3”。(“第3页”只是一个占位符) 这就是我到目前为止所做的:VBA Excel将数据从特定工作表复制到另一工作簿中的特定工作表,vba,excel,Vba,Excel,我需要编写一个宏,将表格从特定工作表复制到主工作簿中第一个空行的特定工作表(工作表3) 理想情况下,我希望宏应用于特定文件夹中的所有文件。从不同的工作簿中提取的工作表名为“工作表3”。(“第3页”只是一个占位符) 这就是我到目前为止所做的: Sub Master() Application.ScreenUpdating = False Dim erow Workbooks.Open Filename:= "C:\Example\File.xlsx" Sheets("Sheet 3").Sele
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
任何帮助都将不胜感激 请看我的答案:答案将主工作簿复制到许多工作簿中。我想做相反的事情,将许多工作簿中的数据复制到一个工作簿中。问题是什么?只需更改4行代码。逻辑也是一样,请你帮我找出要更改的代码行。我还是个新手。。。在过去的一个小时里,我一直在玩弄它,但没有成功。我最终写了自己的。谢谢你的帮助!