excel - 将文件xls保存在动态目录中

我正在尝试创建一个宏，将xls文件保存在名为Months的特定目录中，该目录中还有其他12个名称为months的目录。
我写了一个宏，其中文件保存在目录月份中，但是我需要根据工作表单元格中月份的值将文件保存在特定目录中。
在我的代码下面：

Sub Macro1()

'
'Macro1宏
Salva con nome giorno e数据
'
'快速备份：CTRL + p
'

NomeFile = Range("B2").Value 'Cella da cui prendere il nome file
NomeCartella = Range("D2").Value 'Cella da cui prendere il nome del mese
NomeFoglio = Range("A2").Value
If NomeFile = "" Then Exit Sub
If Right(NomeFile, 4) <> ".xls" Then NomeFile = NomeFile & ".xls"

Cartella = "C:\Users\Michele\Documents\la piazzetta\Mesi\" 'percorso completo su cui salvare
CartellaMese = NomeCartella
ActiveWorkbook.SaveAs Filename:=Cartella \ CartellaMese & NomeFile, FileFormat:=xlNormal, Password:="", WriteResPassword:="", CreateBackup:=False



End Sub

最佳答案

看起来应该像这样：

ActiveWorkbook.SaveAs文件名：= Cartella和“ \”＆CartellaMese＆NomeFile，文件格式：= xlNormal，密码：=“”，WriteResPassword：=“”，CreateBackup：= False