| 投稿日 | ： 2004/12/24(Fri) 09:10 |
| 投稿者 | ： LESIA |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re: VBからExcelのプレビューをよび、終わるとExcelが終わってVBの画面に戻ってくるにはどうしたら良いのでしょうか？ |
> 'エクセルを起動する
> Set AppExcel = CreateObject("EXCEL.Application")
> AppExcel.Visible = True
> Set xlBook = AppExcel.Workbooks.Open(FILE_NM)
> Set xlSheet = AppExcel.Worksheets(PG_ID)
ワークシートPG_IDがFILE_NMのワークシートなら
Set xlSheet = xlBook.Worksheets(PG_ID)
にしたほうが良いです。
> AppExcel.Sheets(PG_ID).SELECT
これも
xlSheet.Select
の方が良いです。
> 'エクセルの終了
> AppExcel.Sheets(PG_ID).SELECT
> AppExcel.Quit
Quitする前にSelectしてもあまり意味がないので(^^;
AppExcel.Quit
エクセルの終了は、この1行だけで良いです。