36818_uloz-jako.jpg.jpg
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: Uložení sešitu na zvolené místo
MS Excel
Téma: Uložení sešitu na zvolené místo 
Zaslal/a Filipsv 8.7.2017 12:26
Ahoj,
je možné pomocí nějaké funkce vyvolat stejné dialogové okno, jaké se spustí při kliknutí na uložit jako? Prohledával jsem práci se soubory, ale je tam jen funkce SaveAs, která umí načíst cestu z nějaké buňky nebo se musí zadat ručně, což nechci. Dá se nějak vyvolat toto "ukládací" okno, kde is uživatel sám vybere, kam chce uložit?
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?citovat
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?citovat
Ahoj, možná se pletu ale třeba takto ?
ActiveWorkbook.SaveAs FileName:="C:\Documents\" & Range("A1")
Radekcitovat
ActiveWorkbook.SaveAs FileName:="C:\Documents\" & Range("A1")
Radekcitovat
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
citovat
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
citovat
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.citovat
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.citovat
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íkycitovat
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íkycitovat
(24.7.2018 13:50)#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 Subcitovat
'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 Subcitovat
Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.
RSS nejnovější články