Otevření více souborů Vyřešeno
-
- nováček
- Příspěvky: 17
- Registrován: srpen 08
- Pohlaví:
- Stav:
Offline
Otevření více souborů Vyřešeno
Dobrý den, mám takový problém, kdy musím po jednom otevřít v jednom adresáři několik set různých xlsm souborů, každý z nich přepočítat a uložit do pdf (popřípadě vytisknout přes virtuální pdf tiskárnu) a zase zavřít. Název pdf musí být stejný jako název xlsm souboru. Dokážete mi poradit jak tuto činnost zautomatizovat? Děkuji za pomoc.
-
- Level 4
- Příspěvky: 1142
- Registrován: srpen 08
- Pohlaví:
- Stav:
Offline
Re: Otevření více souborů
Do pdf souboru exportovat vsechny listy nebo vybrany list?
Pokud vsechny, tak kazdy list do samostaneho souboru nebo vsechny listy do jednoho souboru?
Bude pouzit PDFCreator
Prepocet sesitu, listu, bloku bunek?
Pokud vsechny, tak kazdy list do samostaneho souboru nebo vsechny listy do jednoho souboru?
Bude pouzit PDFCreator
Prepocet sesitu, listu, bloku bunek?
-
- nováček
- Příspěvky: 17
- Registrován: srpen 08
- Pohlaví:
- Stav:
Offline
Re: Otevření více souborů
Z každého xlsm souboru bude exportován pouze jeden list. Z každého xlsm souboru bych potřebovat vytvořit pdf, tzn. 200 xlsm zdrojových souborů vytvoří 200 pdf souborů (s jedním listem). Přepočet listu stačí (tuším, že je to calculate ve VBA). Je mi celkem jedno, zda se použije přímo funkce excelu 2007 export do pdf nebo PDFCreator (já používám pdfFactory pro). pdfFactory vytváří pdf o podstatně menší velikosti, ale zase potřebuje zadání cesty a potvrzení uživatelem, tak nevím, zda by to nebyla komplikace při vytváření procedury ve VBA. Klidně by stačilo tedy použít přímo export do pdf z excelu2007.
-
- Level 4
- Příspěvky: 1142
- Registrován: srpen 08
- Pohlaví:
- Stav:
Offline
Re: Otevření více souborů
V priloze je sesit, po jehoz otevreni uprav zdrojovy katalog, rozsireni souboru, nazev listu a cilovy katalog.
Testuj na zkusebni sade sesitu .xlsm
Testuj na zkusebni sade sesitu .xlsm
- Přílohy
-
- XlsmToPdf2.xlsm
- (25.26 KiB) Staženo 54 x
-
- nováček
- Příspěvky: 17
- Registrován: srpen 08
- Pohlaví:
- Stav:
Offline
Re: Otevření více souborů
Dík moc, jenom při exportu mi to zahlásí chybu: Compile error: Method or data member not found a zastaví se to na tomto řádku:
Taky mi to hned při otvírání souboru xlsmtopdf zahlásí: Could not load an object because it is not available on this machine.
Nicméně tato chyba nemá na prvotní funkci souboru asi vliv. Pokud procedury vyřadím, tak vše proběhne (pravděpodobně se pouze nezobrazuje progress bar). Co ale bych rád ještě dořešil je, že zdrojové soubory při otevření vykonávají tuto proceduru:
A při tomto mi to zahlásí chybu. Napadá Vás něco, jak toto vyřešit?
Dále zdrojové xlsm soubory ještě obsahují propojení na jiný sešit, bohužel při otevírání přes VBA mi to zahlásí, že sešit obsahuje několik propojení, které nemůže aktualizovat. Dá se nějak ve VBA natvrdo nastavit cestu k tomuto propojenému souboru? (tento soubor má vždy stejnou cestu)
Kód: Vybrat vše
.PBar.Max = CntFFile
Taky mi to hned při otvírání souboru xlsmtopdf zahlásí: Could not load an object because it is not available on this machine.
Nicméně tato chyba nemá na prvotní funkci souboru asi vliv. Pokud procedury vyřadím, tak vše proběhne (pravděpodobně se pouze nezobrazuje progress bar). Co ale bych rád ještě dořešil je, že zdrojové soubory při otevření vykonávají tuto proceduru:
Kód: Vybrat vše
Private Sub Workbook_Open()
ActiveWorkbook.UpdateLink Name:= _
"'Y:\AZ Dokumenty\Osobní složky\Tomáš\Dokumenty Microsoft Excel\Kalkulace\Zdroje cen.xlsm", Type:=xlExcelLinks
End Sub
A při tomto mi to zahlásí chybu. Napadá Vás něco, jak toto vyřešit?
Dále zdrojové xlsm soubory ještě obsahují propojení na jiný sešit, bohužel při otevírání přes VBA mi to zahlásí, že sešit obsahuje několik propojení, které nemůže aktualizovat. Dá se nějak ve VBA natvrdo nastavit cestu k tomuto propojenému souboru? (tento soubor má vždy stejnou cestu)
-
- Level 4
- Příspěvky: 1142
- Registrován: srpen 08
- Pohlaví:
- Stav:
Offline
Re: Otevření více souborů
Nejspise chybi potrebna knihovna MS Forms 2.0 Object Library - http://p2p.wrox.com/excel-vba/5118-how- ... brary.html ,jinak desktivuj radky tykajici se UserForm - ProgressBar.
Je v poradku retezec (apostrof): "'Y:\AZ Dokumenty\Osobní složky\Tomáš\Dokumenty Microsoft Excel\Kalkulace\Zdroje cen.xlsm" ?
Nejspis pouzij prikaz Sendkeys pro ukonceni pozadavku na propojeni v miste vyskytu pozdavku na aktualizaci, pokud neni propojeni potrebne pro export do PDF.
Je v poradku retezec (apostrof): "'Y:\AZ Dokumenty\Osobní složky\Tomáš\Dokumenty Microsoft Excel\Kalkulace\Zdroje cen.xlsm" ?
Nejspis pouzij prikaz Sendkeys pro ukonceni pozadavku na propojeni v miste vyskytu pozdavku na aktualizaci, pokud neni propojeni potrebne pro export do PDF.
-
- nováček
- Příspěvky: 17
- Registrován: srpen 08
- Pohlaví:
- Stav:
Offline
Re: Otevření více souborů
řetězec je v pořádku, apostrof se mi sem připletl omylem, v souboru není. Když otevřu soubor normálně (v průzkumníku), tak mi vše chodí korektně. Bohužel propojení je potřebné, aby se mi vše správně přepočetlo před exportem do pdf.
-
- Level 4
- Příspěvky: 1142
- Registrován: srpen 08
- Pohlaví:
- Stav:
Offline
Re: Otevření více souborů
Pro otestovani nemam vhodne soubory s propojenim, takze zkus nahradit otevirani souboru jako doplnek normalnim otevrenim. V procedure nahrad radek:
timto, byt pomalejsim:
Kód: Vybrat vše
' otevrit zdrojovy soubor
Set SWbk = GetObject(objFile)
timto, byt pomalejsim:
Kód: Vybrat vše
Set SWbk = Workbooks.Open(objFile)
-
- nováček
- Příspěvky: 17
- Registrován: srpen 08
- Pohlaví:
- Stav:
Offline
Re: Otevření více souborů
Dík moc, už to funguje.
-
- Mohlo by vás zajímat
- Odpovědi
- Zobrazení
- Poslední příspěvek
-
-
Nastavení zabezpečení internetu zabránilo v otevření jednoho nebo více souborů Příloha(y)
od magnator » 06 čer 2023 10:23 » v Windows 11, 10, 8... - 3
- 2102
-
od mmmartin
Zobrazit poslední příspěvek
06 čer 2023 21:22
-
-
- 2
- 989
-
od Myerina
Zobrazit poslední příspěvek
20 dub 2024 11:36
-
-
co je potřeba pro otevření krámu s výpočetní technikou
od souky5 » 02 lis 2023 19:24 » v Reklamace a zákony - 29
- 11727
-
od atari
Zobrazit poslední příspěvek
01 pro 2023 10:23
-
-
- 7
- 817
-
od atari
Zobrazit poslední příspěvek
včera, 09:56
-
-
144hz monitor nefunguje na více než 120hz Příloha(y)
od fakeyn » 11 kvě 2023 21:37 » v Problémy s hardwarem - 1
- 987
-
od kecalek
Zobrazit poslední příspěvek
12 kvě 2023 12:30
-
Kdo je online
Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 3 hosti