VBA копировать значения в диапазоне ячеек из одной книги эксель в другую
Доброго времени суток! Вопрос к специалистам VBA.
Столкнулся с задачей копировать данные из одной книги в другую. Копируется все хорошо, но хотелось бы заменить ссылку на второй открываемый файл переменными
(вот это:
C:\Накладные\Новая таблица.xls,
на вот так:
C:\переменная1\переменная2), а значения задать в книге1 на листе настройки.
вот код:
Sub import()
Workbooks.Open "C:\Накладные\Новая таблица.xls"
Workbooks("Новая таблица.xls").Sheets("Лист1").Range("D3:BA37").Select
Selection.Copy
Workbooks("Красный5.xlsm").Sheets("Лист1").Activate
Range("A1:BA10000").Cells(3, 3).Activate
ActiveSheet.Paste
Sheets("Лист1").Range("A1").Activate
End Sub
MS, Libreoffice & Google docs
719 постов15K подписчика
Правила сообщества
1. Не нарушать правила Пикабу
2. Публиковать посты соответствующие тематике сообщества
3. Проявлять уважение к пользователям
4. Не допускается публикация постов с вопросами, ответы на которые легко найти с помощью любого поискового сайта.
По интересующим вопросам можно обратиться к автору поста схожей тематики, либо к пользователям в комментариях
Важно - сообщество призвано помочь, а не постебаться над постами авторов! Помните, не все обладают 100 процентными знаниями и навыками работы с Office. Хотя вы и можете написать, что вы знали об описываемом приёме раньше, пост неинтересный и т.п. и т.д., просьба воздержаться от подобных комментариев, вместо этого предложите способ лучше, либо дополните его своей полезной информацией и вам будут благодарны пользователи.
Утверждения вроде "пост - отстой", это оскорбление автора и будет наказываться баном.