Excel und VBA: Formeln, Programmierung, Lösungen
Die Excel/VBA-Beispiele
Thema
Textdatei in Tabellenblatt importieren
Gruppe
Interaktion
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