excelvbaで文字列をクリップボードにコピーしてから貼り付ける

excelvba

DoEventsないと　コケることある

    Dim buf As String, buf2 As String, CB As New DataObject
    buf = "tanaka"
    With CB
        .SetText buf        ''変数のデータをDataObjectに格納する
　　　　DoEvents
        .PutInClipboard     ''DataObjectのデータをクリップボードに格納する
　　　　DoEvents
    End With
    
    'コピーしたセルをセルA2へ貼り付けます
    Range("A2").PasteSpecial

ネタ元