Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Caption auslesen und in Excel ausgeben
Autor: Welheim
Datum: 08.04.03 14:46
Soweit bin ich gekommen,will den Captionwert aber nicht in einer MSG-Box sondern in einer schon bestehenden Excel-Tabelle ausgeben!Hat einer Ahnung wie das geht? Public Sub Main() MsgBox "Start..." 'Programmstart Call readForm("C:\Projekte\ParseForm\SearchDlg.frm") 'Pfad aus welchem er lesen soll MsgBox "Fertig." 'Programmende End Sub Private Sub readForm(filepath As String) Dim DateiNr As Integer Dim ZeilenInhalt As String Dim Label As Boolean Dim Cecheckbox As Boolean Dim Frame As Boolean Dim Form As Boolean Dim Commandbutton As Boolean Open "C:\Projekte\ParseForm\SearchDlg.frm" For Input As #1 'Dateiöffnen While Not EOF(1) 'Schleife bis Dateiende Line Input #1, ZeilenInhalt 'Zeile in Variable einlesen If InStr(1, ZeilenInhalt, ".Label") > 0 Then 'Suchst Zeile mit Inhalt Label Label = True End If If Label = True Then 'Wenn Label,vergleichen ob in den nächsten Zeilen eine Caption If InStr(1, ZeilenInhalt, "Caption") > 0 Then 'Wenn Zeileninhalt Caption ist zur MSG-Box MsgBox (Mid(ZeilenInhalt, (InStr(ZeilenInhalt, Chr(34)) + 1), _ Len(ZeilenInhalt) - InStr(ZeilenInhalt, Chr(34)) - 1)) 'Gibt an wie die Caption ausgegeben werden soll Label = False 'Beendet Schleife wenn kein Label gefunden wird End If End If Wend 'Springt zum Schleifenanfang Close #1 ' Datei schließen End Sub

Caption auslesen und in Excel ausgeben	89	Welheim	08.04.03 14:46
Re: Caption auslesen und in Excel ausgeben	476	Prian0815	09.04.03 12:24
Re: Caption auslesen und in Excel ausgeben	524	Prian0815	09.04.03 12:27

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen