Question

我想通过按下宏按钮将数据从一个excel工作簿复制到另一个excel工作簿（主工作簿）。

Sub CopyInfo（）

On Error GoTo Err_Execute

Sheet1.Range("A1:J75").Copy
Sheet2.Range("A1").Rows("1:1").Insert Shift:=xlDown

Err_Execute：

If Err.Number = 0 Then MsgBox "All have been copied!" Else _

MsgBox Err.Description

End Sub

请协助。

Answer 1

我认为这就是你所追求的，如果你正在做If和ElseIf，你需要告诉它，如果是这样，那么这样做或者如果它不是这个，那么如果是这样做的话。如果需要，我可以更详细地解释这一点。

Sub CopyInfo()

On Error GoTo Err_Execute

Sheet1.Range("A1:J75").Copy
Sheet2.Range("A1").Rows("1:1").Insert Shift:=xlDown

Err_Execute:

If Err.Number = 0 Then

    MsgBox "All have been copied!"

ElseIf Err.Number <> 0 Then

    MsgBox Err.Description

End If

End Sub

希望这有帮助，如果您需要更多信息，请发表评论

使用按下宏按钮将日期从一个excel工作簿复制到另一个excel工作簿

1 个答案: