
Díky, netušil jsem, jak se ta funkce jmenuje.
Ještě bych měl dotaz. Momentálně mi to funguje tak, že jiná aplikace spustí excel včetně tohoto dialogového okna s již předvyplněným názvem. To není problém, to jsem si našel a funguje to. Bylo by možné to ale upravi tak, aby když se spustí excel a vyskočí SaveAs dialog, abych jej mohl zrušit přes Cancel, soubor upravit a následně, když kliknu v Excelu na Soubor -> Uložit jako, aby tam byl opět předdefinovaný název?
Mně se spustí vždy nový sešit, do kterého se naexportují nějaká data z jiné aplikace, takže při ručním vyvolání ukládacího okna mi to do názvy vepisuje např. Sešit1.xlsx. Tohle bych chtěl načítat třeba z nějaké buňky. Jde to?

Ahoj, možná se pletu ale třeba takto ?
ActiveWorkbook.SaveAs FileName:="C:\Documents\" & Range("A1")
Radek

Tak toto mi funguje.
Sub ulož()
Dim IntialName As String
Dim fileSaveName As Variant
InitialName = Sheets("KW34").Range("B2") ' změnit název sešitu a buňku podle které se má ukládat
fileSaveName = Application.GetSaveAsFilename(InitialFileName:=InitialName, _
fileFilter:="Excel Files (*.xls), *.xls")
If fileSaveName <> False Then
MsgBox "Save as " & fileSaveName
End If
End Sub

Ahoj,
tohle právě mám a potřebuju to upravit. Když teď klepnu na Cancel tak se SaveAs okno zavře. Teď udělám nějaké úpravy v Sešitu a chci jej uložit Přes File -> Save As, ale pak už se tam FileName nedopíše. Jde to nějak modifikovat? Nikde jsem na to nepřišel.

Ahoj...
nechci zakládat nové téma a doufám že s tímto to má hodně společného.
Mám makro které mi uloží jeden list do nového excelu a uloží.
Vytvoří nový sešit dle názvu který se mi automaticky zvolí dle přiložených dat.
A teď dotaz. jde vytvořit stejně jako nový excel(s názvem) i složka v které by ten excel měl být? nebo to už je na WBA moc?
předem díky

Složku vytvoříte pomocí
MkDir Disk:\Cesta\Složka
Disk:\Cesta už musí existovat.
xlnc(24.7.2018 13:50)citovat#040972 
Sub VytvoreniSlozky()
'vytvoření složky
MkDir "C:\Slozka1"
'vytvoreni objektu FSO a jeho prirazeni do objektove promenne
Set objFSO = CreateObject("Scripting.FileSystemObject")
'vytvoreni neexistujici(!) slozky Slozka2
Set objSlozka = objFSO.CreateFolder("C:\Slozka2")
End Sub