Предложение выбора файла в VBA. Открыть проводник

ИгорьМ

Гость

28.09.2010 04:17:03

Добрые люди, помогите, не нашёл нигде как в макрос прописать открытие проводника.

Нужно чтобы открылся проводник, там пользователь выбрал нужный файл, макрос записал бы в переменную его название. как реализовать?

KuklP Пользователь Сообщений: 14868 Регистрация: 21.12.2012 E-mail и реквизиты в профиле.	#2 28.09.2010 04:57:14 Myopen = Application.GetOpenFilename("Файл (.xls), .xls") If Myopen <> False Then..... Я сам - дурнее всякого примера! ...

Guest

Гость

28.09.2010 05:24:48

{quote}{login=KuklP}{date=28.09.2010 04:57}{thema=}{post}Myopen = Application.GetOpenFilename("Файл (*.xls*), *.xls*")
If Myopen <> False Then.....{/post}{/quote}

Гигантское вам спасибо!
Что же, это почти то, я добавил только "Comma Separated Files (*.csv),*.csv,".
А как добыть именно имя файла, без пути?

KuklP

Пользователь

Сообщений: 14868 Регистрация: 21.12.2012

E-mail и реквизиты в профиле.

28.09.2010 06:05:15

s = Split(Myopen, "\")
a = s(UBound(s)) ' так извлекаем имя файла из полного пути
Хотя в Вашем случае проще. После открытия файла:
Activeworkbook.Name
Ну и на всяк случай. Так получаем имя файла без расширения:
a = InStrRev(Myopen, ".", , vbTextCompare)
If a <> 0 Then
Myopen = Left(Myopen, a - 1)
End If

Я сам - дурнее всякого примера! ...

Guest Гость	#5 28.09.2010 21:31:28 myopen = Application.GetOpenFilename("Comma Separated Files (.csv),.csv,") If myopen = False Then Exit Sub sp = Split(myopen, "\") fileN = sp(UBound(sp)) fileP = Left(myopen, Len(myopen) - Len(fileN)) А так можно вытащить путь. Спасибо вам огромное, KuklP, тему можно закрывать.

EducatedFool Пользователь Сообщений: 3695 Регистрация: 23.12.2012	#6 28.09.2010 21:33:39 Можно и готовую функцию использовать: http://excelvba.ru/code/GetFileOrFolderPath Надстройки для Excel Парсинг сайтов Мониторинг цен конкурентов

Читают тему