VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Textdatei auslesen und in MsgBox anzeigen

Gruppe

Extern

Bereich

TextImport

Thema

Textdatei auslesen und in MsgBox anzeigen

Problem

Die Datei aus Zelle B1 soll eingelesen und in einer MsgBox ausgegeben werden.

Lösung

Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.




StandardModule: Modul1

Sub GetText()
   Dim sTxt As String, sText As String, sPath As String
   sPath = Range("B1").Value
   If Dir(sPath) = "" Then
      Beep
      MsgBox "Datei wurde nicht gefunden!"
      Exit Sub
   End If
   Close
   Open sPath For Input As #1
   Do Until EOF(1)
      Line Input #1, sTxt
      sText = sText & sTxt & vbLf
   Loop
   Close
   sText = Left(sText, Len(sText) - 1)
   MsgBox sText
End Sub

    


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