Zwischenablage in Spalten einfügen
Heiko Braeske
ich möchte mit VBA aus der Zwischenablage eine Excel-Tabelle befüllen.
Die Zwischenablage wird in einem anderen Programm mit einer TAB-getrennten
Tabelle befüllt. Wenn ich die Daten mit
ActiveSheet.Paste
einfüge, dann wird die Datumsspalte nicht als Datum eingefügt und Zahlen mit
einem Komma als Dezimaltrennzeichen nicht als Zahl eingefügt.
Wenn ich die selbe Zwischenablage erst in eine Textdatei einfüge und dann
die Textdatei mittels VBA öffne, dann kann ich sehr genau steuern welche
Spalte ein Datum beinhaltet und welche Zahlen.
Jetzt ergeben sich zwei Fragen:
- Kann ich auf irgendeine Weise auch das Einfügen aus der Zwischenablage
steuern?
- Kann ich mit VBA die Zwischenablage in ein einfaches (temporäres) Textfile
speichern?
Mit freundlichen Grüßen
Heiko Braeske
stefan onken
evtl geht das mit dem DataObject-Objekt, etwa so:
(einrichten des Verweises nicht vergessen)
Sub Clipboard()
'im VBA-Editor unter Extras/Verweise
'Verweis auf Microsoft Forms 2.0 Object
Dim MyData As DataObject
Set MyData = New DataObject
MyData.getfromclipboard
MsgBox MyData.GetText
Open "d:\txtClipboard.txt" For Output As #1
Print #1, MyData.GetText
Close #1
End Sub
Die temporäre Datei kannst du anschließend mit der Kill-Anweisung löschen.
Gruß
stefan
"Heiko Braeske" schrieb: