Доброе.
Задача следующая: имеется файл с данными и файл с шапкой. Нужно данные перенести в нужные колонки файла с шапкой и потом этот файл сохранить.
Реализация: открываем файл с данными, жмем на выполнение Макрос1 и на выходе, в какой нить заданной папке получаем результат.
Собственно открыть файл то я могу. типа:
Но вот как потом обращаться к ячейкам открытого листа файла с данными не знаю (
Нужно сделать что-то типа
Задача следующая: имеется файл с данными и файл с шапкой. Нужно данные перенести в нужные колонки файла с шапкой и потом этот файл сохранить.
Реализация: открываем файл с данными, жмем на выполнение Макрос1 и на выходе, в какой нить заданной папке получаем результат.
Собственно открыть файл то я могу. типа:
Код |
---|
Dim oAppExcel, oBook, oSheet Set oAppExcel = CreateObject("Excel.Application") Set oBook = oAppExcel.Workbooks.Open("D:\Riz\2020\Приложение 5.xlsx") Set oSheet = oBook.Sheets(1) |
Нужно сделать что-то типа
Код |
---|
Sheets("Лист2").Select Range("C1").Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy oSheet.Select Range("I6").Select ActiveSheet.Paste |