Thema: Textdatei in Tabellenblatt importieren

Home

Gruppe

Allgemein

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

Allgemeine Frage zur Fehlerbehandlung	allgemeine Fragen zu einer Datenbank
allgemein	allgemein: VBA lernen?
Hide-Methode-Allgemeine Frage	Formelassistent allgemein
allgemeingültig Blattschutz aufheben	allgemeine Frage...
Solver - allgemein	Solver - allgemein
Frage zum Forum allgemein	Allgemeine Frage - Finanz-Planungsmodell
Pivoteingrenzung Formel verallgemeinern	makro verallgemeinern
Office allgemein, bitte hilfe	allgemein
Allgemeine Frage zu Makro	Komprimieren möglich? Allgemeine Frage
bedingte Formatierung allgemein	Fehlersuche allgemein
Wie baut man ein allgemeines richtig Modul ein?	Add-In mit Interaktion
Makro allgemein zur Verfügung stellen	Allgemeine Forum-Frage: Kennwort ändern ?
VBA allgemein	Makro allgemein anwenden
Sorry, allgemein	allgemeine Frage
Ein paar allgemeine Fragen	Allgemeine Fragen zu UserForm
Excelhilfe - Syntax - allgemein	Allgemein gültiges Makro/Skript für Hauptmenü
Allgemein gültige Funktionen	Zellenangabe in Allgemeine Form umschreiben
VBA-Fragen im allgemeinen...	Allgemeines zu VBA und VB
allgemeine Laufvariable für While-Schleife?	VBA-Diagramm-Interaktion
Allgemeine Msgbox	Import aus Query: Allgemeiner Fehler
Verknüpfung verallgemeinern	allgemeine frage
allgemeine Schriftart ändern	Gibt es ein allgemeines Verzeichnis?
excel_allgemein	Nochmal an die Allgemeinheit
Allgemeine Blattbezeichnung im Makro	Excel allgemein..VLOOKUP
Allgemeines zu Klassenmodulen	Ordner für Allgemein Vorlagen umstellen