22

このようなコードを使用して、クリップボードからテキストを取得しています。

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

エラー処理を使用して、クリップボードが空の場合を回避します。エラー トラップを未処理のエラーで中断するように設定している限り、すべて問題ありません。

ただし、無関係な理由で、エラー トラップをすべてのエラーで中断するように設定したいのですDataObj.GetTextが、空のクリップボードが見つかったときにエラーがスローされます。空のクリップボードを処理しようとするのを避けるために、さらに上流に適用できるテストはありますか?

4

2 に答える 2

28

次に示すようにエラーを処理しOn Error GoToます。

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

空のクリップボードも処理されることに気付くでしょう。

注意: コードを機能させるには、「Microsoft Forms 2.0 Object Library」への参照C:\windows\system32\FM20.dllが必要です (このファイルは、32 ビット マシンでは 、またはC:\Windows\sysWOW64\FM20.dll64 ビット マシンでは にあります)。そうしないと、エラーが発生します。「ユーザー定義型が定義されていません」 .

上記のコードをテストする前に、次のコードを使用してクリップボードを空にすることができます。モジュールに貼り付けてください。

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

編集:次のコードを使用して、クリップボードが空かどうかを判断することもできます:

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
于 2012-01-26T19:44:08.457 に答える