Я немного пытаюсь скопировать ячейки из одного Excel в другой файл Excel, используя другое программное обеспечение. У меня есть следующий код (который я позаимствовал из этого потока ) здесь:
Set objExcel = CreateObject("Excel.Application")
' Variables passed on from a software
' vTempRange is "A2:D14" and vFinalRange is something similar
vTempRange = WScript.Arguments.Item(0)
vFinalRange = WScript.Arguments.Item(1)
vReport = WScript.Arguments.Item(2)
' Open the workbook
Set x = Workbooks.Open("C:\sample.xlsx")
Set y = Workbooks.Open("C:\Final.xlsx")
' Set to True or False, whatever you like
objExcel.Visible = True
' Select the range on Sheet1 you want to copy
x.Worksheets("Sheet1").Range(vTempRange).Copy
' Paste it on Sheet2, starting at A1
y.Worksheets(vReport).Range(vFinalRange).PasteSpecial
' Activate Sheet2 so you can see it actually pasted the data
y.Worksheets(vReport).Activate
Однако, это возвращает мне ошибку, необходимую для объекта 424, при запуске через другое программное обеспечение. Кто-нибудь может дать мне несколько советов или решений для этого? Спасибо!