Thema Datum  Von Nutzer Rating
Antwort
Rot VBA - Alle Dateien im Ordner öffnen (xlsx & csv)
28.10.2022 08:11:21 Gast61625
*
NotSolved
28.10.2022 09:17:35 Gast87048
NotSolved

Ansicht des Beitrags:
Von:
Gast61625
Datum:
28.10.2022 08:11:21
Views:
269
Rating: Antwort:
  Ja
Thema:
VBA - Alle Dateien im Ordner öffnen (xlsx & csv)

Hallo an alle.

Ich habe folgenden Code und möchte damit alle Dateien in einem Ordner öffnen: Leider öffnet er mir nur die .xlsx Dateien und ich müsste aber noch die .csv Dateien öffnen. Egal was ich bisher versucht habe, es funktioniert leider nicht so wie ich es möchte. :/
Kann mir da jemand behilflich sein?

'UpdateByExtendoffice20160623
    Dim xStrPath As String
    Dim xFileDialog As FileDialog
    Dim xFile As String
    On Error Resume Next
    Set xFileDialog = Application.FileDialog(msoFileDialogFolderPicker)
    xFileDialog.AllowMultiSelect = False
    xFileDialog.Title = "Select a folder [Kutools for Excel]"
    If xFileDialog.Show = -1 Then
        xStrPath = xFileDialog.SelectedItems(1)
    End If
    If xStrPath = "" Then Exit Sub
    xFile = Dir(xStrPath & "\*.xlsx")
    Do While xFile <> ""
        Workbooks.Open xStrPath & "\" & xFile
        xFile = Dir
    Loop


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot VBA - Alle Dateien im Ordner öffnen (xlsx & csv)
28.10.2022 08:11:21 Gast61625
*
NotSolved
28.10.2022 09:17:35 Gast87048
NotSolved