Dateiexplorer die ausgwählten Dateien ausdrucken

12.04.2025 16:25:51

norbert

Gute Tag,
ich befinde mich in einem Ordner, dort werden alle Excel Dateien aufgeführt,
diese möchte ich gern untereinander als Liste ausdrucken.
Wenn das nicht möglich ist, alle Dateien in eine Excel Datei kopieren und dann halt ausdrucken.

mfg norbert

AW: Dateiexplorer die ausgwählten Dateien ausdrucken

12.04.2025 16:43:42

RPP63

Moin Norbert!
»ich befinde mich in einem Ordner«
Ich sitze hier vor dem Bildschirm. ;)
Jetzt ernsthaft:
Die Excel-Dateien im Ordner sind alle gleich aufgebaut und Du möchtest sie in einer Datei zusammenführen und dann ausdrucken?
Dann solltest Du Dich mit Power Query auseinandersetzen.
Daten → Daten abrufen → Aus Datei → Aus Ordner

Gruß Ralf

und ein Tipp ohne Power Query ?

12.04.2025 20:05:25

norbert

Hallo zusammen,
kenne mich mit Power Query nicht aus.
mfg norbert

AW: und ein Tipp ohne Power Query ?

12.04.2025 20:31:07

RPP63

Möchtest Du sie nacheinander drucken oder soll konsolidiert werden?
Für das erste reicht, alle Dateien im Explorer zu markieren und aus dem Kontextmenü Drucken zu wählen

AW: und ein Tipp ohne Power Query ?

12.04.2025 20:31:22

cysu11

HI NOrbert,

versuche das mal...

https://www.herber.de/mailing/Alle_Dateien_eines_Verzeichnisses_drucken.htm

LG, Alexandra

AW: und ein Tipp ohne Power Query ?

12.04.2025 20:35:27

Jowe

Hallo,
hier ein Makro sowie eine Funktion die vom Makro aus gestartet wird (beides in neues Modul einfügen!) .
Beides zusammen (nach Start der Sub) listet alle Dateien eines zuvor festzulegenden Ordners auf.
Den Ausdruck der dann gefüllten Tabelle wirst Du wohl schaffen :=)

Option Explicit



Public Sub Explorer_Dateien_kopieren()

    Dim Datei As String

    ActiveSheet.Range("A2:E" & Rows.Count).ClearContents

    Datei = Dir(GetFolder("G:\") & "*.*")

    Do While Datei > ""

        ActiveSheet.Range("A" & Rows.Count).End(xlUp).Offset(1, 0) = Datei

        Datei = Dir

    Loop

    ActiveWorkbook.Worksheets("Tabelle1").Sort.SortFields.Clear

    ActiveWorkbook.Worksheets("Tabelle1").Sort.SortFields.Add2 Key:=Range( _

        "A:A"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _

        xlSortNormal

    With ActiveWorkbook.Worksheets("Tabelle1").Sort

        .SetRange Range("A:A")

        .Header = xlYes

        .MatchCase = False

        .Orientation = xlTopToBottom

        .SortMethod = xlPinYin

        .Apply

    End With

    

    Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row).Copy _

    Destination:=Range("B2")

    

    Application.CutCopyMode = False

    Range("B2:B9999").TextToColumns Destination:=Range("B2"), DataType:=xlDelimited, _

        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _

        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _

        :=".", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1)), _

        TrailingMinusNumbers:=True

    Columns("B:E").EntireColumn.AutoFit

    

    Range("A1").Select

End Sub



Function GetFolder(Optional StartVerzeichnis As String = "C:") As String

    With Application.FileDialog(msoFileDialogFolderPicker)

        .AllowMultiSelect = False

        .InitialFileName = StartVerzeichnis  '== Startordner

        .Show

        If .SelectedItems.Count > 0 Then GetFolder = .SelectedItems(1) & IIf(Right(.SelectedItems(1), 1) = "\", "", "\")

    End With

    Range("A1").Value = "Elemente in Ordner " & GetFolder

End Function

Gruß
Jochen

Habe auch was gefunden und läuft ... -)

12.04.2025 21:35:52

norbert

Hallo zusammen,
habe auch etwas gefunden und das läuft und so brauch ich es.

Sub DateienAusOrdnerEinlesen()





    Dim OrdnerPfad As String

    Dim DateiName As String

    Dim Zeile As Long

    Dim DateiDialog As FileDialog



    ' Ordnerauswahl über Windows Explorer

    Set DateiDialog = Application.FileDialog(msoFileDialogFolderPicker)

    With DateiDialog

        .Title = "Ordner auswählen"

        If .Show > -1 Then

            MsgBox "Kein Ordner ausgewählt!", vbExclamation

            Exit Sub

        End If

        OrdnerPfad = .SelectedItems(1)

    End With



    ' Sicherstellen, dass der Pfad mit Backslash endet

    If Right(OrdnerPfad, 1) > "\" Then

        OrdnerPfad = OrdnerPfad & "\"

    End If



    ' Erste Zeile für Ausgabe

    Zeile = 3

    ' Überschrift in Zeile 1

    Cells(1, 1).Value = "Dateiname"

    Cells(1, 2).Value = "Pfad"



    ' Erste Datei im Ordner holen

    DateiName = Dir(OrdnerPfad & "*.*")



    Do While DateiName > ""

        Cells(Zeile, 1).Value = DateiName

        Cells(Zeile, 2).Value = OrdnerPfad & DateiName

        Zeile = Zeile + 1

        DateiName = Dir

    Loop



    MsgBox "Dateien wurden erfolgreich eingelesen.", vbInformation

End Sub

Danke an ALLE und schönes Wochenende,
mfg norbert

AW: Habe auch was gefunden und läuft ... -)

13.04.2025 12:30:07

RPP63

Ich frage mich nur gerade, was das jetzt mit ausdrucken zu tun hat.
Du solltest eventuell mal Deine Threaderöffnung hinterfragen.
Außerdem ist es meist sinnvoll, Nachfragen zu beantworten.

Dateiexplorer die ausgwählten Dateien ausdrucken

Forumthread: Dateiexplorer die ausgwählten Dateien ausdrucken

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Dateiexplorer die ausgwählten Dateien ausdrucken

Forumthread: Dateiexplorer die ausgwählten Dateien ausdrucken

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread