Archive for 12月 11th, 2012

テキストをクリップボードに送ってくれるVBAコード

12月 11th, 2012

表題の通り、ただそれだけのメソッドです。

VBAでいろいろ編集したテキストをファイルにいちいち出力するのが面倒で作成しました。


Function PutInClipboard(ByVal sendValue As String) As Boolean
 On Error GoTo ERR_FUNC

Dim cb As New DataObject
 With cb
 .SetText sendValue ' 変数のデータをDataObjectに格納する
 .PutInClipboard ' DataObjectのデータをクリップボードに格納する
 End With

 PutInClipboard = True

END_FUNC:
 Exit Function

ERR_FUNC:
 PutInClipboard = False
 Resume END_FUNC

End Function

Posted in VBA, 未分類, 開発 | No Comments »