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

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

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

Option Explicit


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

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

Function クリップボード格納(Str As StringAs 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

 

 

2000年01月01日|[VBサンプルコード]:[Copy]