« Zpět na předchozí stránku
Answer Question
▲
0
▼
♥ 0

Zdravím. Potřeboval bych pomoct s makrem.
V buňce C1 mám text, pod kterým bych chtěl daný soubor uložit (plus aktuální rok a měsíc) a to do adresáře C:\soubory\"text v buňce C1" .

Tohle makro mi nefunguje a nemohu přijít na chybu..
Za radu budu moc rád.

Sub ulozit()
Const cesta As String = "C:\soubory"

jmeno = cesta & "\" & Range("C1") & "\" & Format(Now, "yyyy") & "_" & Format(Now, "mm") & "_" & Range("C1") & ".xlsx"

ActiveWorkbook.SaveAs Filename:=jmeno
End Sub

Marked as spam
Odeslal Sicvok
Otázka položena 8.1.2019 19:35
97 views
▲
0
▼
✔
Private answer

Můžeme jen hádat... neexistuje podsložka uvedená v Range("C1").

Marked as spam
Odeslal xlnc
Odpověděl 8.1.2019 22:28
▲
0
▼
✔
Private answer

Od verze Excel2007 nutno uložit ".xlsm"

jmeno = cesta & "" & Range("C1") & "" & Format(Now, "yyyy") & "_" & Format(Now, "mm") & "_" & Range("C1") & ".xlsm"
ActiveWorkbook.SaveAs Filename:=jmeno, FileFormat:=52

Marked as spam
Odeslal Anonymous
Odpověděl 21.1.2019 14:56
« Zpět na předchozí stránku

Odešlete svou odpověď

Attach YouTube/Vimeo clip putting the URL in brackets: [https://youtu.be/Zkdf3kaso]