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

Question

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

Sub Macro1()

'' 宏 1 宏' Salva con nome giorno e 数据'' Scelta rapida da tastiera: 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

Answer 1

这应该看起来像这样:

ActiveWorkbook.SaveAs 文件名:=Cartella & "\"& CartellaMese & NomeFile，FileFormat:=xlNormal，密码:=""，WriteResPassword:=""，CreateBackup:=False