Получение текста из буфера обмена с помощью GetText-избегайте ошибок в пустом буфере обмена

Я использую такой код, чтобы получить текст из буфера обмена.

Dim DataObj As New MSForms.DataObject
DataObj.GetFromClipboard
myString = DataObj.GetText

Я использую обработку ошибок, чтобы получить прошлое, когда буфер обмена пуст, и все в порядке, пока я сохраняю набор ошибок для захвата на необработанные ошибки.

однако по несвязанным причинам я хочу установить ловушку ошибок, чтобы сломать все ошибки, и это вызывает ошибку в DataObj.GetText когда он находит пустой буфер обмена. Есть ли какой-либо тест, который я могу применить выше по течению к избегайте попыток обработать пустой буфер обмена?

12
clipboarddata excel excel-2003 excel-vba vba

3 ответов

это поможет?

Sub GetClipBoardText()
   Dim DataObj As MSForms.DataObject
   Set DataObj = New MsForms.DataObject '<~~ Amended as per jp's suggestion

   On Error GoTo Whoa

   '~~> Get data from the clipboard.
   DataObj.GetFromClipboard

   '~~> Get clipboard contents
   myString = DataObj.GetText(1)
   MsgBox myString

   Exit Sub
Whoa:
   If Err <> 0 Then MsgBox "Data on clipboard is not text or is empty"
End Sub

Вы заметите, что он будет обрабатывать, а также пустой буфер обмена.

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

Private Declare Function OpenClipboard Lib "User32.dll" _
(ByVal hWndNewOwner As Long) As Long

Private Declare Function EmptyClipboard Lib "User32.dll" () As Long

Private Declare Function CloseClipboard Lib "User32.dll" () As Long

Public Sub ClearClipboard()
    Dim Ret

    Ret = OpenClipboard(0&)
    If Ret <> 0 Then Ret = EmptyClipboard
    CloseClipboard
End Sub

EDIT: новый запрос от OP

Private Declare Function CountClipboardFormats Lib "user32" () As Long

Sub Sample()
    If (CountClipboardFormats() = 0) = True Then
        MsgBox "Clipboard is empty"
    Else
        MsgBox "Clipboard is not empty"
    End If
End Sub
16

надеюсь, это поможет кому-то еще:

Я получал ошибку "определяемый пользователем тип не определен" в коде, опубликованном Сиддхартха-разгром

оказывается, библиотека "Microsoft Forms 2.0 Object Library" отсутствует / не активирована.

получил его для работы с этим (http://excel-macro.tutorialhorizon.com/vba-excel-reference-libraries-in-excel-workbook/):

"иногда вы не найдете нужные ссылки в списке, что вы не будете найдите "Microsoft Forms 2.0 Object Library" в списке инструмент/справочник в этом случае вам нужно просмотреть FM20.DLL файл из system32"

5

добавьте следующий код только B4 ломая строку для отладки.... ошибка исчезла для меня после этого теста.. wierd, но он как-то работает (Excel 2010)

myString = DataObj.GetText(1)
MsgBox myString
0