投稿日 | : 2003/12/03(Wed) 01:18 |
投稿者 | : 花ちゃん |
Eメール | : |
URL | : |
タイトル | : Re: ExcelをWebBrowserに表示 |
投稿されたコードではエラーが表示され動作しませんでした。
下記に変更して見ましたが、だめでしょうか?
Option Explicit
Private oDocument As Object
Private Sub Form_Load()
WebBrowser1.Navigate "C:\Temp.xls"
End Sub
Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
On Error Resume Next
Set oDocument = Nothing
Set oDocument = pDisp.Document
WebBrowser1.ExecWB OLECMDID_HIDETOOLBARS, OLECMDEXECOPT_DONTPROMPTUSER
'メニュバーを表示しないなら下記のコードを有効にして下さい。
' WebBrowser1.ExecWB OLECMDID_HIDETOOLBARS, OLECMDEXECOPT_DONTPROMPTUSER
End Sub
Private Sub Command1_Click()
With oDocument
.Sheets(1).Cells(1, 1).Value = "あいうえお"
.Save '上書き保存
End With
End Sub
Private Sub Form_Unload(Cancel As Integer)
Set oDocument = Nothing
End Sub