Добрый день.
На работе появился процесс, который хочется автоматизировать, но не знаю как.
Есть 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 |