保存文件xls在動態目錄

我想創建一個宏，保存xls文件在一個特定的目錄中稱爲月份在這個目錄中有12個其他目錄與月份的名稱。我寫了一個宏，其中文件保存在目錄中的月份，但我需要該文件保存在一個特定的目錄中，根據我的工作表單元格中月份的值。下面我的代碼：保存文件xls在動態目錄

Sub Macro1()

' ' Macro1的宏 '薩爾瓦CON諾姆焦爾諾è數據 ' 'Scelta利必達達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

來源

2016-12-02 Michele Petraroli

我想你錯過了幾個與和「在這裏的跡象： ActiveWorkbook.SaveAs文件名：= Cartella＆」\「＆CartellaMese＆NomeFile，的FileFormat：= xlNormal， – Gabor

喜米歇爾。如果您覺得答案可以解決問題，請點擊綠色複選標記將其標記爲「已接受」。這有助於將注意力集中在仍然沒有答案的舊版SO上。謝謝 – Gabor

謝謝@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

來源

2016-12-02 12:39:23

這應該看起來像此：

ActiveWorkbook.SaveAs文件名：= Cartella & 「\」 & CartellaMese & NomeFile，的FileFormat：= xlNormal，密碼：= 「」，WriteResPassword：= 「」，CreateBackup：=假

來源

2016-12-02 12:25:54 Gabor

保存文件xls在動態目錄

回答

相關問題