Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1688to1692
1688to1692
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

mehrere Dateien öffnen und letzes Blatt drucken

Forumthread: mehrere Dateien öffnen und letzes Blatt drucken

mehrere Dateien öffnen und letzes Blatt drucken
23.04.2019 12:22:02
Andreas
Hallo liebe Forumer,
gibt es eine Möglichkeit mit VB folgendes abzubilden.
Ich möchte gerne ca. 30 Exceldateien (Auswahl) nacheinander öffnen und immer
das letzte Tabellenblatt auf einer Seite ausdrucken?
Danke für eure Hilfe.
Gruß
Andreas
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: mehrere Dateien öffnen und letzes Blatt drucken
23.04.2019 13:56:11
cysu11
Hi Andreas,
verstehe ich das richtig, du möchtest die 30 Dateien beim Ausführen des Codes selbst auswählen können, oder sind die Dateien fest und vorher bekannt?
LG
Alexandra
AW: mehrere Dateien öffnen und letzes Blatt drucken
23.04.2019 13:57:32
UweD
Hallo
hier mal ein Beispiel für 3.
Sub LastPrint()
    Dim Arr, Datei, WB As Workbook, Pfad As String, Ext As String
    
    'Vorgaben 
    Arr = Array("Mappe1", "Mappexx", "Mappe2")
    Pfad = "X:\Temp\test\"
    Ext = ".xlsx"
    'Vorgaben Ende 
    
        
    Pfad = IIf(Right(Pfad, 1) = "\", Pfad, Pfad & "\")
    
    For Each Datei In Arr
    
        If Dir(Pfad & Datei & Ext) <> "" Then
            
            Set WB = Workbooks.Open(Pfad & Datei & Ext) 'öffnen 
            WB.Sheets(Sheets.Count).PrintOut 'letztes Blatt drucken 
            WB.Close False 'schließen 
        
        End If
    
    Next
End Sub

LG UweD
Anzeige
AW: mehrere Dateien öffnen und letzes Blatt drucken
23.04.2019 14:08:50
Andreas
Hallo Uwe,
hallo cxsu11,
vielen Dank schon einmal.
Die Exceldateien befinden sich 4 verschiedenen Ordnern.
DEswegen wäre eine Auswahlmöglichkeit der Dateien gut.
Diese sollen geöffnet werden und das letzte Blatt soll gedruckt werden.
Kann man mit VBA auch einstellen, dass alles was auf dem jeweiligen letzten Blatt
gedruckt wird auf eine Druck-Seite komprimiert wird?
Danke und Gruß
Andreas
Anzeige
AW: mehrere Dateien öffnen und letzes Blatt drucken
23.04.2019 15:02:16
UweD
Hi
also Verzeichnisübergreifend,fällt mir nichts ein.
sonst so...
Auswahl mehrerer Dateien bei gleichzeitigem drücken von Strg oder/und UmschaltTaste
Sub LastPrint()
    Dim Dlg As FileDialog
    Dim Si, Pfad As String
    Dim WB As Workbook, TB As Worksheet
    
    Pfad = "x:\temp"
    
    Set Dlg = Application.FileDialog(msoFileDialogFilePicker) 'Datei wählen" 
    With Dlg
        .AllowMultiSelect = True 'Darf der User mehrere Dateien auswählen Ja 
        .Filters.Add "Excel", "*.xlsx; *.xlsm" 'FIlter, welche Dateien darf er auswählen 
        .InitialFileName = Pfad 'Welches Verzeichnis soll voreingestellt sein 
    End With
    
    If Dlg.Show = True Then
        For Each Si In Dlg.SelectedItems 'Die Abfrage für den selektierten Eintrag 

            'Öffnen 
            Stop
            Set WB = Workbooks.Open(Si)
            
            Set TB = WB.Sheets(WB.Sheets.Count)
            
            'Formatieren 
            Application.PrintCommunication = False
            With TB.PageSetup
                .FitToPagesWide = 1
                .FitToPagesTall = 1
            End With
            Application.PrintCommunication = True
            
            'Drucken 
            TB.PrintOut
            
            'Schließen 
            WB.Close False

        Next
    End If
End Sub

LG UweD
Anzeige
AW: mehrere Dateien öffnen und letzes Blatt drucken
23.04.2019 15:50:04
Andreas
Hallo Uwe,
vielen Dank für deine Hilfe. Es klappt.
Habe die Dateien alle in ein Verzeichnis kopiert.
Gruß
Andreas
Prima! Danke für die Rückmeldung. owT
23.04.2019 15:51:47
UweD

Forumthreads zu verwandten Themen

als PDF drucken
KLE

Hallo und Guten Abend zusammen,
...jetzt habe ich meine Datei super hinbekommen - alles funktioniert und so, aber wie immer kommt mein Chef im Nachgang mit einem Sonderwunsch...und da komm ich ohne Eure Hilfe auch nicht weiter :o(
Ich habe es nun dank Eurer Unterstützung geschafft aus e...
25.09.2008 18:01:07
Thread-ID: 1012395
2 Beiträge
VBA, PDF drucken und speichern
georg

Hallo liebe Excellenzen,
ich habe mich früher des öfteren im Spotlight Forum herumgetrieben. Leider fehlt mir heute die Zeit mich mehr einzubringen.
Hier bei Herber ist es mein erster Beitrag. Vielen Dank dafür dass es hier eine solche Plattform gibt!
Ich habe einen kleinen Server....
12.05.2009 13:23:15
Thread-ID: 1074578
3 Beiträge
VBA Makro erweitern um Funktion "als pdf drucken"
Sandra

Hallo zusammen,
ich hab da mal wieder eine Hürde die ich nicht alleine überwinden kann.
Ich habe ein Makro "bekommen", welches super funktioniert. Es bewirkt, dass die farbigen Markierungen erhalten bleiben, aber nicht auf dem Ausdruck erscheinen.
Nun soll aber der Druck nicht über...
04.08.2009 16:53:32
Thread-ID: 1093571
14 Beiträge
PDF aus Exceldatei drucken
Beni

Hallo miteinander
Ich möchte mehrere PDF Dateien (ohne diese zu öffnen) per Command Button anhand der Pfadangabe in der Tabelle ausdrucken.
A1 = C:\Test\x.pdf
A2 = C:\Test\y.pdf
A3 = C:\Test\z.pdf
etc.
leider finde ich den Weg nicht alleine
Vielen Dank und ein schöne...
04.09.2009 14:19:10
Thread-ID: 1100634
7 Beiträge
Blatt per VBA mit FreePDF als PDF-Datei sichern
Mike

Hallo,
wer kann mir einen Weg oder Beispiel zeigen, wie ich per VBA mit FreePDF ein Worksheet als PDF-Datei speichern kann?
Vielen Dank, Mike.
02.10.2009 00:05:48
Thread-ID: 1106727
5 Beiträge
tabelle per makro als pdf drucken ohne abfrage
Jens

hi leute
hab mal ne frage
ist es möglich die speicher abfrage vom pdf drucker zu umgehen?
ich möchte einen festen ordner vorgeben und die datei soll auch bei jedem druck überschrieben werden ohne nachfrage.
vielen dank im voraus
23.11.2009 08:59:36
Thread-ID: 1119332
3 Beiträge
mehrere Dateien drucken
Thomas

Hallo,
ich habe ein kleines Problem mit ca. 1000 Exceldateien.
Diese müssten nun zur Jahresauswertung gedruckt werden. Nun suche ich eine Möglichkeit alle Dateien auf einmal zu drucken. Das Problem ist das wenn ich im Dateiordner die Dateien markiere und dann im DropDown Menü drucken au...
01.02.2010 17:15:21
Thread-ID: 1134843
7 Beiträge
Tabellenblatt als PDF und als E-Mail senden VBA
andreas

Hallo zusammen,
knifflige Aufgabe, habe eine Anwendung mit mehreren Tabellenblättern.
Jetzt will ich nach betätigen des CommandButton1 Tabellenblatt1 als PDF generieren, der Name des PDF soll sich aus Wert Zelle A1&B1 zusammensetzen, zur PDF Erzeugung habe ich PDF Creator als Druck...
09.06.2010 14:37:06
Thread-ID: 1161083
6 Beiträge
mehrere Dateien sortiert ausdrucken
Joni

Hallo,
ich erzeuge mittels Word und Excel einen Serienbrief, hierbei werden verschiedene Makros ausgeführt. Am Ende sollte ich von jedem Serienbriefdokument ein PDF und 2 Ausdrucke in Papier haben. Die Ausdrucke in Papier sind jedoch unterschiedlich sortiert. Bis zum 2. Ausdruck in Papier i...
24.11.2010 14:06:30
Thread-ID: 1188185
2 Beiträge
PDF Dateien im Verzeichnis drucken/ öffnen
DirkR

Hallo Excelgemeinde,
ich habe mit Hilfe des Forums folgende Datei gebastelt:
https://www.herber.de/bbs/user/78223.xls
Danke für die Hilfe!!!!
Nun habe ich noch 2 Probleme, bei denen ich einfach nicht weiter komme und hoffe auf eure Hilfe.
In der Datei habe ich eine Userform....
05.01.2012 12:09:14
Thread-ID: 1244701
5 Beiträge
Anzeige
PDF - Dateien drucken
DirkR

Hallo Excelgemeinde,
ich habe mit Hilfe des Forums folgende Datei gebastelt:
Die Datei https://www.herber.de/bbs/user/78933.xls wurde aus Datenschutzgründen gelöscht Danke übrigens nochmals für die Hilfe!!!
Man kann mit dieser Datei alle PDF Dateien in einem ausgewählten Ordner (Ink...
15.02.2012 11:25:14
Thread-ID: 1250755
11 Beiträge
pdf-Drucken aus VBA
Torsten

Hallo beisammen,
mit folgendem Code möchte ich eine Tabelle als .pdf speichern:
Sub Makro1() Application.ActivePrinter = "Adobe PDF auf Ne03:" ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _ "Adobe PDF auf Ne03:", PrintToFile:=True, PrToFileName:=Sheets("Tabelle1").Ran...
26.04.2012 01:07:01
Thread-ID: 1260919
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige