tikhomirova (Все сообщения пользователя)

Помогите, пожалуйста, поменять директорию через vba, смена сетевого диска через vba

Пользователь

Сообщений: 3 Регистрация: 04.06.2014

05.06.2014 10:48:56

Игорь, Спасибо! разобралась! Я скопировала книгу в нужную мне папку и воспользовалась функцией с сайта http://excelvba.ru/code/GetFileOrFolderPath. Все получилось. Только остался один вопрос - если эта книга не должна находиться в той же папке, где и файл, который я ищу с помощью макроса? Тогда что делать?

Перейти

Помогите, пожалуйста, поменять директорию через vba, смена сетевого диска через vba

tikhomirova

Пользователь

Сообщений: 3 Регистрация: 04.06.2014

05.06.2014 08:59:40

Игорь, а что я должна вставить в ChDrive? Если вставляю сетевую папку, то вылетает та же ошибка..

Цитата
Игорь пишет: попробуйте использовать функцию для выбора имени файла:

Я не очень сильна, и к сожелению не поняла, как применить это к моей задаче..

Перейти

Помогите, пожалуйста, поменять директорию через vba, смена сетевого диска через vba

tikhomirova

Пользователь

Сообщений: 3 Регистрация: 04.06.2014

04.06.2014 18:28:37

Добрый вечер!
Задача: Нужно создать кнопку, которая будет открывать папку и уже из этой папки пользователь выбирает файл для экспорта (экспорт совершается через другую кнопку).
Проблема: вылетает ошибка, "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

Перейти