VB6.0用掲示板の過去のログ(No.1)－VBレスキュー(花ちゃん)
[記事リスト]
[新規投稿]
[新着記事]
[ワード検索]
[過去ログ]
[管理用]
| 投稿日 | ： 2003/12/02(Tue) 11:38 |
| 投稿者 | ： カノン |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： ExcelをWebBrowserに表示 |
初めまして、カノンと言います。
ExcelファイルをWebbrowser上に表示したいと思い、こちらのサイトのExcel&Word関係を参考に
させてもらいました。
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
'フォーム表示と同時にWebBrowserにExcel表示
Private Sub Form_Load()
WebBrowser1.Navigate ("C:\Temp.xls")
End Sub
'xlBookにアクティブなExcelファイルを
Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
Set xlBook = xlApp.ActiveWorkbook
Set xlSheet = xlBook.Worksheets(1)
End Sub
'保存
Private Sub Command1_Click()
xlSheet.Cells(1, 1) = "あいうえお"
xlApp.DisplayAlerts = False
xlSheet.SaveAs "C:\Temp.xsl"
End Sub
一応、表示してセルに文字を書込み、保存までできたのですが、以下の問題があります。
①フォームロード時にWebBrowserにExcelを表示させると、始めアクティブセルは太枠で表示
されていますが、WebBrowser以外にカーソルが移ると再びカーソルを戻してもアクティブセルが
太枠で表示されません。どこがアクティブなセルかがわからないんです・・文字は打てますが。
フォームロード時ではなく、フォームロード後にCommandbuttonのイベント等で表示させるように
すると問題無いです。
②このプログラムを実行中に別のExcelファイルを開けないです。
以上の原因の検討が今のところ全くつきません・・・
お分かりの方がいたら教えて貰えないでしょうか？
環境 VB6.0,Windows2000,Excel2000
お願いいたします。
- 関連一覧ツリー
（★ をクリックするとツリー全体を一括表示します）
- 返信フォーム
（この記事に返信する場合は下記フォームから投稿して下さい）