Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Druckausgabe externer Arbeitsmappe

Forumthread: Druckausgabe externer Arbeitsmappe

Druckausgabe externer Arbeitsmappe
11.01.2006 08:30:45
Hubert
Kann mir jemand helfen die Druckausgabe aus Excel zu automatisieren.
Beispiel im Anhang.
Vielen Dank im voraus.
Gruß Hubert Troendlin
https://www.herber.de/bbs/user/29919.xls
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Druckausgabe externer Arbeitsmappe
11.01.2006 09:44:19
Eugen
hi
also ohne öffnen geht das nicht
in etwa so
dim szstr as string
dim ntable as integer
szStr = Activeworkbook.sheets(1).Cells(19,4).Value ' Zelle d19 auslesen
workbooks.open("Arbeitsmappe 1.xls")
do while instr(szStr,",") grösser 0
ntable = val(mid(szstr,1,instr(szstr,",")-1))
szstr = mid(szStr,instr(szstr,",")+1)
sheets(ntable).printout
loop
ntable = val(szstr)
sheets(nTable).printout
activeworkbook.close
mfg
nicht getestet
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige