| 投稿日 | ： 2004/07/22(Thu) 16:24 |
| 投稿者 | ： バルデラマ |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^2: WebBrowserにてEXCELの値を取得する |
おおっ！！できました。
WithEventsなんてあったんですね、ありがとうございます。
でも、確かにクリックできるまでに間がありますね．．．。
間の解消は、自分でも調査してみたいと思います。
が、もし何かわかりましたら教えてください。
りっとっと さん、本当にありがとうございました。
> できなくもないですけどね
> Private xlBook As Excel.Workbook
> Private WithEvents xlSheet As Excel.Worksheet
> Private Sub Form_Load()
> WebBrowser1.Navigate "c:\book1.xls"
> End Sub
> Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
> Set xlBook = pDisp.Document
> Set xlSheet = xlBook.ActiveSheet
> xlBook.Application.Visible = False
> End Sub
>
> Private Sub xlSheet_BeforeRightClick(ByVal Target As Excel.Range, Cancel As Boolean)
> PopupMenu mnuTest
> Cancel = True
> End Sub
>
> とこんな感じで、エクセルのシートオブジェクトをWithEventsステートメントつきで宣言すれば
> xlSheetでのイベントが拾えますので、BeforeRightClickイベントで、引数のCancelにTrueを入れれば
> キャンセルされ、エクセルのポップアップメニューは表示されません。
> サンプルを実行するとわかりますが、PopupMenuでＶＢのメニューを表示させクリックもできるのですが
> クリックできるまで間が生じてしまいます。この間をどうにかして消せないものかな