https://office.lasakovi.com/excel/vba-soubory/SaveAs-metoda-ulozit-jako/citovat
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í jako název z buňky
MS Excel
Téma: Uložení jako název z buňky 
Zaslal/a camron 16.12.2022 10:14
Zdravím,
poradí někdo makro jak ukládat na disk D:/dokumenty excel jako název ze popisu v buňce A1?
Díky
(16.12.2022 13:06)#054108
odtud jsem už čerpal,
nebyl jsem schopný to dát nějak dohromady.
našel jsem si a přepsal tohle a funguje
Sub uloz()
Sheets("tisk").Select
ActiveSheet.Copy
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
Path = "D:\dokumenty\"
ActiveWorkbook.SaveAs Filename:=Range("A1")
ActiveWorkbook.Close (False)
Range("A1") = Range("A1")
End Subcitovat
nebyl jsem schopný to dát nějak dohromady.
našel jsem si a přepsal tohle a funguje
Sub uloz()
Sheets("tisk").Select
ActiveSheet.Copy
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
Path = "D:\dokumenty\"
ActiveWorkbook.SaveAs Filename:=Range("A1")
ActiveWorkbook.Close (False)
Range("A1") = Range("A1")
End Subcitovat
A proč to neuděláš takhle?
Sub uloz()
ActiveWorkbook.SaveCopyAs Filename:=Sheets("tisk").Range("A1")
End Subcitovat
Sub uloz()
ActiveWorkbook.SaveCopyAs Filename:=Sheets("tisk").Range("A1")
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