задать имя файла

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

Страница 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)

Ответить

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

Ответить

Eddy

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

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

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

Сообщений: 48

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

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

2010 & 2013

спасибо вам! а можно сделать так чтоб в E2 заводилось только имя, как 01.01.13?

Ответить

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

Ответить

Матраскин

Дата: Четверг, 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

Дата: Пятница, 27.09.2013, 01:43 | Сообщение № 6

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

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

Сообщений: 48

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

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

2010 & 2013

SkyPro, это папка из которой берётся файл для каждого дня свой W1 это Wave 1 (первая волна) папка неменяется!
спасибо вам всем

Ответить

Eddy

Дата: Пятница, 27.09.2013, 01:58 | Сообщение № 7

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

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

Сообщений: 48

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

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

2010 & 2013

а легко ли добавить фильтр, типо как если в файле 01.01.13 в столбике А есть 308 то скопировать надо только 308 и то что в соседних столбиках на против 308, но этот 308 может появляться болше чем один раз и они мне тоже нужни?