Gruppe
Allgemein
Bereich
Interaktion
Thema
Textdatei in Tabellenblatt importieren
Problem
Wie kann ich eine Textdatei in ein Tabellenblatt der aktiven Arbeitsmappe importieren? Das Semikolon ist Feldtrennter und der Inhalt des aktiven Blattes muß vorher gelöscht werden.
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: basMain
Sub TextImport()
Dim wks As Worksheet
Dim vFile As Variant
Application.ScreenUpdating = False
Set wks = ActiveSheet
fFile = Application.GetOpenFilename("Textdateien (*.txt), *.txt")
If vFile = False Then Exit Sub
ActiveSheet.Cells.Delete
Workbooks.OpenText FileName:=vFile, Tab:=False, semicolon:=True, _
comma:=False, Space:=False, other:=False
ActiveSheet.UsedRange.Copy wks.Range("A1")
ActiveWorkbook.Close savechanges:=False
Range("A1").Select
Application.ScreenUpdating = True
End Sub