VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Textdatei in Tabellenblatt importieren

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

    


Beiträge aus dem Excel-Forum zu den Themen Allgemein und Interaktion