{1C3B4210-F441-11CE-B9EA-00AA006B1A69} возвращает два каких-то символа

[Посетитель 19.11.2024]

Коллеги, а почему перестало работать помещение и считывание из буфера обмена через {1C3B4210-F441-11CE-B9EA-00AA006B1A69}, кто знает?
И, главное, как теперь поместить из vba текст в буфер?

[Администратор]

Какая версия Виндоуса у вас?
Какая версия Офиса у вас? Обновления для Офиса устанавливаете?

Может вы думаете, что помещаете в буфер обмена одно, а на самом деле помещаете другое.
Какой текст вы помещаете в объект DataObject? Берёте его из ячейки листа или откуда?

У меня работает такой код:

Sub Макрос()
 
    Dim obj_DataObject As Object
   
    Set obj_DataObject = GetObject(PathName:="New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
   
    obj_DataObject.SetText "Мой текст"
    obj_DataObject.PutInClipboard
 
End Sub