Thema: Textdatei in ein neues Tabellenblatt der Arbeitsmappe importieren

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

Beiträge aus dem Excel-Forum zu den Themen Extern und TextImport