Variabler Pfad statt konstant
14.09.2013 21:17:43
Thorsten_Z
Mit folgendem Code (hier aus dem Forum) lese ich csv Dateien ein. Klappt auch alles super.
Ich habe versucht den Pfad Variabel zu machen, bin aber nicht erfolgreich gewesen.
Wie bringe ich dem Code bei, dass der Pfad variabel sein soll... und der Code natürlich weiterhin funktioniert :-)
Sub allecsv2()
Dim sFile As String, sDaten, arrDaten, arrTmp
Dim i As Integer, j As Integer
Dim Pfad As String
Dim zusatz As String
Pfad = ActiveWorkbook.Path & Application.PathSeparator
zusatz = "csvDienste"
Const sFolder As String = "C:\Temp\"
Const sDelim As String = ","
Const sFolder As String = Pfad & zusatz 'Mein Versuch!!!
sFile = Dir(sFolder & "*.csv")
Do While sFile ""
Open sFolder & sFile For Input As #1
sDaten = Split(Input(LOF(1), 1), vbCrLf)
Close #1
arrTmp = Split(sDaten(0), sDelim)
ReDim arrDaten(1 To UBound(sDaten) + 1, 1 To UBound(arrTmp) + 1)
For i = 0 To UBound(sDaten)
arrTmp = Split(sDaten(i), sDelim)
For j = 0 To UBound(arrTmp)
arrDaten(i + 1, j + 1) = arrTmp(j)
Next
Next
Sheets(1).Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(UBound(arrDaten), UBound(arrDaten, _
_
2)) = arrDaten
sFile = Dir
Loop
End Sub
Vielen dank schonmal fürs lesenGruß
Thorsten