Необходимо сохранить файл в папке Specifi c - PullRequest
0 голосов
/ 25 марта 2020

Я не могу сохранить файл в указанном c местоположении с приведенным ниже кодом. Файл сохраняется в недавно использованном местоположении.

    Sub SaveIt()
Dim dt As String, wbNam As String

wbNam = "Apple_"
dt = Format(CStr(Now), "yyyy_mm_dd_hh_mm")
ActiveWorkbook.SaveAs "C:\Users\name\Desktop\Apple_date.xlsx" Filename:=wbNam 
& dt
End Sub

Пожалуйста, помогите мне сохранить файл в указанном c примесь.

1 Ответ

0 голосов
/ 25 марта 2020

Я попробовал следующее, и все работает нормально:

ActiveWorkbook.SaveAs "C:\\Users\\name\\Desktop\\" + wbNam + dt + ".xlsx"

Две вещи:

  • "\" - это символ подстановки, что означает, что он дает другое значение на следующий символ. Если вы хотите использовать обратную косую черту sh, вам нужно удвоить ее.
  • Не забудьте добавить расширение к имени файла.
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...