Как в VB работает GetOpenFileName?
Формулировка задачи:
Нужен фрагмент кода, чтобы в переменной сохранить имя файла, выбранного пользователем в стандартном диалоге 'Открыть'.
Так, как делал раньше в Excel'e в VB не получается (.
Please, HELP!
Решение задачи: «Как в VB работает GetOpenFileName?»
textual
Листинг программы
- fileToOpen = Application _
- .GetOpenFilename('WETTER-Angaben-Dateien (*.xls;*.dat),*.xls', , myCaption)
- 'False получается, если пользователь нажал Отмена или иначе закрыл диалог, не выбрав файла
- If fileToOpen = False Then
- a = MsgBox('Sie haben keine Input-Tabelle bestimmt.' & Chr(13) & Chr(13) & 'Die Fortsetzung ist unmöglich.', 16)
- vorgang_Abgebrochen = True
- GoTo finish:
- End If
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
