コピークリップボードにデータを格納する

※より実装に近く表示させる為、コードの改行を避けています。スマホ等で閲覧される際は向きを変えてご覧ください。

※実装するバージョンによってはバージョンアップの仕様により動作しないコードもあります。実装には動作確認の上ご使用下さい。

Option Explicit

'************************************************
'クリップボードにデータを格納する
'************************************************

    'DataObjectオブジェクト(MSFormsメンバ)
    'Microsoft Forms 2.0 Object Library参照設定。
    '※ブックにUserFormを挿入すると自動参照設定される

Function クリップボード格納(Str As String) As String

    Dim clipboard As DataObject
    Dim GetStr As String

    GetStr = Str

    Set clipboard = New DataObject 'DataObjectインスタンス

    clipboard.SetText GetStr 'Set
    clipboard.PutInClipboard '格納

End Function

Function クリップボード取得() As String
    Dim DtObj As New DataObject
    With DtObj
        .GetFromClipboard   'DataObjectに取得
        クリップボード取得 = .GetText 'DataObjectを変数取得
    End With
End Function

Private Sub test()
クリップボード格納 ("ほにゃらら")
MsgBox クリップボード取得
End Sub

JPIA

JP-IA 日本インポートアプリ

コピークリップボードにデータを格納する