Question

我要保存的文件当前保存在“ ThisWorkbook.Path”下，但是我想专门定义路径。

我尝试用“ ActiveWorkbook.SaveAs Filename：...”定义路径

这是整个代码部分，其中我尝试禁用的代码位于我尝试修改的代码行上方。

' 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"

如何更改当前保存“ ThisWorkbook.Path”的文件的路径？

1 个答案: