| ありがとうございます。
RichTextBox1.Copy()
の後に
Dim xlApp = GetObject(, "Excel.Application")
CallByName(xlApp, "CutCopyMode", CallType.Let, False)
If xlApp IsNot Nothing AndAlso Marshal.IsComObject(xlApp) Then Marshal.ReleaseComObject(xlApp)
を入れたのですが、
コピーすることで、Excel上でセルを選択している表示は解除されることを確認できました。
しかし、Excel上でペーストしてもデータが代入されません、
再度、コピーをやり直すとうまくいくのですが・・・
なぜ1回でうまくいかないのでしょうか？
|