Проблема с сохранением файла с помощью «сохранить как» в VBA

Question

Я пытаюсь сохранить имя моего файла в качестве значения в диапазоне («A3») на листах (2) в одну из моих папок, которая называется «мое назначение». Тем не менее, он не сохраняет в папку, а сохраняет на моем рабочем столе. Кто-нибудь знает, где проблема?

Кстати "\ fab2crp-nas1 \ home22 \ kkang2 \ Profile \ Desktop \ my assignment" относится к каталогу папки, где я хочу его сохранить.

ActiveWorkbook.SaveAs Filename:="\\fab2crp-nas1\home22\kkang2\Profile\Desktop\my assignment" & ActiveWorkbook.Sheets(2).Range("A3").Value & "_Jramp" & ".xlsm", FileFormat:= _
 xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
 , CreateBackup:=False

Answer 1

Предполагая, что имя вашего файла в ячейке не начинается с \, добавьте это в конце вашего жестко закодированного пути к файлу: "\\fab2crp-nas1\home22\kkang2\Profile\Desktop\my assignment\".

Причина этого в том, что последний \ указывает папку для файла, в котором будет храниться файл. Я не слишком уверен в деталях, но я уверен, что вы можете прочитать об этом больше в своих документах ОС.

Чтобы привести пример:

Если у меня есть файл с именем Book1.xlsx и он хранится в папке на рабочем столе с именем Example, тогда, если я открою свойства этого файла для см. местоположение папки: я получаю следующее:

Итак, чтобы продолжить, чтобы программа обнаружила / открыла / сохранила ваш файл , вам нужно было бы явно определить адрес. В моем примере:

C:\Users\deadevil\Desktop\Example\Book1.xlsx

Надеюсь, это поможет уточнить.