powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / В VBA подключить диалог открытия файла.
4 сообщений из 4, страница 1 из 1
В VBA подключить диалог открытия файла.
    #34092097
Фотография Evgeshka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Как в Microsoft Excel подключить и вызвать диалог открытия файла? Пробовал регистрировать и подключать Microsoft Common Dialog Control 6.0 SP3 из Visual Basic 6.0 (Comdlg32.ocx). Но сам диалог на панели компонентов не появился и я не знаю как его вызвать.
...
Рейтинг: 0 / 0
В VBA подключить диалог открытия файла.
    #34092164
vkodor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: plaintext
1.
2.
3.
4.
fileToOpen = Application _
    .GetOpenFilename("Text Files (*.txt), *.txt")
If fileToOpen <> False Then
    MsgBox "Open " & fileToOpen
End If
...
Рейтинг: 0 / 0
В VBA подключить диалог открытия файла.
    #34092238
KL (XL)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Метод 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
В VBA подключить диалог открытия файла.
    #34092873
Фотография Evgeshka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Спасибо, друзья, Вы мне очень помогли!
...
Рейтинг: 0 / 0
4 сообщений из 4, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / В VBA подключить диалог открытия файла.
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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