Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1600to1604
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Inhalt der TXT-Datei in die Zwischeblage speichern

Inhalt der TXT-Datei in die Zwischeblage speichern
10.01.2018 01:25:21
Sergej
Hallo zusammen,
ich habe in einer TXT-Datei die hier liegt C:\Daten\Zugang.txt die nur eine Zeile beinhaltet und in der ein Passwort eingetragen ist.
Wie kann bitte per VBA aus einer TextDatei den Inhalt der Datei (nur eine Ziele) in die Zwischenablage speichern?
Beste Grüße,
Sergej

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Der Inhalt einer Textdatei in...
10.01.2018 07:46:41
Case
Hallo, :-)
... die Zwischenablage kopieren geht so der Spur nach: ;-)
Option Explicit
Sub Main()
Dim objClipBoard As Object
Dim strTMP As String
On Error GoTo Fin
Open "C:\Daten\Zugang.txt" 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
Fin:
MsgBox "Inhalt Zwischenablage = " & strTMP
Set objClipBoard = Nothing
If Err.Number  0 Then MsgBox "Error: " & _
Err.Number & " " & Err.Description
End Sub
Servus
Case

Anzeige
AW: Der Inhalt einer Textdatei in...
10.01.2018 12:55:32
Sergej
Hallo Case,
vielen Dank!
Gruß,
Sergej

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige