Question

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

Sub Macro1()

” 'Macro1宏 '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 ＆amp; “\”＆amp; CartellaMese＆amp; NomeFile，FileFormat：= xlNormal，密码：=“”，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

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

2 个答案: