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

解決済

質問者：hayachama
質問日時：2003/08/11 12:01
回答数：1件

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

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (1件)

ベストアンサー優先
最新から表示
回答順に表示

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