Здесь я также использую две книги Excel. я хочу вставить из внутреннего файла ввода данных во внутренний файл приемника данных. когда я запускаю приведенные ниже коды с помощью F8 (бег за строкой), он работает отлично. но когда я запускаю назначенный макрос, но он не работает. его ошибка обуви (диапазон методов объекта global не выполнен). эта ошибка отображается в макросе 4 при попытке отладки. Пожалуйста, помогите мне выйти из этой ошибки.
Спасибо.
Sub Copyall()
Workbooks("inward data entry.xlsm").Worksheets("invoice").Range("a1:i46").Copy
Workbooks("inward data receiver.xlsx").Worksheets("receiver").Range("a1:i46").PasteSpecial Paste:=xlPasteValues
Workbooks("inward data receiver.xlsx").Worksheets("receiver").Range("a1:i46").PasteSpecial Paste:=xlPasteFormats
Dim sher As String
Call macro3
Workbooks("inward data receiver.xlsx").Worksheets("receiver").Range("a1:i46").Copy
Call macro4
sehr = Worksheets("receiver").Range("z3").Value
Workbooks("inward data receiver.xlsx").Worksheets(sehr).Range("a1:i46").PasteSpecial Paste:=xlPasteValues
Workbooks("inward data receiver.xlsx").Worksheets(sehr).Range("a1:i46").PasteSpecial Paste:=xlPasteFormats
Workbooks("inward data receiver.xlsx").Worksheets(sehr).Range("a1:i46").Columns.AutoFit
Range("receiver!a1:z47").Clear
End Sub
Sub macro3()
Workbooks("inward data receiver.xlsx").Worksheets("receiver").Range("c12").Copy
Workbooks("inward data receiver.xlsx").Worksheets("receiver").Range("x1").PasteSpecial Paste:=xlPasteValues
Workbooks("inward data receiver.xlsx").Worksheets("receiver").Range("z2") = "=LEFT(receiver!x1,12)"
Workbooks("inward data receiver.xlsx").Worksheets("receiver").Range("z2").Copy
Workbooks("inward data receiver.xlsx").Worksheets("receiver").Range("z3").PasteSpecial Paste:=xlPasteValues
End Sub
Sub macro4()
Workbooks("inward data receiver.xlsx").Sheets.Add.name = Range("receiver!z3")
End Sub