Excel VBA から、クリップボードにテキストをセットする

Excel VBA から、クリップボードにテキストをセットするには、DataObject を使います。

SetText.vb

Dim CB as Object
Set CB = new DataObject
With CB
  .SetText "セットしたい文字列"
  .PutInClipboard  'クリップボードに反映する
End With

参考

• Office TANAKA - Excel VBA Tips[クリップボードを操作する(1)]