| 投稿日 | ： 2004/12/24(Fri) 08:41 |
| 投稿者 | ： 花ちゃん |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re: VBからExcelのプレビューをよび、終わるとExcelが終わってVBの画面に戻ってくるにはどうしたら良いのでしょうか？ |
> ちなみにExcelの通常画面は出ないようにしたいのですが。それが出来る事かどうか分かりません。
通常画面とは？
> 何より下のプログラムを手動で一つづつ動かすとExcelが無事終わるのに、
> 実行さすとExcelがメモリーに残って動かなくなります。
手動で一つづつ動かす
実行さすとExcelが
とは？
投稿されたコードは一部のようですが、他の部分はどうなっていますか？
下記コードで、試して見ましたが、プレビューを終了するとExcelが閉じられてプロセスも終了
していますが。
VB6.0 (SP5) Excel 2002 WindowsXP
Private Sub Command1_Click()
Dim AppExcel As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Set AppExcel = CreateObject("EXCEL.Application")
Set xlBook = AppExcel.Workbooks.Open("C:\Temp.xls")
Set xlSheet = AppExcel.Worksheets(1)
AppExcel.Sheets(1).Select
AppExcel.Visible = True
'プレビュー
xlSheet.PrintPreview
'エクセルの終了
AppExcel.Sheets(1).Select
AppExcel.Quit
Set xlSheet = Nothing 'エクセルの開放
Set xlBook = Nothing
Set AppExcel = Nothing
End Sub