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

質問

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

回答No.1

todo36 · ベストアンサー

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

お礼

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