Как заменить данные в буфере обмена на свой текст?

Категория: Basic

2012-07-31 14:31:01

code: #vba

Dim iData As New DataObject, iText$ 'MSForms.DataObject

iText$ = "Скопировать в буфер обмена"
iData.SetText iText$, 1
iData.PutInClipboard

code: #vba

With New DataObject
     .SetText "Заменить данные на этот текст"
     .PutInClipboard
End With

Поделиться:

Sample Code