在我的C:目录中有一个名为data的文件夹,其中包含一个zmaster文件和多个包含数据的文件。
zmaster只包含从A1到P3的头部。这意味着我将从A4开始粘贴数据。我的数据文件包含多行。
当我运行下面的代码时,我得到一个类型13错误,类型不匹配:
Sub copyDataFromMultipleWorkbooksIntoMaster()
Dim FolderPath As String, Filepath As String, Filename As String
FolderPath = "C:\Diesel\"
Filepath = FolderPath & "*.xls*"
Filename = Dir(Filepath)
Dim lastrow As Long, lastcolumn As Long
Do While Filename <> ""
Workbooks.Open (FolderPath & Filename)
lastrow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
lastcolumn = ActiveSheet.Cells(1, Columns.Count).End(xlToLeft).Column
Range(Cells(3, 1), Cells(lastrow, lastcolumn)).Copy
Application.DisplayAlerts = False
ActiveWorkbook.Close
erow = Sheet1.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
ActiveSheet.Paste Destination = Worksheets("Concentrado").Range(Cells(erow, 1), Cells(erow, 4))
Filename = Dir
Loop
End Sub
我在ActiveSheet.Paste行上看到错误
我不知道我搞错了什么。
https://stackoverflow.com/questions/54813935
复制相似问题