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

VB&VBA
FROG ふろっぐ
 
  • オプション

    本文印刷

    お気に入りに追加

  • 検索

    Googlewwwjp-ia
     

    Googlewwwjp-ia
     
  • 情報

  • 関連

[VB&VBA][コピー クリップボードにデータを格納する]
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






Production Japan Import Application. Since 1998