Форум программистов «Весельчак У»
  *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

  • Рекомендуем проверить настройки временной зоны в вашем профиле (страница "Внешний вид форума", пункт "Часовой пояс:").
  • У нас больше нет рассылок. Если вам приходят письма от наших бывших рассылок mail.ru и subscribe.ru, то знайте, что это не мы рассылаем.
   Начало  
Наши сайты
Помощь Поиск Календарь Почта Войти Регистрация  
 
Страниц: [1]   Вниз
  Печать  
Автор Тема: Открыть один из... файл на обработку с помощью ВБА через стандартное диалоговое окно.  (Прочитано 8323 раз)
0 Пользователей и 2 Гостей смотрят эту тему.
klaus
Участник

ua
Offline Offline

« : 29-07-2008 15:10 » 

Доброго времени суток.
Ничего сложного, но не для меня. На обработку нужно открыть файл из определенной папки. Имя файла заведомо не известно, поэтому нужно сделать это через стандартное окно открытия файла, вызванное из ВБА. Файлов много.
Пример:
Код:
   Dim MyPath As String 
    Dim MyFileName As String
    MyPath = "C:\xls\"
    MyFileName = "какой-то.xls" 'имя файла на обработку
    Workbooks.Open(MyPath & "\" & MyFileName).Activate 'открытие этого файла
- Так можно открыть файл с прописанным здесь именем, а мне нужно, чтоб выбирать имя (MyFileName) через диалоговое окно, в процессе работы (после запуска макроса)...и еще, как можно переделать, чтоб открывались не только екселевские файлы, но и импорт txt?

Записан
Sla
Команда клуба

ua
Offline Offline
Пол: Мужской

WWW
« Ответ #1 : 29-07-2008 15:18 » 

создаещь форму, на нее бросаешь диалог выбора файла...
в макросе пишешь show form и т.д.
Записан

Мы все учились понемногу... Чему-нибудь и как-нибудь.
HandKot
Молодой специалист

ru
Offline Offline

« Ответ #2 : 30-07-2008 05:15 » new

выбирайте
Код:
Application.GetOpenFilename
Application.FileDialog
Записан

I Have Nine Lives You Have One Only
THINK!
klaus
Участник

ua
Offline Offline

« Ответ #3 : 30-07-2008 08:31 » 

Спасибо, написал:
Код:
MyFile = Application.GetOpenFilename(...)
все работает.
Записан
Страниц: [1]   Вверх
  Печать  
 

Powered by SMF 1.1.21 | SMF © 2015, Simple Machines