时间戳

首页 > 解决方案 > 数据进入错误的工作簿

vba - 数据进入错误的工作簿

问题描述

我有一个编码工作簿，用于从中收集信息并将数据传输到摘要工作簿。该代码在收集数据时有效，但它将数据打印到收集数据的工作簿，而不是摘要工作簿。这很奇怪，因为它会打开摘要工作簿，甚至计算行数，因此数据将转到第一个空行。有人可以告诉我我做错了什么吗？

Dim WB1 as workbook
Dim MyData as workbook
Dim Assignment as string
Dim RowCount as integer

Set WB1 = ThisWorkbook
    Assignment = Cells(45, "C")

WB1.Save

Set Mydata= Workbooks.Open (*File path to summary data document*)

MyData.Worksheets("Sheet1").Select
    Worksheets("Sheet1").Range("a1").Select
RowCount = Worksheets("Sheet1").Cells(Rows.Count, "c").End(xlUp).Row + 1

With MyData.Worksheets("Sheet1").Range("A1")
    Cells(RowCount, "b") = Assignment
End With

MyData.Save

End Sub

标签： vbaexcel

解决方案

@Nathan_Sav 注意问题出在哪里，但不完全是问题所在..

您缺少Cells(RowCount, "b")中的一个点。在此之前没有点，就像您没有使用With，仅指ActiveSheet范围。

我相信这应该有效：

With MyData.Worksheets("Sheet1").Range("A1")
    .Cells(RowCount, "b") = Assignment
End With

免责声明：这应该解决您的数据添加到哪个工作簿/工作表，不一定是正确的范围......但它应该让您了解下一步该做什么。希望能帮助到你 ：）

推荐阅读