Dim xlsPath As String
xlsPath = "C:"
Workbooks(xlsPath & "Output.xls").Sheets("Output").Range("B2:B6").Copy
Аз се опитвам по-горе код за това, но получаване на грешка.
Отговори:
0 за отговор № 1За да препратите към работната книга xlsPath & "Output.xls", тя вече трябва да бъде отворена в Excel. Това е обяснено в дефиницията на обекта на работната книга тук.
... работна книга трябва вече да е отворена в Microsoft Excel.
Това, което вероятно искате да направите, е да използвате функцията ExecuteExcel4Macro, както е отговорил преди това тук.
0 за отговор № 2
Решен - Опитах се под код, за да имате достъп до данни, без да отваряте друг.
`Application.ScreenUpdating = False Работни книги.Отворете името на файла: = "C: Output.xls" Работни книги ( "Input.xls"). Работни листове ( "ABC"). Activate
Работни книги ("Output.xls") Затворете SaveChanges: = False`