کپی در کلیپ بورد با VBA در اکسل (حافظه موقت clipboard)

کپی در کلیپ بورد با VBA در اکسل (حافظه موقت clipboard)

افزودن کتابخانه Microsoft Forms 2.0 Object Library

در مرحله اول شما باید کتابخانه Microsoft Forms 2.0 Object Library را از طریق محیط VBA که با Alt + F11 باز می شود را به پروژه خود اضافه کنید.

1. محیط VBA رو باز کنید.
2. بر روی Tools > References کلیک کنید.
3. در لیست موجود تیک گزینه Microsoft Forms 2.0 Object Library را بزنید.

کپی در کلیپ بورد با VBA

Sub copytoclipboard()

'PURPOSE: Copy a given text to the clipboard (using DataObject)
'SOURCE: www.TheSpreadsheetGuru.com
'NOTES: Must enable Forms Library: Checkmark Tools > References > Microsoft Forms 2.0 Object Library

Dim obj As New DataObject
Dim txt As String

'Put some text inside a string variable
  txt = "This was copied to the clipboard using VBA!"

'Make object's text equal above string variable
  obj.SetText txt

'Place DataObject's text into the Clipboard
  obj.PutInClipboard

'Notify User
  MsgBox "There is now text copied to your clipboard!", vbInformation
 
End Sub

چسباندن و یا پیست کردن از کلیب بورد

Sub PasteFromClipboard() 

Dim clipboard As MSForms.DataObject
Dim str1 As String 

Set clipboard = New MSForms.DataObject

clipboard.GetFromClipboard 
str1 = clipboard.GetText


End Sub

Sub ClearClipboard()

Dim clipboard As MSForms.DataObject
Set clipboard = New MSForms.DataObject

clipboard.SetText ""
clipboard.PutInClipboard

End Sub