добавление подпапки с использованием синтаксиса activeworkbook.path - PullRequest
Новая
       31

добавление подпапки с использованием синтаксиса activeworkbook.path

0 голосов
/ 12 ноября 2018

хорошо, так что это короткое спокойствие в большой книге ... Все, что я пытаюсь сделать, - это указать определенное место для сохранения. 

ActiveWorkbook.SaveCopyAs _
    FileName:=ActiveWorkbook.Path "\OLD " & Range("D1").Value & ".XLSM"

Это делает именно так, как и должно бытьЯ хочу сказать в основном «activeworkbook.path» плюс еще один шаг и обозначить папку «old», в которую она пойдет.

по сути это будет выглядеть так 

\documents\test\my-file.xlsm

к этому 

\documents\test\OLD\my-file.xlsm

есть намеки?

1 Ответ

0 голосов
/ 12 ноября 2018

У вас есть пробел в "\OLD ", и вы не закрываете \OLD в качестве папки.

Строка должна выглядеть как 

ActiveWorkbook.SaveCopyAs _
    FileName:=ActiveWorkbook.Path & "\OLD\" & Range("D1").Value & ".XLSM"

Я бы также настоятельно рекомендовал квалифицировать ваше Range("D1") с вашим рабочим листом. 

Dim fileNameRng as range
Set fileNameRng = thisworkbook.worksheets("Sheet1").Range("D1")

ActiveWorkbook.SaveCopyAs _
    FileName:=ActiveWorkbook.Path & "\OLD\" & fileNameRng.Value & ".XLSM"
...