|
Možností, jak zajistit požadovanou funkčnost, je mnoho. Jde to např. takto. Do buňky "A1" napište požadovaný název souboru a pod tlačítko si přidejte následující kód:
Private Sub CommandButton1_Click()
ActiveWorkbook.SaveAs Filename:="C:\Temp\" & Range("A1").Value, FileFormat:=xlNormal _
, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
End Sub
Kód by bylo vhodné doplnit kontrolou platnosti jména souboru, kontrolou existence adresáře apod. Ještě poznámka. Velmi dobrým pomocníkem v podobných situacích je Záznam makra. Excel vygeneruje kód pro požadovanou funkčnost a vy si jen doplníte detaily.
|