копировать дату из одной книги excel в другую книгу Excel с нажатием кнопки макроса

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, если вы делаете 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 

Надеется, что это помогает, оставьте комментарий, если вам нужно больше информации