Добрый день.
На работе появился процесс, который хочется автоматизировать, но не знаю как.
Есть 2 книги Excel. Первая с исходной информацией (Сверка), второй - конечный файл (БРЗ). В данных книгах большое количество листов - около 200. Названия этих листов в первой книге такое же как и во второй. В книге "Сверка" есть лист "Перенос в БРЗ". На данной листе указываются технические параметры для работы будущего макроса, а именно:
1. Путь к файлу, в который необходимо перенести данные;
2. Список листов, которые нужно найти в книге "БРЗ". В книге "Сверка" листы называются точно так же. Их количество может увеличиваться или уменьшаться. Порядок так же может меняться;
3. Адреса данных, которые нужно перенести в книгу "БРЗ";
4. Месяц. От Выбора месяца (будет выпадающий список) будет зависеть столбец в файле "БРЗ", в который будут перенесены значения. Другие столбцы должны будут остаться без изменений;
5. Строки в файле "БРЗ", в которых находятся ячейки, в которые нужно вставить данные.
Задача организовать процесс переноса данных из одной книги в другую в строго определенные ячейки.
Прочитал несколько похожих тем, но решить проблему самостоятельно пока не получается.
Использовать связи в данном случае нельзя.
Оба файла прикрепляю.
Пока смог написать только такое:
Спасибо.
На работе появился процесс, который хочется автоматизировать, но не знаю как.
Есть 2 книги Excel. Первая с исходной информацией (Сверка), второй - конечный файл (БРЗ). В данных книгах большое количество листов - около 200. Названия этих листов в первой книге такое же как и во второй. В книге "Сверка" есть лист "Перенос в БРЗ". На данной листе указываются технические параметры для работы будущего макроса, а именно:
1. Путь к файлу, в который необходимо перенести данные;
2. Список листов, которые нужно найти в книге "БРЗ". В книге "Сверка" листы называются точно так же. Их количество может увеличиваться или уменьшаться. Порядок так же может меняться;
3. Адреса данных, которые нужно перенести в книгу "БРЗ";
4. Месяц. От Выбора месяца (будет выпадающий список) будет зависеть столбец в файле "БРЗ", в который будут перенесены значения. Другие столбцы должны будут остаться без изменений;
5. Строки в файле "БРЗ", в которых находятся ячейки, в которые нужно вставить данные.
Задача организовать процесс переноса данных из одной книги в другую в строго определенные ячейки.
Прочитал несколько похожих тем, но решить проблему самостоятельно пока не получается.
Использовать связи в данном случае нельзя.
Оба файла прикрепляю.
Пока смог написать только такое:
| Код |
|---|
Option Explicit
Sub Перенос_данных_в_БРЗ()
Dim oRange As Range
'Указывает путь в файлу БРЗ
Set oRange = Worksheets("ПЕРЕНОС в БРЗ").Range("C2")
'Открываем файл с БРЗ
Workbooks.Open Filename:=oRange
Dim sh As Worksheet
Dim lists As Range
Set lists = Workbooks("Сверка.xlsb").Worksheets("ПЕРЕНОС в БРЗ").Range("C5")
For Each sh In Worksheets
If sh.Name = lists Then Exit For
MsgBox ("Good!")
Next
If sh Is Nothing Then MsgBox "Лист " & lists & " не найден": Exit Sub
End Sub |
