ГлавнаяMS ACCESS Получить через окно диалога имя файла... без API !
Получить через окно диалога имя файла... без API !
Автор МАКС
20.11.2001 г.
Силыч: ОРЫГИНАЛЬНО %[ ]
Проставить галку в ссылках на Ехсель 8.0 Тогда используется окно диалога открытия файлов из Ехселя
Public Sub g() Dim aas As Object, path_db As String Set aas = CreateObject("excel.application") path_db = aas.GetOpenFilename("База данных (*.mdb), *.mdb") Set aas = Nothing MsgBox path_db End Sub Просмотров: 5933