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
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,
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
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
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
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
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:
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,
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
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 =
10 matches
Mail list logo