Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1432to1436
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

strFile wird nicht in loop aufgenommen

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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: strFile wird nicht in loop aufgenommen
05.07.2015 11:08:56
Sepp
Hallo Roland,
bei strPath fehlt am Ende der "\"
strFile = Dir(strPath & "\" & strExt) 
Gruß Sepp

AW: strFile wird nicht in loop aufgenommen
05.07.2015 11:40:46
Roland
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

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige