Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Textdatei auslesen und in MsgBox anzeigen

Gruppe

TextImport

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