< návrat zpět

MS Excel

Téma: Export rss

Zaslal/a marficek119 16.4.2013 23:56

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

Příloha: rar12937_jidelni-listek-export.rar (21kB, staženo 17x)
stop Uzamčeno - nelze přidávat nové příspěvky.
marficek119(18.4.2013 0:26)#012960
avatar
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: rar12960_jidelni-listek-export.rar (28kB, staženo 17x)
citovat
Opičák(18.4.2013 0:41)#012962
Opičák
ř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#postscitovat
marficek119(19.4.2013 0:03)#012989
avatar
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
icon eLCHa(19.4.2013 6:34)#012990
eLCHa
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
avatar
Děkuji moc za pomoc..citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

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.

On-line nástroje