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

Вход

Регистрация

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

 

= Мир MS Excel/задать имя файла - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » задать имя файла (Макросы Sub)
задать имя файла
Eddy Дата: Четверг, 26.09.2013, 05:01 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 48
Репутация: 0 ±
Замечаний: 40% ±

2010 & 2013
Всем доброго дня!
У меня такая проблемка:
Как я магу задать имя файла на странице Sheet1 E2, так чтоб макрос открывал нужный файл по критерию E2? подскажите пожалуйста!?
Всем спосибо!
К сообщению приложен файл: TESTS.xlsm (21.0 Kb)
 
Ответить
СообщениеВсем доброго дня!
У меня такая проблемка:
Как я магу задать имя файла на странице Sheet1 E2, так чтоб макрос открывал нужный файл по критерию E2? подскажите пожалуйста!?
Всем спосибо!
Автор - Eddy
Дата добавления - 26.09.2013 в 05:01
KuklP Дата: Четверг, 26.09.2013, 08:43 | Сообщение № 2
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
мОгу, спАсибо.
[vba]
Код
Set wb = Workbooks.Open([e2].Value, True, True)
[/vba]
ну а в Е2 естественно: C:\Users\Irinka\Desktop\dock\W1\01.01.13.xlsx

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

Сообщение отредактировал KuklP - Четверг, 26.09.2013, 08:46
 
Ответить
СообщениемОгу, спАсибо.
[vba]
Код
Set wb = Workbooks.Open([e2].Value, True, True)
[/vba]
ну а в Е2 естественно: C:\Users\Irinka\Desktop\dock\W1\01.01.13.xlsx
Автор - KuklP
Дата добавления - 26.09.2013 в 08:43
Eddy Дата: Четверг, 26.09.2013, 14:47 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 48
Репутация: 0 ±
Замечаний: 40% ±

2010 & 2013
спасибо вам! а можно сделать так чтоб в E2 заводилось только имя, как 01.01.13?
 
Ответить
Сообщениеспасибо вам! а можно сделать так чтоб в E2 заводилось только имя, как 01.01.13?
Автор - Eddy
Дата добавления - 26.09.2013 в 14:47
SkyPro Дата: Четверг, 26.09.2013, 15:04 | Сообщение № 4
Группа: Друзья
Ранг: Старожил
Сообщений: 1206
Репутация: 255 ±
Замечаний: 0% ±

2010
[vba]
Код
Set wb = Workbooks.Open("C:\Users\Irinka\Desktop\dock\W1\" & [e2].Value & ".xlsx", True, True)
[/vba]
ну а в Е2 естественно: 01.01.13

Насколько я понял, то W1 - номер недели. Для каждой недели отдельная папка.
Тогда лучшу уж так сделать:
[vba]
Код
Set wb = Workbooks.Open("C:\Users\Irinka\Desktop\dock\" & [d2].Value & "\" & [e2].Value & ".xlsx", True, True)
[/vba]

Е2: 01.01.13
D2: W1

skypro1111@gmail.com

Сообщение отредактировал SkyPro - Четверг, 26.09.2013, 15:07
 
Ответить
Сообщение[vba]
Код
Set wb = Workbooks.Open("C:\Users\Irinka\Desktop\dock\W1\" & [e2].Value & ".xlsx", True, True)
[/vba]
ну а в Е2 естественно: 01.01.13

Насколько я понял, то W1 - номер недели. Для каждой недели отдельная папка.
Тогда лучшу уж так сделать:
[vba]
Код
Set wb = Workbooks.Open("C:\Users\Irinka\Desktop\dock\" & [d2].Value & "\" & [e2].Value & ".xlsx", True, True)
[/vba]

Е2: 01.01.13
D2: W1
Автор - SkyPro
Дата добавления - 26.09.2013 в 15:04
Матраскин Дата: Четверг, 26.09.2013, 15:08 | Сообщение № 5
Группа: Друзья
Ранг: Обитатель
Сообщений: 375
Репутация: 81 ±
Замечаний: 0% ±

20xx
Eddy,
[vba]
Код
Sub mac()
   Dim s As String
   s = "c:\" & [e2] & ".xls"
   Set wb = Workbooks.Open(s, True, True)
End Sub
[/vba]

в интернете опять кто-то не прав
 
Ответить
СообщениеEddy,
[vba]
Код
Sub mac()
   Dim s As String
   s = "c:\" & [e2] & ".xls"
   Set wb = Workbooks.Open(s, True, True)
End Sub
[/vba]
Автор - Матраскин
Дата добавления - 26.09.2013 в 15:08
Eddy Дата: Пятница, 27.09.2013, 01:43 | Сообщение № 6
Группа: Пользователи
Ранг: Новичок
Сообщений: 48
Репутация: 0 ±
Замечаний: 40% ±

2010 & 2013
SkyPro, это папка из которой берётся файл для каждого дня свой W1 это Wave 1 (первая волна) папка неменяется!
спасибо вам всем
 
Ответить
СообщениеSkyPro, это папка из которой берётся файл для каждого дня свой W1 это Wave 1 (первая волна) папка неменяется!
спасибо вам всем
Автор - Eddy
Дата добавления - 27.09.2013 в 01:43
Eddy Дата: Пятница, 27.09.2013, 01:58 | Сообщение № 7
Группа: Пользователи
Ранг: Новичок
Сообщений: 48
Репутация: 0 ±
Замечаний: 40% ±

2010 & 2013
а легко ли добавить фильтр, типо как если в файле 01.01.13 в столбике А есть 308 то скопировать надо только 308 и то что в соседних столбиках на против 308, но этот 308 может появляться болше чем один раз и они мне тоже нужни? :)
 
Ответить
Сообщениеа легко ли добавить фильтр, типо как если в файле 01.01.13 в столбике А есть 308 то скопировать надо только 308 и то что в соседних столбиках на против 308, но этот 308 может появляться болше чем один раз и они мне тоже нужни? :)
Автор - Eddy
Дата добавления - 27.09.2013 в 01:58
KuklP Дата: Пятница, 27.09.2013, 08:57 | Сообщение № 8
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
Вам мало замечаний от администрации? Какое отношение вопрос имеет к теме?

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728
 
Ответить
СообщениеВам мало замечаний от администрации? Какое отношение вопрос имеет к теме?
Автор - KuklP
Дата добавления - 27.09.2013 в 08:57
Eddy Дата: Пятница, 27.09.2013, 15:08 | Сообщение № 9
Группа: Пользователи
Ранг: Новичок
Сообщений: 48
Репутация: 0 ±
Замечаний: 40% ±

2010 & 2013
Sorry
 
Ответить
СообщениеSorry
Автор - Eddy
Дата добавления - 27.09.2013 в 15:08
Мир MS Excel » Вопросы и решения » Вопросы по VBA » задать имя файла (Макросы Sub)
  • Страница 1 из 1
  • 1
Поиск:

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