2015-03-09 1 views
0

Я пытаюсь заставить макрос работать там, где он сохраняет файл определенного формата и открывает его, чтобы избежать проблем с совместимостью, однако, когда макрос он пытается сохранить в сетевой каталог, который не указан в коде.Книга Excel пытается сохранить в сетевой каталог, когда это не должно быть при запуске макроса

Dim wkbook As String 

wkbook = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4) & ".xlsm" 

ActiveWorkbook.SaveAs wkbook, FileFormat:=52 
ActiveWorkbook.Close 
Workbooks.Open Filename:=wkbook 
+1

Я не мог видеть, где вы указываете каталог/путь. Сейчас книга будет сохранена в текущем каталоге? Или, что вы намеревались сделать? – Alex

+0

Вы указываете имя книги для сохранения как, но вы не указываете путь, поэтому он будет сохраняться в текущем каталоге – Kyle

+0

. Я собираюсь сохранить его в текущем каталоге, например. «Мои документы», однако, excel пытается сохранить в сетевой каталог и зависает при запуске макроса. Если я отменил сохранение, макрос продолжит работу без проблем. – balopez989

ответ

0

Используйте ChDir для установки каталога.

ChDir("C:\mydirectory") 
Смежные вопросы