我正在尝试将一个工作簿的范围复制到另一个工作簿。但是,我收到了下标超出范围的运行时错误。这是违规行:
Set wbDest = Workbooks("newFile.xlsx")
我想念什么?
代码
Dim wbDest As Workbook
Dim ws2 As Worksheet
Set myRange = Range("A1", Cells(LastRow, LastCol).Address)' Values retrieved from function
Set wbDest = Workbooks("newFile.xlsx")'both newFile and Thisworkbook stored on my desktop
Set ws2 = wbDest.Sheets("Sheet 1")
ws2.Range("A1") = wsJournals.myRange.Value
当您打开工作簿时,需要确保提供了工作簿的完整路径并也将其打开。以下是语法,
Dim wb As Workbook
Dim ws As Worksheet
Set wb = Workbooks.Open(Filename:="C:\Users\user1\Desktop\Book1.xlsx")
Set ws = wb.Sheets("sheet1")
然后,您可以使用ws
选择特定的单元格并执行其他操作。它为我工作。
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句