数据进入错误的工作簿

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

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

@Nathan_Sav 注意到问题出在哪里，但不知道问题到底是什么。

你还缺一个dot from 单元格（行计数，“b”）。如果没有前面的点，就好像您没有使用With，参考活动表仅范围。

我相信这应该有效：

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

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