HOME > 即効テクニック > AccessVBA > Windows環境・オブジェクト > クリップボードに文字列を送る

即効テクニック

Windows環境・オブジェクト

クリップボードに文字列を送る

(Access 2000/2002/2003)
●概要●
構文  expression.SetText(StoreData, format)
      expression.PutInClipboard

設定項目        内容
expression      DataObjectオブジェクト
StoreData       DataObjectオブジェクトに格納するデータを指定[省略不可]
format          引数で指定したデータ形式を表す整数値または
                文字列を指定[省略可能]

DataObjectを使用してクリップボードに文字列を送ります。DataObjectを使用するには「Microsoft Forms 2.0 Object Library」への参照が必要です。Visual Basic Editorのメニューから[ツール]→[参照設定]コマンドを選択し[参照設定]ダイアログボックスで「Microsoft Forms 2.0 Object Library」にチェックを入れて、[OK]ボタンをクリックし、参照設定を行います。「参照可能なライブラリ ファイル」のリストにない場合は、[参照設定]ダイアログボックスで[参照]ボタンをクリックして「C:\WINNT(または Windows)\system32\FM20.DLL」を選択します。
次のサンプルでは、SetTextメソッドを使用して文字列をDateObjectオブジェクトに格納し、PutInClipboardメソッドを使用してデータをクリップボードに送ります。

●サンプル●
'クリップボードに文字列を送る
Sub SetClipBoardSample()
    Dim myDO As DataObject
    Dim myStr As String     'クリップボードに送る文字列
    myStr = "Hello Access 2002 VBA !"
    'DataObjectオブジェクトのインスタンスの生成
    Set myDO = New DataObject
    '文字列のセット
    myDO.SetText myStr
    'クリップボードに転送
    myDO.PutInClipboard
End Sub

●実行結果●
クリップボードに「Hello Access 2002 VBA !」の文字列が送られます。テキストエディタなどにペースト操作して、文字列を確かめてみましょう。