首页 > 解决方案 > 需要将文件保存在特定位置

问题描述

我无法将文件保存在特定位置,下面的代码文件被保存在最近使用的位置。

    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

请你能帮我把文件保存在特定的位置。

标签: excelvba

解决方案


我尝试了以下方法,一切正常:

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

两件事情:

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

推荐阅读