VBでexcelのプレビュー画面表示

VB6でフォームにボタンを設定し、押したらexcelのプレビュー画面に行き、excel方式で印刷できるプログラムを作りたいのですが、教えてください。excelへの接続も同時に教えて下さると、ありがたいです。

No.1 ベストアンサー 回答者： todo36 回答日時： 2003/08/11 13:34

Private Sub Form_Click()

Dim xlApp As Object
Dim xlBook As Object

Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open("c:\tmp\hoge.xls")
xlApp.Application.Visible = True
xlBook.ActiveSheet.PrintPreview
xlApp.Application.Visible = False
xlApp.Quit
Set xlBook = Nothing
Set xlApp = Nothing
End Sub

この回答へのお礼

どうもありがとう。とても助かりました！

お礼日時：2003/08/11 14:06