CSV-Datei öffnen und Zeilen in String einlesen Verfasst am: 25.03.2011, 09:56
Erstmal Hallo an alle, ich bin neu hier!
Ich stehe als VB- Neuling momentan vor einem kleinen Problem, vielleicht habe ich auch einfach nur ein Brett vor dem Kopf.
Ich muss ein VB-Skript für Excel schreiben, bei dem eine .csv - Datei geöffnet und die Daten Zeile für Zeile in einen String eingelesen werden. Das Öffnen über einen verknüpften Button funktioniert schon, hier einmal der bisherige Code:
Code:
Sub OpenCSVFile()
Dim FileP As String
Dim i As Integer
Dim wks As Worksheet
Title = "Datei zum Öffnen auswählen."
' Ausgangslaufwerk und Pfad
ChDrive ("C:\")
ChDir ("C:\")
With Application
' Set File Name to selected File
Filename = .GetOpenFilename
End With
' Ende bei Abbruch
' die Variable FileP wird auf den Wert des Pfades gesetzt und im Feld G7 ausgegeben
FileP = Filename
Range("G7") = FileP
If Filename = False Then
MsgBox "Keine Datei ausgewählt."
Exit Sub
End If
Workbooks.Open Filename
End Sub
Nun stehe ich vor dem Problem, dass mir das einlesen der Datei nicht gelingen will.
Habe es schon mit Ansätzen wie for each, while etc. bezogen, doch es will nicht klappen.
Registrieren
Login
