Salvataggio della cartella di lavoro di Excel sul percorso costante con nome file da 2 campi

Question

Sono assolutamente nuovo nei macro di Excel, ho provato a cercare e creare un codice adatto al mio scopo, ma senza fortuna. Spero che qualcuno sia abbastanza generoso da aiutarmi.

Sub save() 
ActiveWorkbook.SaveAS Filename:="C:\-docs\cmat\Desktop\New folder\ck.xls", FileFormat:= _ 
    xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _ 
, CreateBackup:=False 
End Sub 

come modificare questo per: Invece di nominare il ck.xls file salvato, generare il nome del file da celle del foglio C5 e C8, con uno spazio in mezzo.

Answer 1

provare

Sub save() 
ActiveWorkbook.SaveAS Filename:="C:\-docs\cmat\Desktop\New folder\" & Range("C5").Text & chr(32) & Range("C8").Text &".xls", FileFormat:= _ 
    xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _ 
, CreateBackup:=False 
End Sub 

Se si desidera salvare la cartella di lavoro con le macro utilizzano il codice qui sotto

Sub save() 
ActiveWorkbook.SaveAs Filename:="C:\Users\" & Environ$("username") & _ 
    "\Desktop\" & Range("C5").Text & Chr(32) & Range("C8").Text & ".xlsm", FileFormat:= _ 
    xlOpenXMLWorkbookMacroEnabled, Password:=vbNullString, WriteResPassword:=vbNullString, _ 
    ReadOnlyRecommended:=False, CreateBackup:=False 
End Sub 

se si desidera salvare cartella di lavoro senza le macro e senza pop-up utilizzare questo

Sub save() 
    Application.DisplayAlerts = False 
    ActiveWorkbook.SaveAs Filename:="C:\Users\" & Environ$("username") & _ 
    "\Desktop\" & Range("C5").Text & Chr(32) & Range("C8").Text & ".xls", _ 
    FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False 
    Application.DisplayAlerts = True 
End Sub 

Answer 2

Ok, in quel momento l'ho fatto con l'aiuto di un amico e il codice si presenta così.

Sub Saving() 

Dim part1 As String 

Dim part2 As String 


part1 = Range("C5").Value 

part2 = Range("C8").Value 


ActiveWorkbook.SaveAs Filename:= _ 

"C:\-docs\cmat\Desktop\pieteikumi\" & part1 & " " & part2 & ".xlsm", FileFormat:= _ 
xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False 

End Sub 

Come faccio a modificare questa parte (FileFormat: = _ xlOpenXMLWorkbookMacroEnabled) per poter salvare come Excel 97-2013 Workbook, hanno provato diverse varianti senza successo. Thankyou

Sembra che ho trovato la soluzione, ma la mia idea è difettosa. Facendo questo FileFormat: = _ xlOpenXMLWorkbook, si elimina un popup che dice, non è possibile salvare questa cartella di lavoro come un file senza Macro abilitato. Quindi, è impossibile?