Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/15.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
VBA Excel将数据从特定工作表复制到另一工作簿中的特定工作表_Vba_Excel - Fatal编程技术网

VBA Excel将数据从特定工作表复制到另一工作簿中的特定工作表

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

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

理想情况下,我希望宏应用于特定文件夹中的所有文件。从不同的工作簿中提取的工作表名为“工作表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

任何帮助都将不胜感激

请看我的答案:答案将主工作簿复制到许多工作簿中。我想做相反的事情,将许多工作簿中的数据复制到一个工作簿中。问题是什么?只需更改4行代码。逻辑也是一样,请你帮我找出要更改的代码行。我还是个新手。。。在过去的一个小时里,我一直在玩弄它,但没有成功。我最终写了自己的。谢谢你的帮助!