Чтобы записать данные в буфер обмена с помощью VBA, вы можете использовать различные методы. Вот несколько примеров:

Метод 1: использование DataObject из библиотеки Microsoft Forms:

Sub WriteToClipboard_Method1()
    Dim clipboard As MSForms.DataObject
    Set clipboard = New MSForms.DataObject
    clipboard.SetText "Data to be copied"
    clipboard.PutInClipboard
End Sub

Метод 2. Использование API буфера обмена из API Windows:

Private Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function EmptyClipboard Lib "user32" () As Long
Private Declare Function CloseClipboard Lib "user32" () As Long
Private Declare Function SetClipboardData Lib "user32" (ByVal wFormat As Long, ByVal hMem As Long) As Long
Private Declare Function GlobalAlloc Lib "kernel32" (ByVal wFlags As Long, ByVal dwBytes As Long) As Long
Private Declare Function GlobalLock Lib "kernel32" (ByVal hMem As Long) As Long
Private Declare Function GlobalUnlock Lib "kernel32" (ByVal hMem As Long) As Long
Private Declare Function lstrcpy Lib "kernel32" (ByVal lpString1 As Any, ByVal lpString2 As Any) As Long
Sub WriteToClipboard_Method2()
    Dim data As String
    Dim dataPtr As Long
    Dim bufferPtr As Long
    Dim buffer() As Byte

    ' Set the data to be copied
    data = "Data to be copied"

    ' Open the clipboard
    OpenClipboard 0

    ' Clear the clipboard
    EmptyClipboard

    ' Allocate memory and lock it
    dataPtr = StrPtr(data)
    bufferPtr = GlobalAlloc(&HGMEM_MOVEABLE, Len(data) + 1)
    bufferPtr = GlobalLock(bufferPtr)

    ' Copy the data to the memory
    lstrcpy ByVal bufferPtr, ByVal dataPtr

    ' Set the data in the clipboard
    SetClipboardData 2, bufferPtr

    ' Unlock and close the memory
    GlobalUnlock bufferPtr
    CloseClipboard
End Sub

Метод 3. Использование объекта Shell и команды «echo»:

Sub WriteToClipboard_Method3()
    Dim data As String

    ' Set the data to be copied
    data = "Data to be copied"

    ' Execute the "echo" command to copy the data to the clipboard
    Shell "cmd.exe /c echo|set/p=" & data & "|clip", vbHide
End Sub

Это всего лишь несколько примеров того, как можно записывать данные в буфер обмена с помощью VBA. Выберите метод, который лучше всего соответствует вашим потребностям.