WebBrowserでExcelを表示している状態で、既に起動しているExcelファイルの操作を行うには？ (ID:139560)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

いつもお世話になっております。

開発環境は
 ・Windows XP
 ・VB6.0(SP6)
です。

WebBrowserを使用してExcelファイルを表示する処理を作っております。
ソースは、以下の通りです。

------------------------------------------------------------
Option Explicit
Private oDocument As Object

Private Sub Form_Load()

'// ダイアログ設定
    With CommonDialog1
        .Filter = "Office Documents " & _
        "(*.doc, *.xls, *.ppt)|*.doc;*.xls;*.ppt"
        .FilterIndex = 1
        .Flags = cdlOFNFileMustExist Or cdlOFNHideReadOnly
    End With

End Sub

Private Sub Form_Unload(Cancel As Integer)
    
    '// ドキュメント解放
    Set oDocument = Nothing

End Sub

Private Sub Command1_Click()
    
    Dim sFileName As String

'// ドキュメント表示
    With CommonDialog1
        .FileName = ""
        .ShowOpen
        sFileName = .FileName
    End With

If Len(sFileName) Then
      Set oDocument = Nothing
      WebBrowser1.Navigate sFileName
   End If

End Sub

Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant)

'// ドキュメント情報取得
   On Error Resume Next
   Set oDocument = pDisp.Document

End Sub
------------------------------------------------------------

WebBrowser1.Navigate sFileName を行うと
既に開いているExcelと競合しファイル操作が行えません。

WebBrowser1_NavigateComplete2 で

・
       ・
    Set objApp = CreateObject("Excel.Application")
    Set oDocument.Application = objApp

といった感じで新しく生成したものに置き換えれないか
自分なりに試行錯誤＆調べたのですが分かりませんでした。
やはり、VB側で制御すること自体不可能なのでしょうか？
    
WebBrowserと競合せず既に起動しているExcelファイルを操作する方法を
ご存じの方がおいででしたら、ご教授お願い致します。

←解決時は質問者本人がここをチェックしてください。

戻る