クリップボードにテキストを送る／読み取る

文書上でコピーや貼り付けをすることなくクリップボードとやり取りをします。マクロで合成したテキストをクリップボードに送ったり、クリップボード内のテキスト情報を読み取ったりします。

テキストをクリップボードに直接送るマクロ

入力情報などからマクロで合成したテキストをクリップボードに送ります。テキストは他のアプリに貼り付けて利用できます。

'参照: Microsoft Forms 2.0 Object Library
Public Sub クリップボードに転記()

    Dim oData As New DataObject
    Dim txtVal As String
    
    txtVal = Range("B2").Value & vbCrLf & Range("B3").Value & vbCrLf & Range("B4").Value
    
    oData.SetText txtVal
    oData.PutInClipboard

End Sub

クリップボード内のテキストを取り出すマクロ

DataObject オブジェクトを介して、すでにクリップボードにセットされているテキストを取り出すこともできます。貼り付け前に内容をチェックするような使い方ができます。

'参照: Microsoft Forms 2.0 Object Library
Public Sub クリップボードから取り出し()

    Dim oData As New DataObject
    Dim txtVal As String
    
    oData.GetFromClipboard
    If oData.GetFormat(1) = False Then Exit Sub
    
    txtVal = oData.GetText

End Sub