Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

TextBox1 mit dem Inhalt einer Textdatei füllen

Forumthread: TextBox1 mit dem Inhalt einer Textdatei füllen

TextBox1 mit dem Inhalt einer Textdatei füllen
02.07.2004 13:59:58
Ruedi
Sehr geehrter Damen und Herren!
Möchte auf einem Excel Tabellenblatt, eine separate Textdatei (c:\messwerte.txt) als Information in einer TextBox1 anzeigen lassen!
mfg
Ruedi
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: TextBox1 mit dem Inhalt einer Textdatei füllen
02.07.2004 15:17:09
Uwe
Hallo Ruedi,
Füge folgendes Makro in das Modul der entsprechenden Tabelle ein. Dann wird die Textbox
beim Aktivieren der Tabelle gefüllt.

Private Sub Worksheet_Activate()
Dim strText As String
Dim strD As String
Dim lngL As Long
strD = "c:\messwerte.txt"
lngL = FileLen(strD)
Open strD For Input As #1
Do While Not EOF(1)
strText = Input(lngL, #1)
Loop
Close #1
TextBox1 = strText
End Sub
Gruß Uwe
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige