Доброго времени суток всем, подскажите пожалуйста , я начинающий специалист в это направлении много не знаю Такой вопрос, есть макрос который собирает данные из мелких отчетов и переносит в главный, теперь вот в чем проблема, эта папка на локальном диске и название папки меняется каждый месяц , например: Февраль отчеты , потом на Март отчеты и т.д. по этому приходится каждый месяц в макросе корректировать путь к папке с файлами, есть ли возможность отредактировать макрос так, чтобы я мог сам файл "Главный отчет" с макросом забросить в папку "Февраль отчеты" и он обновлялся из текущей папки??? Вот мой макрос:
[vba]
Код
Sub Обновление_отчета() Workbooks.Open Filename:="Полный путь к файлу" Workbooks("Сам файл.xls").Worksheets("Лист1").Range("Диап. ячеек от куда коп.").Copy Workbooks("февраль 2016.xls").Activate ActiveWorkbook.Worksheets("Лист1").Range("Диапазон ячеек куда нужно вставить").Select ActiveSheet.Paste Workbooks("01.xls").Close End Sub
[/vba]
Заранее благодарю за помощь))) [moder]Код нужно оформлять тегами (кнопка #). Поправила на первый раз[/moder]
Доброго времени суток всем, подскажите пожалуйста , я начинающий специалист в это направлении много не знаю Такой вопрос, есть макрос который собирает данные из мелких отчетов и переносит в главный, теперь вот в чем проблема, эта папка на локальном диске и название папки меняется каждый месяц , например: Февраль отчеты , потом на Март отчеты и т.д. по этому приходится каждый месяц в макросе корректировать путь к папке с файлами, есть ли возможность отредактировать макрос так, чтобы я мог сам файл "Главный отчет" с макросом забросить в папку "Февраль отчеты" и он обновлялся из текущей папки??? Вот мой макрос:
[vba]
Код
Sub Обновление_отчета() Workbooks.Open Filename:="Полный путь к файлу" Workbooks("Сам файл.xls").Worksheets("Лист1").Range("Диап. ячеек от куда коп.").Copy Workbooks("февраль 2016.xls").Activate ActiveWorkbook.Worksheets("Лист1").Range("Диапазон ячеек куда нужно вставить").Select ActiveSheet.Paste Workbooks("01.xls").Close End Sub
[/vba]
Заранее благодарю за помощь))) [moder]Код нужно оформлять тегами (кнопка #). Поправила на первый раз[/moder]Axeq
Всем бобра
Сообщение отредактировал Manyasha - Среда, 30.03.2016, 14:51
Sub Обновление_отчета() set wb = Workbooks.Open(Filename:=Thisworkbook.path & "\" & "Сам файл.xls") wb.Worksheets("Лист1").Range("Диап. ячеек от куда коп.").Copy Workbooks("февраль 2016.xls").Worksheets("Лист1").Range("Диапазон ячеек куда нужно вставить").Paste wb.Close End Sub
Sub Обновление_отчета() set wb = Workbooks.Open(Filename:=Thisworkbook.path & "\" & "Сам файл.xls") wb.Worksheets("Лист1").Range("Диап. ячеек от куда коп.").Copy Workbooks("февраль 2016.xls").Worksheets("Лист1").Range("Диапазон ячеек куда нужно вставить").Paste wb.Close End Sub