Aus Notepad Text in eine Textbox bugsieren
10.11.2004 01:32:13
Fritz Sanne
ich kriege es allein nicht hin und ppassendes habe ich nicht gefunden.
Auf einem Tabellenblatt habe ich in Spalte A die Namen von Notepad-Dateien, die sich imselben Ordner befinden. Ich bin allein (immerhin) so weit gekommen, dass ich mit dem folgenden Code die gewünschte Textdatei öffne. Ich möchte nun den gesamten Text in meine Textbox kriegen und danach die Textdatei schließen. Mit Word kann ich das, ist aber zu aufwändig, finde ich.
Könnt Ihr mir bitte wieder auf die Sprünge helfen?
Private Sub Worksheet_BeforeRightClick(ByVal Target As Excel.Range, Cancel As Boolean)
Dim r As Integer, str As String
r = ActiveCell.Row
'''Pfad der Textdatei wird in Variable gespeichert
str = ActiveWorkbook.Path & "\texte\" & Cells(r, 1).Value & ".txt"
'''Die Textdatei wird aufgerufen
Shell "Notepad.exe" & " " & str
'''Das Userform wird aufgerufen
With frmCMSHilfe
.txtCMSHilfe.Value = str '''(Ab jetzt dachte ich mir, den Inhalt zu übergeben)
.Show
End With
End Sub
Danke für Hilfe.
Grüße, Fritz