VBA更改目录保存

Question

我想将文件保存在名称根据上个月的名称更改的目录中。这里是代码：

name_month = MonthName(Month(Date) - 1) 

Set Newbook = Workbooks.Add 
    With Newbook 
.Title = "TESO1" 
.SaveAs Filename:="C:\Users\ee31264\Desktop\Mensile Automat\name_month \send\TESO1.xlsx" 
End With 

Newbook.Close 

不幸的是，我写的VBA的name_mon没有读到我的意思！

Answer 1

这是因为您需要告诉Excel，您对它所说的内容应该作为变量还是作为字符串来读取。使用“”表示它是一串文本，不应该被评估。

使用此：

Filename:="C:\Users\ee31264\Desktop\Mensile Automat\" & name_month & "\send\TESO1.xlsx" 

还记得在Excel的新版本还必须使用FileFormat:=51指定文件格式（XLSX，使用52 XLSM）。