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

Forumthread: Ausdruck von Dateien mit Laufnummer über Macro

Ausdruck von Dateien mit Laufnummer über Macro
07.01.2005 11:50:45
Dateien
Hallo Forumbenutzer,
ich hätte ff. Problem:
Habe in einem Verzeichnis 256 Dateien des Typs "Blatt1.xls", "Blatt2.xls".....usw. Nun würde ich diese gern ausdrucken können. Sagen Wir Blatt 20 - 50 und das ganze über ein Makro, da ich absoluter Anfänger bei der VBA Programmierung bin bräuchte ich eure Hilfe. Mir ist nämlich nicht klar wie ich den Namen von der Erweiterung trenne und die Erweiterung als Variable laufen lasse um sie dann wieder anzuhängen.
Wenn mir also jemand helfen kann, wäre das toll.
VG Marco
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Ausdruck von Dateien mit Laufnummer über Macro
Dateien

Sub drucken()
Dim iVon, iBis, strDat As String, iCnt As Integer
Dim strPath As String, strName As String
strPath = "c:\test\"  'dein Pfad
strName = "Blatt" '"Rumpfdateiname"
iVon = InputBox("von:")
If iVon = "" Then Exit Sub
iBis = InputBox("bis:")
If iBis = "" Then Exit Sub
For iCnt = CInt(iVon) To CInt(iBis)
strDat = strPath & strName & iCnt & ".xls"
Workbooks.Open strDat
ActiveWorkbook.PrintOut
ActiveWorkbook.Close False
Next iCnt
End Sub

Anzeige
AW: Ausdruck von Dateien mit Laufnummer über Macro
07.01.2005 13:04:52
Dateien
Der absolute Wahnsinn :-)
funzt einwandfrei, vielen Dank an den edlen Spender. Werde auch mal versuchen das ganze nachzuvollziehen.
VG Marco
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige