VBA Tipp: Textdatei einlesen

Aus DBWiki
Wechseln zu: Navigation, Suche

Aufgabenstellung

Ich möchte den gesamten Inhalt einer Textdatei in eine String-Variable einlesen, oder in einem Textfeld anzeigen lassen.

Lösung 1

Das geht mit folgender Funktion, die in einem globalen Modul hinterlegt wird.

Public Function DateiAuslesen(Dateipfad As String) As String
 
   'Quelle: www.dbwiki.net oder www.dbwiki.de
 
   'Verwendet Late Binding. Deshalb ist kein Verweis auf
   'die "Microsoft Scriping Runtime" notwendig.
 
   On Error Resume Next
 
   DateiAuslesen = CreateObject("Scripting.FileSystemObject") _
      .OpenTextFile(Dateipfad).ReadAll
 
End Function

Lösung 2

Das geht mit folgender Funktion, die in einem globalen Modul hinterlegt wird.

Public Function DateiAuslesen(Dateipfad As String) As String
 
   'Quelle: www.dbwiki.net oder www.dbwiki.de
 
   Dim d As Integer
 
   d = FreeFile()
 
   Open Dateipfad For Binary Access Read As #d
   DateiAuslesen = Space$(LOF(d))
   Get #d, , DateiAuslesen
 
   Close #d
 
End Function

Aufruf

Rückgabewert der Funktion

   Dim strText as String
 
   strText = DateiAuslesen("C:\Eigene Dateien\DieTextdatei.txt")
   Debug.Print strText
  • als Steuerelementinhalt eines Textfeldes hinterlegen:

=DateiAuslesen("C:\Eigene Dateien\DieTextdatei.txt")

Weblinks