Question

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

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

Answer 1

@Nathan_Sav注意问题所在，但不确定问题是什么..

您从 单元格（RowCount，“b”） 中缺少一个点。如果没有此前的点，就好像您没有使用使用，仅参考 ActiveSheet 范围。

我相信这应该有效：

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

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

Answer 2

Cells(RowCount, "b") = Assignment需要像

一样

With MyData.Worksheets("Sheet1")
    .range("b1").resize(RowCount, 1)= Assignment
End With

不确定调整此粘贴区域的大小。

数据出错了工作簿

2 个答案: