Доброй ночи форумчане! Не могу понять как правильно под себя адаптировать макрос копирования данных из одной книги в другую, 2 книги с исходными данными и 1 книга которая принимает эти данные, сделал ссылки но нужно чтобы папку можно было копировать с компьютера на компьютера без потери связей. Макрос взял из предыдущего топика, 3 часа бился чтобы он заработал так и не получилось.
Код
Sub Macro1()
Range ("J1:L1").Select
'Sheets("Лист1").Range("B2:D2").SpecialCells(2).Copy
Selection.Copy
ChDir "C:\User\Copy"
Workbooks.Open ThisWorkbook.Path & application.pathseparator & "ДОХОДЫ.xlsm"
Range "A1".Select
ActiveSheet.Paste
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub
Sub Macro2()
Range ("B1:D1").Select
'Sheets("Сводная расходы").Range("B3:D3").SpecialCells(2).Copy
Selection.Copy
ChDir "C:\User\Copy"
Workbooks.Open ThisWorkbook.Path & application.pathseparator & "РАСХОДЫ.xlsm"
Range "A1".Select
ActiveSheet.Paste
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub
Отлично, теперь заработало? кстати, если память не изменяет, то без проверки wb.open будет выдавать ошибку(или предупреждение) при открытии уже открытого документа...
В теме которую указали выше, действительно мне помогли люди добрые!
Код
Sub Macro1()
Range ("J1:L1").Select
Selection.Copy
Workbooks.Open ThisWorkbook.Path & application.pathseparator & "ДОХОДЫ.xlsm"
Range ("A1").Select
ActiveSheet.Paste
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub
Либо:
Код
Sub Macro1()
Workbooks.Open ThisWorkbook.Path & application.pathseparator & "Книга_2.xlsm"
Workbooks("Книга_2.xlsm").worksheets("Имя_Вашего_Листа").Range("J:L").Copy Workbooks("Книга_1.xlsb").WorkSheets("Имя_Вашего_Листа").Range("A1")
End Sub
Sub Macro1()
with Workbooks.Open ThisWorkbook.Path & application.pathseparator & "Книга_2.xlsm"
.worksheets("Имя_Вашего_Листа").Range("J:L").Copy Workbooks("Книга_1.xlsb").WorkSheets("Имя_Вашего_Листа").Range("A1")
.close 0
end with
End Sub