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

Вход

Регистрация

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

 

= Мир MS Excel/Импорт из файла с определенным именем - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Импорт из файла с определенным именем (Макросы/Sub)
Импорт из файла с определенным именем
VIDEO56 Дата: Четверг, 24.12.2015, 12:42 | Сообщение № 1
Группа: Проверенные
Ранг: Обитатель
Сообщений: 262
Репутация: 27 ±
Замечаний: 0% ±

Excel 2010
Всем добрый день! Прошу помочь с кодом макроса!
Есть 2 файла. Отчет корпблока декабрь 2015 и отчет розница декабрь 2015. В отчет корпблока нужно настроить импорт данных из отчета розницы. Чтобы каждый раз не настраивать связи между файлами хотелось бы использовать макрос который бы открывал отчет розницы (скажем оба отчета лежат на рабочем столе) с расширением соответствующему месяцу.
К сообщению приложен файл: 3794613.xlsm (10.6 Kb)

Всем удачного дня!
 
Ответить
СообщениеВсем добрый день! Прошу помочь с кодом макроса!
Есть 2 файла. Отчет корпблока декабрь 2015 и отчет розница декабрь 2015. В отчет корпблока нужно настроить импорт данных из отчета розницы. Чтобы каждый раз не настраивать связи между файлами хотелось бы использовать макрос который бы открывал отчет розницы (скажем оба отчета лежат на рабочем столе) с расширением соответствующему месяцу.
Автор - VIDEO56
Дата добавления - 24.12.2015 в 12:42
_Boroda_ Дата: Четверг, 24.12.2015, 12:47 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 17006
Репутация: 6667 ±
Замечаний: ±

2003; 2007; 2010; 2013 RUS
Так нужно?
[vba]
Код
Workbooks.Open Filename:=ThisWorkbook.Path & "\" & [A1] & [A2] & ".xlsx"
[/vba]

Только
Цитата VIDEO56, 24.12.2015 в 12:42, в сообщении № 1
импорт
и
Цитата VIDEO56, 24.12.2015 в 12:42, в сообщении № 1
открывал
- это две совершенно разные разницы.
Мой код именно открывает.
К сообщению приложен файл: 3794613_1.xlsm (15.6 Kb)

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

Только
Цитата VIDEO56, 24.12.2015 в 12:42, в сообщении № 1
импорт
и
Цитата VIDEO56, 24.12.2015 в 12:42, в сообщении № 1
открывал
- это две совершенно разные разницы.
Мой код именно открывает.
Автор - _Boroda_
Дата добавления - 24.12.2015 в 12:47
VIDEO56 Дата: Четверг, 24.12.2015, 12:53 | Сообщение № 3
Группа: Проверенные
Ранг: Обитатель
Сообщений: 262
Репутация: 27 ±
Замечаний: 0% ±

Excel 2010
Александр, а если файлы лежат в разных местах? Экспортируемый например на рабочем столе.

Всем удачного дня!
 
Ответить
СообщениеАлександр, а если файлы лежат в разных местах? Экспортируемый например на рабочем столе.
Автор - VIDEO56
Дата добавления - 24.12.2015 в 12:53
Manyasha Дата: Четверг, 24.12.2015, 13:11 | Сообщение № 4
Группа: Модераторы
Ранг: Старожил
Сообщений: 2198
Репутация: 902 ±
Замечаний: 0% ±

Excel 2010, 2016
VIDEO56, ну так подставьте вместо ThisWorkbook.Path нужный путь
[vba]
Код
Workbooks.Open Filename:="C:\test" & "\" & [A1] & [A2] & ".xlsx"
[/vba]

ЯД: 410013299366744 WM: R193491431804
 
Ответить
СообщениеVIDEO56, ну так подставьте вместо ThisWorkbook.Path нужный путь
[vba]
Код
Workbooks.Open Filename:="C:\test" & "\" & [A1] & [A2] & ".xlsx"
[/vba]
Автор - Manyasha
Дата добавления - 24.12.2015 в 13:11
_Boroda_ Дата: Четверг, 24.12.2015, 13:24 | Сообщение № 5
Группа: Админы
Ранг: Местный житель
Сообщений: 17006
Репутация: 6667 ±
Замечаний: ±

2003; 2007; 2010; 2013 RUS
Именно с рабочего стола
[vba]
Код
Workbooks.Open Filename:=CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\" & [A1] & [A2] & ".xlsx"
[/vba]

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеИменно с рабочего стола
[vba]
Код
Workbooks.Open Filename:=CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\" & [A1] & [A2] & ".xlsx"
[/vba]
Автор - _Boroda_
Дата добавления - 24.12.2015 в 13:24
VIDEO56 Дата: Четверг, 24.12.2015, 13:26 | Сообщение № 6
Группа: Проверенные
Ранг: Обитатель
Сообщений: 262
Репутация: 27 ±
Замечаний: 0% ±

Excel 2010
Спасибо друзья! С наступающим Вас новым годом!
Желаю в новом году
Сибирского здоровья,
Кавказского долголетия
И цыганского веселья!!!

Всем удачного дня!
 
Ответить
СообщениеСпасибо друзья! С наступающим Вас новым годом!
Желаю в новом году
Сибирского здоровья,
Кавказского долголетия
И цыганского веселья!!!
Автор - VIDEO56
Дата добавления - 24.12.2015 в 13:26
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Импорт из файла с определенным именем (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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