从多个工作簿到一个主数据的数据。不匹配错误

内容来源于 Stack Overflow,并遵循CC BY-SA 3.0许可协议进行翻译与使用

  • 回答 (1)
  • 关注 (0)
  • 查看 (17)

我的C:中有一个名为Diesel的文件夹,带有一个zmaster文件和多个包含数据的文件。

zmaster仅包含从A1到P3的标头。意思是我将从A4开始粘贴数据。我的数据文件包含多行。

当我运行以下代码iget类型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行上收到错误

我不知道我错了什么。

提问于
用户回答回答于

你需要在这段代码上添加:ActiveSheet.Paste Destination

这应该是

ActiveSheet.Paste目的地:=

否则它将无法确定或查看应该粘贴的文件。

所属标签

可能回答问题的人

  • 西风

    renzha.net · 站长 (已认证)

    9 粉丝1 提问5 回答
  • uncle_light

    5 粉丝518 提问3 回答
  • 学生

    2 粉丝477 提问3 回答
  • 军哥

    重庆雷驰信息技术有限公司 · 经理 (已认证)

    5 粉丝1 提问3 回答

扫码关注云+社区

领取腾讯云代金券