Excel nyomtatási feladat
Sziasztok! Hogyan lehet azt megoldani, hogy: Van kb.:100 db xls fájlunk, amelyeknek rendre 10 db ugyan olyan nevű munkalapja, csak az adatokban másak. Azt szeretnénk megoldani, hogy pl. mind a 100-nak csak a 3. munkalapját nyomtassa ki a gépünk... Az a baj, hogy mindig csak az aktuális munkalapot nyomja ki... ami lehet a 3. vagy az 5. vagy bármelyik a 10-ből. Létezik-e arra megoldás, h. a 100 xls fájlra egyszerre be lehessen állítani azt, h. melyik munka lap legyen az aktív, mert egyesével beállítani nagyon kukacos munka... Előre is köszönöm az ötleteket... Zsolt ___ Techinfo mailing list Techinfo@lista.sulinet.hu Fel- és leiratkozás: http://lista.sulinet.hu/mailman/listinfo/techinfo Illemtan: http://www.szag.hu/illemtan.html Ügyfélszolgálat FAQ: http://sulinet.niif.hu/
Re: Excel nyomtatási feladat
Hát ez makrósnak hangzik. Ha van szabályosság a filenevekben, akkor a makró meg is nyithatja és bezárhatja őket egymás után, az se mindegy ilyen számnál. 2014. január 19. 11:55 Zsolt Nagy írta, nagyzsol...@gmail.com: Sziasztok! Hogyan lehet azt megoldani, hogy: Van kb.:100 db xls fájlunk, amelyeknek rendre 10 db ugyan olyan nevű munkalapja, csak az adatokban másak. Azt szeretnénk megoldani, hogy pl. mind a 100-nak csak a 3. munkalapját nyomtassa ki a gépünk... Az a baj, hogy mindig csak az aktuális munkalapot nyomja ki... ami lehet a 3. vagy az 5. vagy bármelyik a 10-ből. Létezik-e arra megoldás, h. a 100 xls fájlra egyszerre be lehessen állítani azt, h. melyik munka lap legyen az aktív, mert egyesével beállítani nagyon kukacos munka... Előre is köszönöm az ötleteket... Zsolt ___ Techinfo mailing list Techinfo@lista.sulinet.hu Fel- és leiratkozás: http://lista.sulinet.hu/mailman/listinfo/techinfo Illemtan: http://www.szag.hu/illemtan.html Ügyfélszolgálat FAQ: http://sulinet.niif.hu/ ___ Techinfo mailing list Techinfo@lista.sulinet.hu Fel- és leiratkozás: http://lista.sulinet.hu/mailman/listinfo/techinfo Illemtan: http://www.szag.hu/illemtan.html Ügyfélszolgálat FAQ: http://sulinet.niif.hu/
Re: Excel nyomtatási feladat
Igen van szabályosság: 2014-01-01-001.xls 2014-01-01-002.xls 2014-01-01-003.xls . . . 2014-01-01-100.xls segítenél elindítani, abban, hogy hogyan is lehet 1 állományt megnyitni aktívvá tenni a kívánt munkalapját (lap3), elmenteni és bezárni? Nagyon köszönöm! Zsolt ___ Techinfo mailing list Techinfo@lista.sulinet.hu Fel- és leiratkozás: http://lista.sulinet.hu/mailman/listinfo/techinfo Illemtan: http://www.szag.hu/illemtan.html Ügyfélszolgálat FAQ: http://sulinet.niif.hu/
Re: Excel nyomtatási feladat
Hú, nekem ebben nincs rutinom. Inkább megvárom, hátha jön valaki, aki napi szinten ír Excel-makrókat, és hatodannyi idő alatt megcsinálja, mint én. 2014. január 19. 12:20 Zsolt Nagy írta, nagyzsol...@gmail.com: Igen van szabályosság: 2014-01-01-001.xls 2014-01-01-002.xls 2014-01-01-003.xls . . . 2014-01-01-100.xls segítenél elindítani, abban, hogy hogyan is lehet 1 állományt megnyitni aktívvá tenni a kívánt munkalapját (lap3), elmenteni és bezárni? Nagyon köszönöm! Zsolt ___ Techinfo mailing list Techinfo@lista.sulinet.hu Fel- és leiratkozás: http://lista.sulinet.hu/mailman/listinfo/techinfo Illemtan: http://www.szag.hu/illemtan.html Ügyfélszolgálat FAQ: http://sulinet.niif.hu/ ___ Techinfo mailing list Techinfo@lista.sulinet.hu Fel- és leiratkozás: http://lista.sulinet.hu/mailman/listinfo/techinfo Illemtan: http://www.szag.hu/illemtan.html Ügyfélszolgálat FAQ: http://sulinet.niif.hu/
Re: Excel nyomtatási feladat
Azt hiszem, feljegyzéses makróval és annak egy kis módosításával megoldható. Nyiss egy üres munkafüzetet, ebbe írd bele a fájlneveket. az elsőn állva abszolút hivatkozással rögzítsd az adott fájl nyomtatását (ezen a fájlon rossz legyen az aktív beállítás) - fájlnyitás - munkalapkijelölés / ezen aktív cella kijelölése - nyomtatandó terület kijelölése (ha kell) - nyomtatás - fájl becsukása - egyet lelépsz a kijelöléssel Ezután a kódban lecseréled a fájl megnyitásában a megfelelő részt a megadott név helyett az aktív cella tartalomára (szöveg összefűzés) teszel köré egy while-t, az üres celláig. SzTZs SzTZs 2014/1/19 Zsolt Nagy nagyzsol...@gmail.com Sziasztok! Hogyan lehet azt megoldani, hogy: Van kb.:100 db xls fájlunk, amelyeknek rendre 10 db ugyan olyan nevű munkalapja, csak az adatokban másak. Azt szeretnénk megoldani, hogy pl. mind a 100-nak csak a 3. munkalapját nyomtassa ki a gépünk... Az a baj, hogy mindig csak az aktuális munkalapot nyomja ki... ami lehet a 3. vagy az 5. vagy bármelyik a 10-ből. Létezik-e arra megoldás, h. a 100 xls fájlra egyszerre be lehessen állítani azt, h. melyik munka lap legyen az aktív, mert egyesével beállítani nagyon kukacos munka... Előre is köszönöm az ötleteket... Zsolt ___ Techinfo mailing list Techinfo@lista.sulinet.hu Fel- és leiratkozás: http://lista.sulinet.hu/mailman/listinfo/techinfo Illemtan: http://www.szag.hu/illemtan.html Ügyfélszolgálat FAQ: http://sulinet.niif.hu/ ___ Techinfo mailing list Techinfo@lista.sulinet.hu Fel- és leiratkozás: http://lista.sulinet.hu/mailman/listinfo/techinfo Illemtan: http://www.szag.hu/illemtan.html Ügyfélszolgálat FAQ: http://sulinet.niif.hu/
Re: Excel nyomtatási feladat
Hello! En regen ugy csinaltam ilyet, hogy rogzitettem egy makrot. ebben a leendo feladat cilus magja volt. Csak csinalni kell. 1. Tehat makro rogzitese menupont 2. Megnyitod az elos allomanyt 3. nyomtatod, amit akarst. 4. Makro rogzitesenek leallitasa. 5. Makro szerkesztese: Egy ciklust raksz a ciklusmag kore, amiben a szukseges valtozo dolgokat, mint allomanynev peldaul folyamatosan valtoztatod. Ennyi. -- Udv: Molnar Peter http://www.petersoft.hu ___ Techinfo mailing list Techinfo@lista.sulinet.hu Fel- és leiratkozás: http://lista.sulinet.hu/mailman/listinfo/techinfo Illemtan: http://www.szag.hu/illemtan.html Ügyfélszolgálat FAQ: http://sulinet.niif.hu/
Re: Excel nyomtatási feladat
Hű ez elég gyors volt, így vasárnap délben :) jaj, de jó Köszönöm Zsuzsa Feljegyzéses makró - utána olvasok... 1. nyitok egy új üres munkafüzetet, ebbe bele is írtam a fájlneveket: A1-es cella: 2014-01-01-001.xls A2-es cella: 2014-01-01-002.xls A3-es cella: 2014-01-01-003.xls A4-es cella: 2014-01-01-004.xls A5-es cella: 2014-01-01-005.xls egyelőre csak ennyit tesztelnék :) 2. az elsőn állva abszolút hivatkozással rögzítsd az adott fájl nyomtatását (ezen a fájlon rossz legyen az aktív beállítás) direkt mind az 5 állományt rosszra állítottam - fájlnyitás - munkalapkijelölés / ezen aktív cella kijelölése - nyomtatandó terület kijelölése (ha kell) - erre nincs szükség, mert 1 A4 lapra ráfér a nyomtatandó - nyomtatás - fájl becsukása - egyet lelépsz a kijelöléssel ezt egy picit részletesebben ki lehetne fejteni, nem túl világos lt Zso 2014. január 19. 12:24 Szalayné Tahy Zsuzsa írta, sz...@infokatedra.hu: Azt hiszem, feljegyzéses makróval és annak egy kis módosításával megoldható. Nyiss egy üres munkafüzetet, ebbe írd bele a fájlneveket. az elsőn állva abszolút hivatkozással rögzítsd az adott fájl nyomtatását (ezen a fájlon rossz legyen az aktív beállítás) - fájlnyitás - munkalapkijelölés / ezen aktív cella kijelölése - nyomtatandó terület kijelölése (ha kell) - nyomtatás - fájl becsukása - egyet lelépsz a kijelöléssel Ezután a kódban lecseréled a fájl megnyitásában a megfelelő részt a megadott név helyett az aktív cella tartalomára (szöveg összefűzés) teszel köré egy while-t, az üres celláig. SzTZs SzTZs 2014/1/19 Zsolt Nagy nagyzsol...@gmail.com Sziasztok! Hogyan lehet azt megoldani, hogy: Van kb.:100 db xls fájlunk, amelyeknek rendre 10 db ugyan olyan nevű munkalapja, csak az adatokban másak. Azt szeretnénk megoldani, hogy pl. mind a 100-nak csak a 3. munkalapját nyomtassa ki a gépünk... Az a baj, hogy mindig csak az aktuális munkalapot nyomja ki... ami lehet a 3. vagy az 5. vagy bármelyik a 10-ből. Létezik-e arra megoldás, h. a 100 xls fájlra egyszerre be lehessen állítani azt, h. melyik munka lap legyen az aktív, mert egyesével beállítani nagyon kukacos munka... Előre is köszönöm az ötleteket... Zsolt ___ Techinfo mailing list Techinfo@lista.sulinet.hu Fel- és leiratkozás: http://lista.sulinet.hu/mailman/listinfo/techinfo Illemtan: http://www.szag.hu/illemtan.html Ügyfélszolgálat FAQ: http://sulinet.niif.hu/ ___ Techinfo mailing list Techinfo@lista.sulinet.hu Fel- és leiratkozás: http://lista.sulinet.hu/mailman/listinfo/techinfo Illemtan: http://www.szag.hu/illemtan.html Ügyfélszolgálat FAQ: http://sulinet.niif.hu/ ___ Techinfo mailing list Techinfo@lista.sulinet.hu Fel- és leiratkozás: http://lista.sulinet.hu/mailman/listinfo/techinfo Illemtan: http://www.szag.hu/illemtan.html Ügyfélszolgálat FAQ: http://sulinet.niif.hu/
Re: Excel nyomtatási feladat
Köszönöm Péter a segítséget... + természetesen Zsuzsának is :) valahogy így néz ki a kód: Sub Nyomtatásos() ' ' Nyomtatásos Makró ' ' Billentyűparancs: Ctrl+á ' ChDir E:\Excel Workbooks.Open Filename:=E:\Excel\2014-01-01-001.xls ActiveWorkbook.PrintOut From:=3, To:=3, Copies:=1, Collate:=True, _ IgnorePrintAreas:=False ChDir E:\Excel Workbooks.Open Filename:=E:\Excel\2014-01-01-002.xls ActiveWorkbook.PrintOut From:=3, To:=3, Copies:=1, Collate:=True, _ IgnorePrintAreas:=False ChDir E:\Excel Workbooks.Open Filename:=E:\Excel\2014-01-01-003.xls ActiveWorkbook.PrintOut From:=3, To:=3, Copies:=1, Collate:=True, _ IgnorePrintAreas:=False ChDir E:\Excel Workbooks.Open Filename:=E:\Excel\2014-01-01-004.xls ActiveWorkbook.PrintOut From:=3, To:=3, Copies:=1, Collate:=True, _ IgnorePrintAreas:=False ChDir E:\Excel Workbooks.Open Filename:=E:\Excel\2014-01-01-005.xls ActiveWorkbook.PrintOut From:=3, To:=3, Copies:=1, Collate:=True, _ IgnorePrintAreas:=False End Sub már csak annyi segítség kell, hogyan tudom ciklusba rakni a file neveket... Zsolt 2014. január 19. 12:37 Molnár Péter írta, moln...@afg.hu: Hello! En regen ugy csinaltam ilyet, hogy rogzitettem egy makrot. ebben a leendo feladat cilus magja volt. Csak csinalni kell. 1. Tehat makro rogzitese menupont 2. Megnyitod az elos allomanyt 3. nyomtatod, amit akarst. 4. Makro rogzitesenek leallitasa. 5. Makro szerkesztese: Egy ciklust raksz a ciklusmag kore, amiben a szukseges valtozo dolgokat, mint allomanynev peldaul folyamatosan valtoztatod. Ennyi. -- Udv: Molnar Peter http://www.petersoft.hu ___ Techinfo mailing list Techinfo@lista.sulinet.hu Fel- és leiratkozás: http://lista.sulinet.hu/mailman/listinfo/techinfo Illemtan: http://www.szag.hu/illemtan.html Ügyfélszolgálat FAQ: http://sulinet.niif.hu/ ___ Techinfo mailing list Techinfo@lista.sulinet.hu Fel- és leiratkozás: http://lista.sulinet.hu/mailman/listinfo/techinfo Illemtan: http://www.szag.hu/illemtan.html Ügyfélszolgálat FAQ: http://sulinet.niif.hu/
Re: Excel nyomtatási feladat
Mindenkinek köszönöm a segítségét... megszületett a végső kód :) A1 A100-ig felvittem a file neveket ahogy Zsuzsa említette... *Sub Nyomtatásos()* *'* *' Nyomtatásos Makró* *'* *' Billentyűparancs: Ctrl+á* *'* *For i = 1 To 100* *ChDir E:\Excel* *Workbooks.Open Filename:=E:\Excel\ Range(A Trim(CStr(i)))* *ActiveWorkbook.PrintOut From:=3, To:=3, Copies:=1, Collate:=True, _* *IgnorePrintAreas:=False* *ActiveWorkbook.Close* *Next* *End Sub* Beillesztetem, ha esetleg valakinek a későbbiekben szüksége lehet ilyesmire... Zsolt 2014. január 19. 12:49 Zsolt Nagy írta, nagyzsol...@gmail.com: Köszönöm Péter a segítséget... + természetesen Zsuzsának is :) valahogy így néz ki a kód: Sub Nyomtatásos() ' ' Nyomtatásos Makró ' ' Billentyűparancs: Ctrl+á ' ChDir E:\Excel Workbooks.Open Filename:=E:\Excel\2014-01-01-001.xls ActiveWorkbook.PrintOut From:=3, To:=3, Copies:=1, Collate:=True, _ IgnorePrintAreas:=False ChDir E:\Excel Workbooks.Open Filename:=E:\Excel\2014-01-01-002.xls ActiveWorkbook.PrintOut From:=3, To:=3, Copies:=1, Collate:=True, _ IgnorePrintAreas:=False ChDir E:\Excel Workbooks.Open Filename:=E:\Excel\2014-01-01-003.xls ActiveWorkbook.PrintOut From:=3, To:=3, Copies:=1, Collate:=True, _ IgnorePrintAreas:=False ChDir E:\Excel Workbooks.Open Filename:=E:\Excel\2014-01-01-004.xls ActiveWorkbook.PrintOut From:=3, To:=3, Copies:=1, Collate:=True, _ IgnorePrintAreas:=False ChDir E:\Excel Workbooks.Open Filename:=E:\Excel\2014-01-01-005.xls ActiveWorkbook.PrintOut From:=3, To:=3, Copies:=1, Collate:=True, _ IgnorePrintAreas:=False End Sub már csak annyi segítség kell, hogyan tudom ciklusba rakni a file neveket... Zsolt 2014. január 19. 12:37 Molnár Péter írta, moln...@afg.hu: Hello! En regen ugy csinaltam ilyet, hogy rogzitettem egy makrot. ebben a leendo feladat cilus magja volt. Csak csinalni kell. 1. Tehat makro rogzitese menupont 2. Megnyitod az elos allomanyt 3. nyomtatod, amit akarst. 4. Makro rogzitesenek leallitasa. 5. Makro szerkesztese: Egy ciklust raksz a ciklusmag kore, amiben a szukseges valtozo dolgokat, mint allomanynev peldaul folyamatosan valtoztatod. Ennyi. -- Udv: Molnar Peter http://www.petersoft.hu ___ Techinfo mailing list Techinfo@lista.sulinet.hu Fel- és leiratkozás: http://lista.sulinet.hu/mailman/listinfo/techinfo Illemtan: http://www.szag.hu/illemtan.html Ügyfélszolgálat FAQ: http://sulinet.niif.hu/ ___ Techinfo mailing list Techinfo@lista.sulinet.hu Fel- és leiratkozás: http://lista.sulinet.hu/mailman/listinfo/techinfo Illemtan: http://www.szag.hu/illemtan.html Ügyfélszolgálat FAQ: http://sulinet.niif.hu/
Re: Excel nyomtatási feladat
Amit én javasoltam, csak annyiban tért el ettől, hogy a ciklusmagban szerepel a következő fájlnév kijelölése és a ciklus addig ment, amíg talált valamit a cellában. (Itt a kiegészítés, hogy a While és cellából érték kiolvasása is meglegyen az utókornak. :-)) While Not ActiveCell.Value = a = E:\Excel\ ActiveCell.Value ... ActiveWorkbook.Close ActiveCell.Offset(1, 0).Range(A1).Select Wend SzTZs 2014/1/19 Zsolt Nagy nagyzsol...@gmail.com Mindenkinek köszönöm a segítségét... megszületett a végső kód :) A1 A100-ig felvittem a file neveket ahogy Zsuzsa említette... *Sub Nyomtatásos()* *'* *' Nyomtatásos Makró* *'* *' Billentyűparancs: Ctrl+á* *'* *For i = 1 To 100* *ChDir E:\Excel* *Workbooks.Open Filename:=E:\Excel\ Range(A Trim(CStr(i)))* *ActiveWorkbook.PrintOut From:=3, To:=3, Copies:=1, Collate:=True, _* *IgnorePrintAreas:=False* *ActiveWorkbook.Close* *Next* *End Sub* Beillesztetem, ha esetleg valakinek a későbbiekben szüksége lehet ilyesmire... Zsolt 2014. január 19. 12:49 Zsolt Nagy írta, nagyzsol...@gmail.com: Köszönöm Péter a segítséget... + természetesen Zsuzsának is :) valahogy így néz ki a kód: Sub Nyomtatásos() ' ' Nyomtatásos Makró ' ' Billentyűparancs: Ctrl+á ' ChDir E:\Excel Workbooks.Open Filename:=E:\Excel\2014-01-01-001.xls ActiveWorkbook.PrintOut From:=3, To:=3, Copies:=1, Collate:=True, _ IgnorePrintAreas:=False ChDir E:\Excel Workbooks.Open Filename:=E:\Excel\2014-01-01-002.xls ActiveWorkbook.PrintOut From:=3, To:=3, Copies:=1, Collate:=True, _ IgnorePrintAreas:=False ChDir E:\Excel Workbooks.Open Filename:=E:\Excel\2014-01-01-003.xls ActiveWorkbook.PrintOut From:=3, To:=3, Copies:=1, Collate:=True, _ IgnorePrintAreas:=False ChDir E:\Excel Workbooks.Open Filename:=E:\Excel\2014-01-01-004.xls ActiveWorkbook.PrintOut From:=3, To:=3, Copies:=1, Collate:=True, _ IgnorePrintAreas:=False ChDir E:\Excel Workbooks.Open Filename:=E:\Excel\2014-01-01-005.xls ActiveWorkbook.PrintOut From:=3, To:=3, Copies:=1, Collate:=True, _ IgnorePrintAreas:=False End Sub már csak annyi segítség kell, hogyan tudom ciklusba rakni a file neveket... Zsolt 2014. január 19. 12:37 Molnár Péter írta, moln...@afg.hu: Hello! En regen ugy csinaltam ilyet, hogy rogzitettem egy makrot. ebben a leendo feladat cilus magja volt. Csak csinalni kell. 1. Tehat makro rogzitese menupont 2. Megnyitod az elos allomanyt 3. nyomtatod, amit akarst. 4. Makro rogzitesenek leallitasa. 5. Makro szerkesztese: Egy ciklust raksz a ciklusmag kore, amiben a szukseges valtozo dolgokat, mint allomanynev peldaul folyamatosan valtoztatod. Ennyi. -- Udv: Molnar Peter http://www.petersoft.hu ___ Techinfo mailing list Techinfo@lista.sulinet.hu Fel- és leiratkozás: http://lista.sulinet.hu/mailman/listinfo/techinfo Illemtan: http://www.szag.hu/illemtan.html Ügyfélszolgálat FAQ: http://sulinet.niif.hu/ ___ Techinfo mailing list Techinfo@lista.sulinet.hu Fel- és leiratkozás: http://lista.sulinet.hu/mailman/listinfo/techinfo Illemtan: http://www.szag.hu/illemtan.html Ügyfélszolgálat FAQ: http://sulinet.niif.hu/ ___ Techinfo mailing list Techinfo@lista.sulinet.hu Fel- és leiratkozás: http://lista.sulinet.hu/mailman/listinfo/techinfo Illemtan: http://www.szag.hu/illemtan.html Ügyfélszolgálat FAQ: http://sulinet.niif.hu/