Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / В VBA подключить диалог открытия файла. / 4 сообщений из 4, страница 1 из 1
30.10.2006, 17:42:57
    #34092097
Evgeshka
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
В VBA подключить диалог открытия файла.
Как в Microsoft Excel подключить и вызвать диалог открытия файла? Пробовал регистрировать и подключать Microsoft Common Dialog Control 6.0 SP3 из Visual Basic 6.0 (Comdlg32.ocx). Но сам диалог на панели компонентов не появился и я не знаю как его вызвать.
...
Рейтинг: 0 / 0
30.10.2006, 18:00:25
    #34092164
vkodor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
В VBA подключить диалог открытия файла.
Код: plaintext
1.
2.
3.
4.
fileToOpen = Application _
    .GetOpenFilename("Text Files (*.txt), *.txt")
If fileToOpen <> False Then
    MsgBox "Open " & fileToOpen
End If
...
Рейтинг: 0 / 0
30.10.2006, 18:29:02
    #34092238
KL (XL)
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
В VBA подключить диалог открытия файла.
Метод GetOpenFileName предложенный vkodor пожалуй наиболее удобный способ решения. На всякий случай, чтобы не забыть :-), существует еще свойство Application.Dialogs :

Код: plaintext
Application.Dialogs(xlDialogOpen).Show

Код: plaintext
Application.Dialogs(xlDialogOpen).Show "Книга1.xls", True, True

здесь список параметров (которые кстати практически совпадают с параметрами метода Workbooks.Open):
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/off2000/html/xlmscDialogArgLists.asp

KL
[MVP - Microsoft Excel]
...
Рейтинг: 0 / 0
31.10.2006, 08:53:09
    #34092873
Evgeshka
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
В VBA подключить диалог открытия файла.
Спасибо, друзья, Вы мне очень помогли!
...
Рейтинг: 0 / 0
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / В VBA подключить диалог открытия файла. / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]