Ulozeni souboru xlsm pomocí makra Vyřešeno

[luko02420]

Zdravím lidičky potřeboval bych pomoct s upravou makra pro ukládaní souboru. postup i nejake makro jsem tady nasel ukladani jako takove funguje jenom nemuzu donutit makro aby mi soubor ulozilo s priponou xlsm. uklada me to v neznamem souboru. prosim o radu nebo pomoc. Dekuji vsem za ochotu.

Sub ulozeni_dokumentu()

jmeno = Range("K3")
ActiveWorkbook.SaveAs Filename:="C:\Users\uzivatel\Documents\Dodací listy\2012\Alcaplast\" & jmeno
MsgBox "Alcacaplast" & jmeno
End Sub

[Reklama]

[cmuch]

V tom políčku je název i skoncovkou nebo jen název souboru?
Pokud jen název tak si přidej koncovku do makra.

[luko02420]

Jestli to chapu spravne tak mam koncovku pridat do policka K3. Ale tam mam vzorec pro aktualni datum nejak se mi to nedari tam dostat
Uz jsem to rozchodil timto zpusobem
jeste malickost jde do nazvu souboru dostat pomlcku v nazvu souboru to mam vsechno namackany na sobe. (Alcaplast3.10.2012)

Sub ulozeni_dokumentu()

jmeno = Range("C50")
jmeno1 = Range("O2")
jmeno2 = Range("O3")
ActiveWorkbook.SaveAs Filename:="C:\Users\uzivatel\Documents\Dodací listy\2012\Alcaplast\" & jmeno1 & jmeno & jmeno2
MsgBox "Alcaplast " & jmeno

End Sub

[guest]

No hlavně byste měl používat parametr FileFormat:=xlOpenXMLWorkbookMacroEnabled. Jak si slepit řetězec s názvem souboru snad není takový problém (promenna1 & "-" & promenna2).

[luko02420]

Dobry den, parametr Fileformat jsem ta mel a nefungovalo me to. Pokud jsem nekoho urazil svym dotazem tak se omlouvam nejsem expert na excel.

Uz vse funguje jak ma dekuji moc za pomoc vsem.