VBA-Beispiel 051
mail schreiben
mail schreiben

mit VBA Datei in Excel importieren
Dieses Makro importiert den Inhalt der Datei test.txt zeilenweise in die aktive Tabelle.

Beide Dateien müssen sich im gleichen Ordner befinden.
Sub Datei_importieren()

Dim Datei As String, Text As String
Dim Zeile As Long

On Error GoTo Fehler

'Quelldatei festlegen
Datei = ThisWorkbook.Path & "\test.txt"

Open Datei For Input As #1         ' Quelldatei öffnen.
Zeile = 1

Do While Not EOF(1)           ' Schleife bis Dateiende
    Line Input #1, Text      ' Text lesen
    ActiveSheet.Cells(Zeile, 1) = Text
    Zeile = Zeile + 1
Loop

Close #1   'Quelldatei schließen

Exit Sub  

Fehler:
Close #1
    MsgBox "FehlerNr.: " & Err.Number & vbNewLine & vbNewLine _
    & "Beschreibung: " & Err.Description _
    , vbCritical, "da ist leider ein Fehler aufgetreten"
End Sub
Download:   vba051.zip
relevante Links:

top