excel - 从另一个工作簿复制几列到当前工作簿和当前工作表

Question

我想从另一个工作簿复制几列到当前工作簿和当前工作表，但我得到一个下标超出范围错误。我想知道是否有问题

Sub CopyColumns()
Dim SourceRange As Range
Dim DestRange As Range


On Error GoTo myerror
Set SourceRange = Workbooks("Invoice.xlsx").Worksheets("working").Columns("A:G")
Set DestRange = ThisWorkbook.Worksheets("working").Range("A:G")


SourceRange.Copy DestRange


myerror:
If Err > 0 Then MsgBox (Error(Err)), 48, "Error"
End Sub

标签： excelvba

Answer 1

我尝试了这段代码，看起来它可以很好地复制所有内容。可能发生的情况是您的工作表可能有拼写错误。导致该错误的另一件事是您引用的工作表可能被命名为不同或可能具有不同的扩展名。