Добрый вечер!
Задача: Нужно создать кнопку, которая будет открывать папку и уже из этой папки пользователь выбирает файл для экспорта (экспорт совершается через другую кнопку).
Проблема: вылетает ошибка, "path not found", хотя если я это вбиваю в адресную строку, то все ок. Т.е. не понятно, как поменять сетевой диск автоматически.
Правильный путь: \\vk001\Data_pub_004\123
БОЛЬШОЕ СПАСИБО!
Задача: Нужно создать кнопку, которая будет открывать папку и уже из этой папки пользователь выбирает файл для экспорта (экспорт совершается через другую кнопку).
Проблема: вылетает ошибка, "path not found", хотя если я это вбиваю в адресную строку, то все ок. Т.е. не понятно, как поменять сетевой диск автоматически.
Правильный путь: \\vk001\Data_pub_004\123
БОЛЬШОЕ СПАСИБО!
| Код |
|---|
Public Filename$
Sub button_openDir_Click()
Dim SaveDriveDir As String
SaveDriveDir = "\\vk001\Data_pub_004\123"
ChDir (SaveDriveDir)
fileToOpen = Application.GetOpenFilename("Text Files (*.csv), *.csv" )
If fileToOpen <> False Then
MsgBox "Open " & fileToOpen
End If
Filename$ = fileToOpen
End Sub |
