MS Excel

Ahoj, mám trošku problém. Prosím o pomoc s exportem listu.
V sešitu mám dva listy. List seznam lístků a lístek.
List Lístek bych potřeboval exportovat (vytvořit kopii) do samostatného sešitu a aby se pojmenoval podle buněk O4 a P4 (Lístek 16.4.2013)a po exportu a přejmenování byl zavřen. Uložení by mělo být do složky ke zdrojovému sešitu (tam kde byl otevřen)
A následně aby se během exportu zapsalo do listu seznam lístků jméno nově vytvořeného sešitu a odkaz na něj.
Prosím o pomoc....Děkuji

Uzamčeno - nelze přidávat nové příspěvky.

marficek119(18.4.2013 0:26)#012960

Trošku jsem polaboroval a částečně vyřešil export a zápis do databáze.
Jen bych od někoho zkušenějšího potřeboval poradit, jak exportovat pouze jeden list. Zatím je to nastaveno na kopii celého sešitu. Přemýšlel jsem nad verzí aby se po vytvoření kopie odstranili nepotřebné listy, ale bude jich cca 30 a nevím zda je to správná cesta je všechny odstraňovat a zachovat jen jeden. Popřípadě nějaký list přibude a bude nutné jej dopsat do kódu.

Příloha: rar

12960_jidelni-listek-export.rar (28kB, staženo 17x)

citovat

Opičák(18.4.2013 0:41)#012962

řešilo se tu kdysi:

http://wall.cz/index.php?m=topic&id=2032&page=2#posts

http://wall.cz/index.php?m=topic&id=2032&page=2#posts citovat

marficek119(19.4.2013 0:03)#012989

Díky.
Ještě prosím o radu. Potřebuji pojmenovat nově vytvořený sešit datumem. Bohužel mě kód nechce načíst datum z buňky. Jde níže uvedený kód upravit tak, aby načítal datum z buňky ve formátu př 18042013 (přesný formát buňky v listu je nastaven na 18.04.2013)
Nebo další varianta je převod datumu na číslo do jiné buňky. Jenže nevím, jak převést datum na číslo 18042013. Zkoušel jsem datum rozdělit a zase spojit, ale vždy to hází chybná čísla.

c_Listku = Worksheets("Návrh_lístku").Cells(1, 21).Value
Jedná se o část kódu který načte datum platnosti z listu a při vytvoření nového sešitu by se měl nový sešit z této buňky pojmenovat Př.18042013.xls

Už jsem v koncích, díky za každou raducitovat

eLCHa(19.4.2013 6:34)#012990

Přemýšlel jsem nad verzí aby se po vytvoření kopie odstranili nepotřebné listy, ale bude jich cca 30 a nevím zda je to správná cesta je všechny odstraňovat a zachovat jen jeden

A co naopak - vytvořít kopii toho listu a nemazat nic

Dim wNewWorkbook As Workbook
Set wNewWorkbook = Workbooks.Add

ThisWorkbook.Worksheets("ListKExportu").Copy Before:=wNewWorkbook.Sheets(1)
Dim sh As Worksheet
For Each sh In wNewWorkbook.Sheets
Application.DisplayAlerts = False
If Not sh.Name = "ListKExportu" Then sh.Delete
Application.DisplayAlerts = True
Next sh
Set sh = Nothing

'kód (nějaké uložení wNewWorkbook.SaveAs)
Set wNewWorkbook = Nothing
nebo možná jednodušší - nemám otestovanou spolehlivost, ale nevidím důvod k problémům
ThisWorkbook.Sheets("ListKExportu").Copy
Dim wNewWorkbook As Workbook
Set wNewWorkbook = ActiveWorkbook
'kód (nějaké uložení wNewWorkbook.SaveAs)
Set wNewWorkbook = Nothing

datum přiřadíte
c_Listku = format(Worksheets("Návrh_lístku").Cells(1, 21).value,"ddmmyyyy")citovat

marficek119(21.4.2013 18:33)#013013

Děkuji moc za pomoc..citovat

Téma: Export

Uživatelské menu

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Aktivní diskuse

Čas od do

Čas od do

Čas od do

Čas od do

Makro smyčka

Makro smyčka

Makro smyčka