需要在特定位置保存文件

Question

我无法将文件保存在特定位置，以下代码文件已保存在使用的最近位置。

    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

请帮助我保存特定位置的文件。

Answer 1

我尝试了以下操作，并且一切正常：

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

两件事：

• “ \”是通配符，这意味着它给后面的字符以不同的含义。如果要使用反斜杠，则需要将其加倍。
• 别忘了将扩展名添加到文件名中。