csv-Datei importieren
24.07.2013 09:49:59
Ann
ich weiß, dass es zu diesem Thema schon etliche Beiträge gibt, aber ich werd aus denen leider nicht schlau. Ich hab eine csv-Datei Namens "Messdaten1" die in dem gleichen Ordner liegt wie meine Exceldatei. Jetzt soll das Programm die Datei anhand des Namens suchen und dann in das erste Arbeitsblatt importieren. Die Daten sollen durch Kommas getrennt werden.
Sub ImportWoche()
SearchInFolder ThisWorkbook.Path
End Sub
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
Ann