WebBrowserのアプリケーションの開放の仕方 (ID:114661)

名前

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

本文

Option Explicit

Dim oDocument As Object
Dim objApp    As Excel.Application
Dim objExl    As Excel.Workbook

Private Sub Command1_Click()
Dim sFileName As String

' 「ファイルを開く」
    With CommonDialog1
        .FileName = ""
        .ShowOpen
        sFileName = .FileName
    End With

' ファイルが選択されたら
    If Len(sFileName) Then
        Set oDocument = Nothing
        'Set objExl = Nothing
        'Set objApp = Nothing

Set objApp = CreateObject("Excel.Application")
        Set objExl = objApp.Workbooks.Open(sFileName)
        WebBrowser1.Navigate sFileName
    End If
    
End Sub

Private Sub Form_Load()
Command1.Caption = "Browse"
    With CommonDialog1
        .Filter = "Office ドキュメント " & _
        "(*.doc, *.xls, *.ppt)|*.doc;*.xls;*.ppt"
        .FilterIndex = 1
        .Flags = cdlOFNFileMustExist Or cdlOFNHideReadOnly
    End With
End Sub

Private Sub Form_Unload(Cancel As Integer)
    
    Set objExl = Nothing
    Set objApp = Nothing
    Set oDocument = Nothing
    
End Sub

Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, _
URL As Variant)
    On Error Resume Next
    
    Set oDocument = pDisp.Document
    MsgBox "File opened by: " & oDocument.Application.Name

End Sub

上記のアドレスを参考にしましたがうまく開放できません。
WebBrowserがEXCELを開く前に自分で指定したEXCELオブジェクトで
開くよう設定しました。が、頭の中で消化できず思うようにいきません。

失礼かと思いましたがどのようにEXCELを開放すればよいか
解らなかったためテストソースを全て貼り付けました。
上記のままではEXELのタスクが違うファイルを開くたびに
増えてしまいます。
知識が乏しく実現方法がわかりません。
上記の場合、どう、修正すればよいのでしょうか。

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

戻る