strFile wird nicht in loop aufgenommen
05.07.2015 11:00:28
Roland
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