サンプル投稿用掲示板 VB2005 〜 用トップページ VB6.0 用 トップページ
- 日時： 2009/12/27 13:05
- 名前： 花ちゃん
- ***********************************************************************************
* カテゴリー：[エクセル][その他コントロール][] *
* キーワード：Excel,Book,OLE,WebBrowser コントロール使用時の注意,, *
***********************************************************************************
元質問：ExcelをWebBrowserに表示 - カノン 2003/12/02-11:38 No.6856
----------------------------------------------------------------------
Re: ExcelをWebBrowserに表示 - 花ちゃん 2003/12/03-01:18 No.6860
----------------------------------------------------------------------
投稿されたコードではエラーが表示され動作しませんでした。
下記に変更して見ましたが、だめでしょうか？
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
 |
