- 「参照設定」で「Microsoft Forms 2.0 Object Library」を選択
- 参照設定のリストにない場合、「参照」でsystem32内にある「FM20.DLL」を選択
- 以下コード
Dim myDO As DataObject Dim myStr As String 'クリップボードに送る文字列 myStr = "Hello Access 2002 VBA !" 'DataObjectオブジェクトのインスタンスの生成 Set myDO = New DataObject '文字列のセット myDO.SetText myStr 'クリップボードに転送 myDO.PutInClipboard