Как я могу изменить путь к файлу, который в данный момент сохраняет «ThisWorkbook.Path»?

Question

Файл, который я пытаюсь сохранить, в настоящее время сохраняется в «ThisWorkbook.Path», но я бы хотел конкретно указать путь.

Я попытался определить путь с помощью "ActiveWorkbook.SaveAs Имя файла: ..."

Это весь раздел кода с кодом, который я пытался отключить, и над строкой, которую я пытаюсьмодифицировать.

' Save CSV Files
Dim myCSVFileName As String
Dim tempWB As Workbook

Application.DisplayAlerts = True

'myCSVFileName = ActiveWorkbook.SaveAs Filename= "S:\shared\6. Distributions\10) epMotion\Buffer and Sample CSVs\" & "\" & "Sample CSV" & VBA.Format(VBA.Now, "_mm-dd-yyyy hh-mm") & ".csv"


myCSVFileName = ThisWorkbook.Path = "S:\shared\6. Distributions\10) epMotion\Buffer and Sample CSVs\" & "\" & "Sample CSV" & VBA.Format(VBA.Now, "_mm-dd-yyyy hh-mm") & ".csv"

ThisWorkbook.Sheets("Sample CSV").Activate
ActiveSheet.Copy
Set tempWB = ActiveWorkbook

With tempWB
.SaveAs Filename:=myCSVFileName, FileFormat:=xlCSV, CreateBackup:=False
.Close
End With

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

Answer 1

Вы уже объявляете путь

Ваше имя файла должно иметь вид

myCSVFileName = "S:\shared\6. Distributions\10) epMotion\Buffer and Sample CSVs\" & "\" & "Sample CSV" & VBA.Format(VBA.Now, "_mm-dd-yyyy hh-mm") & ".csv"