csv-Datei importieren

Private Sub SearchInFolder(ByVal Folderspec As String)
Dim StTyp As String
Dim FSO As Object
Dim FI As Object
Dim n As Integer
Dim i As Integer
Set FSO = CreateObject("Scripting.Filesystemobject")    'Zugriff auf das Dateisystem des  _
Computers
If Not FSO.FolderExists(Folderspec) Then
MsgBox Folderspec & "Datei ist nicht vorhanden."
Set FSO = Nothing
Exit Sub
End If
StTyp = "csv"
StWort = "Messdaten1"
For Each FI In FSO.GetFolder(Folderspec).Files
If UCase(FSO.GetExtensionName(FI)) = UCase(StTyp) Then
For i = 1 To Len(FI)
If UCase(Mid$(FI, i, 10)) = UCase(StWort) Then
ActiveWorkbook.Import FI, _
ImportMap:=Nothing, Overwrite:=True, Destination:=Sheets
("Tabelle1").Cells(1, 1)
GoTo Schleife
End If
Next i
End If
Schleife:
Next
End Sub