セルをコピーしてフォームのテキストボックスに貼り付けたい

Question

セルをコピーしてフォームのテキストボックスに貼り付けると何もペーストされません。
プレーンテキストだと貼り付けられます。
なので、テキストボックスのkeydownイベント時にキーを監視して、クリップボードからテキストだけ取り出せないかなと以下のようにしたんですが、FORMATEC構造体が無効ですというエラーがでて出来ません。

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

    Dim obj As DataObject
    Set obj = New DataObject
    obj.GetFromClipboard
    
   
    If KeyCode = vbKeyV And Shift = 2 Then
    
        MsgBox obj.GetText
        
    
    End If

End Sub

恐らくセルをコピーするとクリップボードのフォーマットがテキストではない違うフォーマットになるからだと思いますが、どうにかしてテキストだけ取り出してテキストボックスに貼り付けられないでしょうか？

とにかく私のやりたいことは、
エクセルのセルをコピーしてメモ帳に貼り付けるとテキストだけが貼り付けられますよね？
あれと同じようにVBAのフォームのテキストボックスに貼り付けても同じようにテキストが貼り付けられるようにしたいんです。

Answer 1

クリップボードは、文字列だけでなく、画面キャプチャーなどのビットマップも登録することができます。クリプボードに何もなかったり、クリップボードのデータが文字列で取り出しできない場合には、このようなエラーが発生するようです。
クリップボードの中のデータが文字列で取り出せるかどうか調べるには、 Application.ClipboardFormatsの返却値である配列を調べる必要があります。

cb = Application.ClipboardFormats
If cb(LBound(cb)) = -1 Then Exit Function    ' クリップボードが空
For i = LBound(cb) To UBound(cb)
    If cb(i) = xlClipboardFormatText Then ’ GetFromClipboardとGetTextによるデータ取得が可能になります。
Next i

なお、こちらでもちょっと調べてみましたが、別のアプリ（IEブラウザやメモ帳、Word)からカットあるいはコピーすればクリップボード取り出しできる事は確認しましたが、Excelからカットあるいはコピーした場合にはクリップボードの取り出しはできませんでした。
貼り付ける文字列がExcel上の場合には、何らか別の手段を考える必要があるかもしれません。

Comments

[pgnoobdesu]

なるほど、無理っぽいですね。ありがとございました。

[diracpaul]

Application.ClipboardFormatsを使ってチェックを行いエラーが発生する場合には、貼り付けしないようにする事は出来ます。

Answer 2

ググってみただけなので、お役にたてるかどうかわかりませんが。

「FORMATEC構造体が無効です」というエラーは結構発生するようですね。

エラー回避としては、if obj.GetFormat(1) thenで可能なようなのですが、回避後に再オペレーションで、エラーが発生しなくなるかどうかまでは不明です。

詳しく調べていませんが、officeのクリップボード経由だとエラー無く対応可能かもしれません。

Answer 3

セルの内容をテキストに表示する 例
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 5 And Target.Row = 2 Then
UserForm2.TextBox1 = Target.Value
UserForm2.Show
End If
End Sub
昔参考にしました