Работа макроса из текущей папки

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир 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

Ответить

KuklP

Дата: Среда, 30.03.2016, 14:59 | Сообщение № 2

Группа: Проверенные

Ранг: Старожил

Сообщений: 2369

Репутация: 486 ±

Замечаний: 0% ±

2003-2010

thisworkbook.path

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728

Ответить

Axeq

Дата: Четверг, 31.03.2016, 14:00 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 13

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

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

Всем бобра

Ответить

Manyasha

Дата: Четверг, 31.03.2016, 14:27 | Сообщение № 4

Группа: Модераторы

Ранг: Старожил

Сообщений: 2198

Репутация: 898 ±

Замечаний: 0% ±

Excel 2010, 2016

Цитата Axeq, 31.03.2016 в 14:00, в сообщении № 3

что на что заменить

путь к папке

И можно обойтись без 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]

ЯД: 410013299366744 WM: R193491431804

Ответить

_Boroda_

Дата: Четверг, 31.03.2016, 14:29 | Сообщение № 5

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16675

Репутация: 6481 ±

Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS

Примерно так
[vba]

Код

ppf_ = ThisWorkbook.Path & "/" & "НаименованиеФайла"
Workbooks.Open Filename:=ppf_

[/vba]

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

Axeq

Дата: Понедельник, 04.04.2016, 09:56 | Сообщение № 6

Группа: Пользователи

Ранг: Новичок

Сообщений: 13

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

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

Всем бобра

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Работа макроса из текущей папки (Макросы/Sub)

Страница 1 из 1
1