| 投稿日 | ： 2005/03/21(Mon) 17:22 |
| 投稿者 | ： 花ちゃん |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^5: WebBrowser での Excel 制御について |
表示だけなら Spreadsheet1 ではどうですか？
[Microsoft Office Web Components 9.0] チェック ボックス、
[Microsoft Office XP Web Components] チェック ボックス、または
[Microsoft Office Web Components 11.0] チェック ボックスをオンにし、
[OK] をクリックします。
Private Sub Command1_Click()
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open("C:\Test.xls")
Set xlSheet = xlBook.Worksheets(1)
xlSheet.UsedRange.Copy
Spreadsheet1.DisplayToolbar = False
Spreadsheet1.DisplayTitleBar = False
Spreadsheet1.Range("A1").Paste
xlApp.Quit
Set xlSheet = Nothing
Set xlBook = Nothing
Set xlApp = Nothing
End Sub
画面上で編集はできますが元のファイルには何の影響も与えません。
上記実行結果の画面です。
hhttp://bbs4.aimix-z.com/gbbs.cgi?room=hanafusa