Microsoft Excel

Herbers Excel/VBA-Archiv

strFile wird nicht in loop aufgenommen

Betrifft: strFile wird nicht in loop aufgenommen von: Roland
Geschrieben am: 05.07.2015 11:00:28

Hallo liebes Forum,

ich hänge seit einiger Zeit an einem vermutlich kleinem Problem.
CSV-Dateien, die in einem Ordner liegen, sollen "ausgelesen" werden. Das klappt auch, so lange ich den Pfad "fest verdrate".
Jetzt gibt es aber unterschiedliche Ordner, und ich will das per Abfrage machen.
Hier mein Code

Sub AEDtoESDS()

'select Folder and open CSV File
        Dim strFile As String
        Dim strPath As String
        Dim strExt As String

    strExt = "*.csv"

    With Application.FileDialog(msoFileDialogFolderPicker)
        .InitialFileName = "C:\temp\"
        .AllowMultiSelect = False
        If .Show Then
        strPath = .SelectedItems(1)
        End If
    End With
        strFile = Dir(strPath & strExt)

'*Bis hier klappt alles, aber strFile wird nicht in den Loop übernommen*.
        
        Do While Len(strFile) > 0
        Workbooks.Open Filename:=strPath & strFile
        

'             ***********CODE**************

'CSV close w/o save
            Workbooks(strFile).Close
            strFile = Dir()
        Loop
End Sub


Kann mir hier einer auf die Sprünge helfen?

Vielen Dank

Roland

  

Betrifft: AW: strFile wird nicht in loop aufgenommen von: Sepp
Geschrieben am: 05.07.2015 11:08:56

Hallo Roland,

bei strPath fehlt am Ende der "\"

strFile = Dir(strPath & "\" & strExt) 
Gruß Sepp



  

Betrifft: AW: strFile wird nicht in loop aufgenommen von: Roland
Geschrieben am: 05.07.2015 11:40:46

Hallo Sepp,

vielen, vielen Dank für die schnelle Hilfe.
Wie ich vermutet habe, war es nur ein kleiner, aber zentraler Fehler.

Ich wünsche Dir noch einen schönen (und heißen) Sonntag.

Gruß

Roland