Excel und VBA: Formeln, Programmierung, Lösungen
Die Excel/VBA-Beispiele
Thema
Textdatei in ein neues Tabellenblatt der Arbeitsmappe importieren
Gruppe
TextImport
Problem
Die in Zelle B1 genannte Textdatei wird in ein neues Blatt dieser Arbeitsmappe importiert.
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: Modul1 Sub TextImport() Dim wkb As Workbook Dim sFile As String Set wkb = ThisWorkbook sFile = Range("B1").Value If Dir(sFile) = "" Then Beep MsgBox "Datei wurde nicht gefunden!" Else Workbooks.OpenText sFile ActiveSheet.Move after:=wkb.Worksheets(wkb.Worksheets.Count) End If End Sub