Probleme beim Texteinlesen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
TextBox


Excel-Version: Alle Versionen
nach unten

Betrifft: Probleme beim Texteinlesen
von: Daniela
Geschrieben am: 04.07.2002 - 09:18:37

Hallo, ich hoffe, dass mir mal wieder jemand helfen kann. Ich möchte ein .txt in ein Textfeld einlesen. Aber ich bekomme immer eine Fehlermeldung, dass das Steuerelemet den Fokus haben muss!
Wie kann man diesen Fehler beheben??

Danke Daniela


nach oben   nach unten

Re: Probleme beim Texteinlesen
von: Hans W. Herber
Geschrieben am: 04.07.2002 - 09:32:47

Hallo Daniela,

die Fehlermeldung ergibt keinen Sinn. Wie lautet exakt der Befehl zum Einlesen?

hans


nach oben   nach unten

Re: Probleme beim Texteinlesen
von: Daniela
Geschrieben am: 04.07.2002 - 09:36:31

Open f For Input As #filenummer
Do While Not EOF(1)
Input #filenummer, t
Loop
Close filenummer
txt.Text = f

Das meine ich ja auch! f ist die Variable für die Datei, die vorher per aktivXSte.... ausgewählt wird!

Daniela


nach oben   nach unten

Re: Probleme beim Texteinlesen
von: Hans W. Herber
Geschrieben am: 04.07.2002 - 09:42:52

... der Text wird in der Variablen t gespeichert, die allerdings bei jeder Zeile überschrieben wird. Wenn Du der TextBox als t zuweist, hast Du zumindest mal eine Zeile.
Ich würde empfehlen, mit "Line Input" arbeiten und zeilenweise in eine Variable speichern, diese Variable dann der TextBox zuweisen.

hans


nach oben   nach unten

Re: Probleme beim Texteinlesen
von: Daniela
Geschrieben am: 04.07.2002 - 09:57:35

Danke, nachdem ich es mir nochmal angesehen habe, habe ich den Fehler auch gefunden! Mit LineInput geht das irgendwie nicht, dann markiert er die Zeile rot! Aber jetzt habe ich noch das Problem, dass es alles was in der datei steht ohne Leerzeilen und Zeilenumbrüche ausgibt!


Dim FileLength
Dim filenummer


txt.SetFocus
txt.Text = ""

filenummer = FreeFile

f = strResFolder
Open f For Input As #filenummer
Do While Not EOF(1)
Input #filenummer, t
txt.SetFocus
txt.Text = txt.Text & t & vbCrLf
Loop
Close filenummer


nach oben   nach unten

Re: Probleme beim Texteinlesen
von: Hans W. Herber
Geschrieben am: 04.07.2002 - 10:03:35

... ach was:


Sub TextInTextBox()
   Dim sTxt As String, sText As String
   Close
   Open "c:\test.txt" For Input As #1
   Do Until EOF(1)
      Line Input #1, sTxt
      sText = sText & vbLf & sTxt
   Loop
   ActiveSheet.TextBox1.Text = sText
   Close
End Sub

hans

nach oben   nach unten

Re: Probleme beim Texteinlesen
von: Daniela
Geschrieben am: 04.07.2002 - 10:12:31

Danke!

Daniela


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Formel neu berechnen bei Textfeldbearbeitung"