将文件xls保存在dynamic目录中

我正在试图创build一个macros，将xls文件保存在一个名为Months的特定目录中，在这个目录中还有12个其他目录的名称为几个月份。 我写了一个macros，其中文件保存在目录的月份，但我需要该文件保存在一个特定的目录，基于我的工作表的单元格中的月份的值。 在我的代码下面：

Sub Macro1() 

'Macro1 Macro'Salva con nome giorno e data''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，Password：=“”，WriteResPassword：=“”，CreateBackup：= False

Answer 2

谢谢@Gabor工作，但我需要在这里添加一些其他的东西整个代码

 Sub Macro1() 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