U osnovnoj verziji ovako:
Code:
Sub MySave()
Dim unos As String
unos = Sheets(1).Range("B5").Text
ActiveWorkbook.SaveAs Filename:=unos
End Sub
Na taj način se snima se aktivna Excel radna sveska pod imenom koje je upisano u ćeliju B5 na prvom listu u fasciklu My Document. Naravno dodavanjem putanje promenljivoj
unos može se promeniti fascikla u kojoj se snima dokument.
Ako već postoji dokument pod tim imenom ispisaće se upozorenje. Ukoliko želiš da izbegneš upozorenje stavi na početku
Code:
Application.DisplayAlerts = False
Ne zaboravi na kraju da vratiš
Code:
Application.DisplayAlerts = True
Nije to loše Rembrante, samo što ne bi dodao još malo boje?