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

Ansicht des Beitrags:
Von:
Gast87048		 Datum:
28.10.2022 09:17:35		 Views:
917		 Rating:
     
Antwort:
  Ja
Thema:
VBA - Alle Dateien im Ordner öffnen (xlsx & csv)

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. :/

Versucht huh...? Davon sieht man hier nichts, dabei ist es doch offensichtlich.

ungetestet

Dim wkb As Excel.Workbook

xFile = Dir$(xStrPath & "\*.*")
Do While xFile <> ""

    Select LCase$(Right$(xFile, Len(xFile) - InStrRev(xFile, ".")))
            
        Case "xlsx"
            Set wkb = Workbooks.Open(xStrPath & "\" & xFile)
            
        Case "csv"
            Set wkb = Workbooks.OpenText(xStrPath & "\" & xFile,
                                    Origin := 1252,
                                    Comma := True,
                                    TextQualifier := """",
                                    DecimalSeparator := ".",
                                    ThousandsSeparator := ",")
    End Select

    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
28.10.2022 08:11:21 Gast61625
*
Solved
Blau VBA - Alle Dateien im Ordner öffnen (xlsx & csv)
 28.10.2022 09:17:35 Gast87048
NotSolved