ich habe versucht mit diesem Code den Inahlt der TXT zu lesen und in die Zwischenablage zu kopieren.
Das funktioniert irgendwie nicht. Woran liegt das bitte?
Sub Read_PW()
On Error GoTo Fin
Dim objClipBoard As Object
Dim strTMP As String
Dim file As String
file = "C:\DATEN\04_Notizen\PW.txt"
Open file For Binary As #1
strTMP = Space(LOF(1))
Get #1, , strTMP
Close #1
Set objClipBoard = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
With objClipBoard
.SetText strTMP
.PutInClipboard
End With
Debug.Print strTMP
Fin:
Set objClipBoard = Nothing
If Err.number 0 Then MsgBox "Error: " & Err.number & " " & Err.Description
End Sub
Beste Grüße,Sergej