投稿日 | : 2004/12/23(Thu) 23:11 |
投稿者 | : あさがお |
URL | : |
タイトル | : VBからExcelのプレビューをよび、終わるとExcelが終わってVBの画面に戻ってくるにはどうしたら良いのでしょうか? |
ココがあっている掲示板か分からないのですが、Excelに詳しい人が分かるのではと思いココにしました。
いろいろ見てがんばってみたのですがどうしても出来ません。
以下に作ったプログラムを載せます。おかしい所をご指摘ください。
お願いします。
したい事は、VBからExcelのプレビューをよび、終わるとExcelが終わってVBの画面に戻ってくる事です。
ちなみにExcelの通常画面は出ないようにしたいのですが。それが出来る事かどうか分かりません。
何より下のプログラムを手動で一つづつ動かすとExcelが無事終わるのに、
実行さすとExcelがメモリーに残って動かなくなります。
'エクセルを起動する
Set AppExcel = CreateObject("EXCEL.Application")
AppExcel.Visible = True
Set xlBook = AppExcel.Workbooks.Open(FILE_NM)
Set xlSheet = AppExcel.Worksheets(PG_ID)
AppExcel.Sheets(PG_ID).SELECT
'プレビュー
xlSheet.PrintPreview
'エクセルの終了
AppExcel.Sheets(PG_ID).SELECT
AppExcel.Quit
Set xlSheet = Nothing 'エクセルの開放
Set xlBook = Nothing
Set AppExcel = Nothing