Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 12:46:38
Nutzereingaben Speichern und Laden
26.04.2024 11:49:48
VAB und Bedingte Formatierung nimmt die Farbe im Makro nicht
26.04.2024 11:38:46
Acrobat PDF Formularfelder mit Excel ausfüllen
26.04.2024 11:23:04
zählen wenn - aber nur die selektierten Zeilen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
372to376
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
372to376
372to376
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

txt-Datei auslesen

txt-Datei auslesen
29.01.2004 14:59:30
Markus K.
Hallo,
kann ich den Inhalt einer Textdatei ver VBA auslesen und z.B. in einer Msgbox ausgeben?
Danke Gruß Markus

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: txt-Datei auslesen
29.01.2004 15:32:49
Josef Ehrensberger
Hallo Markus!
Ein Beispiel.


Sub TextImport()
   Dim iRow As Integer, iCol As Integer
   Dim sFile As String, sTxt As String, mTxt As String
   sFile = Application.GetOpenFilename("Text Files (*.txt;*.csv;*.dat), *.txt;*.csv;*.dat")
   If Dir(sFile) = "" Then
      Beep
      MsgBox "Datei wurde nicht gefunden!"
      Exit Sub
   End If
   Application.ScreenUpdating = False
   Application.StatusBar = "Datei wird importiert  -  Bitte Warten"
   iRow = 1
   iCol = 1
   Close
   Open sFile For Input As #1
      Do Until EOF(1)
         Line Input #1, sTxt
 mTxt = mTxt & sTxt & vbLf
      Loop
   Close
   Application.StatusBar = False
   Application.ScreenUpdating = True
   MsgBox mTxt
End Sub

     Code eingefügt mit Syntaxhighlighter 2.5

Gruß Sepp
Anzeige
AW: txt-Datei auslesen
29.01.2004 16:04:23
Markus K.
Sepp, das wars! Vielen Dank
Danke für die Rückmeldung! o.T.
29.01.2004 16:07:52
Josef Ehrensberger
/

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige