我的代码很简单,但不知道我失败了。请帮助我。它给我错误9。
Sub SendInfoToDifferentWorkBook()
Dim LastRowA As Integer
Dim SKU As Range
LastRowA = Cells(Rows.Count, "A").End(xlUp).Row
Set SKU = Range(Cells(2, "A"), Cells(LastRowA, "A"))
Workbooks("Origin WB".xlsm").Worksheets("Sheet3").SKU.Copy Workbooks("Destiny WB.xlsx").Worksheets("Sheet1").Range("A1")
End Sub
工作簿名称中的空格与此有关吗?
1条答案
按热度按时间htrmnn0y1#
在你的第一个工作簿()你得到了3倍“,它可以从这里来。关于第二个工作簿(“命运WB.xlsx”)你可以尝试设置“以同样的方式。希望它帮助你