Makro na skopírovanie a uloženie zošita pod názvom z bunky

[JaroN]

Zdraví všetkých,

Potreboval by som aby mi zo zdrojového súboru(xls) vy exportoval harok s dátami, ale už iba s hodnotami (bez vzorcov) do nového súboru a ten sa následne vytlačil a uložil pod názvom, ktorý sa nachádza v bunke vy exportovaného zošita. Ide mi hlavne o to ukladanie ostatne som si ako tak doriešil.




Vopred ďakuje za pomoc

[navstevnik]

Takze postaci utrzek kodu pro vytoreni noveho sesitu s kopirovanym listem a ulozeni sesitu pod nazvem z bunky:

Kód: Vybrat vše

 
      CilCesta = "D:\......"
      ...
      ' vytvoreni noveho sesitu a kopirovani - kdyz neni specifikovano Before nebo After
      ' MS Excel vytvori novy sesit obsahujici kopirovany list:
       Worksheets("list1").Copy
      CilSouborNaz = ActiveSheet.Range("A1").Value ' nazev souboru z bunky vyexportovaneho sesitu
      ActiveWorkbook.SaveAs (CilCesta & "\" & CilSouborNaz)
      ...
     ' tady bude kod pro tisk