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(ByVal Dateipfad As String) As String
 
 'Quelle: http://www.dbwiki.net/
 'Late Binding: Kein Verweis auf die Microsoft Scriping Runtime notwendig.
 
 Dim FSO As Object  'FileSystemObject
 Dim TS As Object   'TextStream
 
 On Error Resume Next
 
 Set FSO = CreateObject("Scripting.FileSystemObject")
 Set TS = FSO.OpenTextFile(Dateipfad)
 
 DateiAuslesen = TS.ReadAll
 
 TS.Close
 Set TS = Nothing
 Set FSO = Nothing
 
End Function

Lösung 2

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

Public Function DateiAuslesen(ByVal Dateipfad As String) As String
 
 'Quelle: http://www.dbwiki.net/
 
 Dim d As Integer
 
 d = FreeFile
 
 Open Dateipfad For Binary Access Read As #d
 DateiAuslesen = String(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
  • oder als Steuerelementinhalt eines Textfeldes hinterlegen:

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


Web-Links