Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Работа макроса из текущей папки - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Работа макроса из текущей папки (Макросы/Sub)
Работа макроса из текущей папки
Axeq Дата: Среда, 30.03.2016, 14:47 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 13
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Доброго времени суток всем, подскажите пожалуйста , я начинающий специалист в это направлении много не знаю
Такой вопрос, есть макрос который собирает данные из мелких отчетов и переносит в главный,
теперь вот в чем проблема, эта папка на локальном диске и название папки меняется каждый месяц , например: Февраль отчеты , потом на Март отчеты и т.д.
по этому приходится каждый месяц в макросе корректировать путь к папке с файлами, есть ли возможность отредактировать макрос так, чтобы я мог сам файл "Главный отчет" с макросом забросить в папку "Февраль отчеты" и он обновлялся из текущей папки???
Вот мой макрос:

[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]


Всем бобра

Сообщение отредактировал Manyasha - Среда, 30.03.2016, 14:51
 
Ответить
СообщениеДоброго времени суток всем, подскажите пожалуйста , я начинающий специалист в это направлении много не знаю
Такой вопрос, есть макрос который собирает данные из мелких отчетов и переносит в главный,
теперь вот в чем проблема, эта папка на локальном диске и название папки меняется каждый месяц , например: Февраль отчеты , потом на Март отчеты и т.д.
по этому приходится каждый месяц в макросе корректировать путь к папке с файлами, есть ли возможность отредактировать макрос так, чтобы я мог сам файл "Главный отчет" с макросом забросить в папку "Февраль отчеты" и он обновлялся из текущей папки???
Вот мой макрос:

[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
Дата добавления - 30.03.2016 в 14:47
KuklP Дата: Среда, 30.03.2016, 14:59 | Сообщение № 2
Группа: Проверенные
Ранг: Старожил
Сообщений: 1998
Репутация: 436 ±
Замечаний: 0% ±

thisworkbook.path


Ну, с НДС и мы чего-то стoим! kuklp@mail.ru
WM Z206653985942, R334086032478, U238399322728
 
Ответить
Сообщениеthisworkbook.path

Автор - KuklP
Дата добавления - 30.03.2016 в 14:59
Axeq Дата: Четверг, 31.03.2016, 14:00 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 13
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
KuklP, спасибо бльшое, если можете по подробнее, что на что заменить, а то до конца не понял :'( :'( :'( :'(


Всем бобра
 
Ответить
СообщениеKuklP, спасибо бльшое, если можете по подробнее, что на что заменить, а то до конца не понял :'( :'( :'( :'(

Автор - Axeq
Дата добавления - 31.03.2016 в 14:00
Manyasha Дата: Четверг, 31.03.2016, 14:27 | Сообщение № 4
Группа: Модераторы
Ранг: Старожил
Сообщений: 1586
Репутация: 662 ±
Замечаний: 0% ±

Excel 2007, 2010
что на что заменить
путь к папке

И можно обойтись без Activate и Select
[vba]
Код
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
[/vba]


marinamorozova_box@mail.ru
ЯД: 410013299366744 WM: R193491431804
 
Ответить
Сообщение
что на что заменить
путь к папке

И можно обойтись без Activate и Select
[vba]
Код
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
[/vba]

Автор - Manyasha
Дата добавления - 31.03.2016 в 14:27
_Boroda_ Дата: Четверг, 31.03.2016, 14:29 | Сообщение № 5
Группа: Модераторы
Ранг: Экселист
Сообщений: 9362
Репутация: 3935 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Примерно так
[vba]
Код
ppf_ = ThisWorkbook.Path & "/" & "НаименованиеФайла"
Workbooks.Open Filename:=ppf_
[/vba]


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеПримерно так
[vba]
Код
ppf_ = ThisWorkbook.Path & "/" & "НаименованиеФайла"
Workbooks.Open Filename:=ppf_
[/vba]

Автор - _Boroda_
Дата добавления - 31.03.2016 в 14:29
Axeq Дата: Понедельник, 04.04.2016, 09:56 | Сообщение № 6
Группа: Пользователи
Ранг: Новичок
Сообщений: 13
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Manyasha, Данный пример помог но не совсем пришлось подкорректировать , а так очень помогли, огромное спасибо !!!! hands hands hands hands hands


Всем бобра
 
Ответить
СообщениеManyasha, Данный пример помог но не совсем пришлось подкорректировать , а так очень помогли, огромное спасибо !!!! hands hands hands hands hands

Автор - Axeq
Дата добавления - 04.04.2016 в 09:56
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Работа макроса из текущей папки (Макросы/Sub)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2016 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!