投稿日	： 2003/02/14(Fri) 09:23
投稿者	： killer
Ｅメール	：
ＵＲＬ	：
タイトル	： Re: Excelがメモリに残る

> VBからExcelを起動して、終了させてもExcelがメモリに残っています。
> セルの削除部分をコメントアウトすると、メモリからも消えるのですが、
> セルを削除すると、メモリに残ってます。
> 何が悪いんでしょうか？
> 宜しくお願い致します。
>
> VB6Pro sp5 + Excel2000 Windows2000/NT4
>
> Public xlsApp   As Excel.Application
> Public xlsBook  As Excel.Workbook
> Public xlsSheet As Excel.Worksheet
>
>     'Excelの起動
>     Set xlsApp = CreateObject("Excel.Application")
>     Set xlsBook = xlsApp.Workbooks.Open(App.Path & "\test.xls")
>     Set xlsSheet = xlsBook.Worksheets(1)
>
> '----ここから
>     Rows("9:19").Select
>     Selection.ClearContents
>     Range("A1").Select
> '----ここまでをコメントアウトするときちんと終了する
>
>     'Excelの保存と終了
>     xlsBook.Save
>     xlsApp.Quit
>     DoEvents
>
>     'Excelの開放
>     Set xlsSheet = Nothing
>     Set xlsBook = Nothing
>     Set xlsApp = Nothing

　上記のコードを実行してもメモリに残らなかったけどなぁー・・・
　ただオイラなら下記のようにコードは書くかな？
　素人さんのコードはなんでエクセルのオブジェクトを３つも使ってるの？
　１つで十分なような気するけど・・・

Dim objXLS  As Object
    
    Set objXLS = CreateObject("Excel.application")
    objXLS.Application.Workbooks.Open (App.Path & "\test.xls")
    objXLS.Worksheets(1).Select

    objXLS.Application.Rows("9:19").Select
    objXLS.Application.Selection.ClearContents
    objXLS.Application.Range("A1").Select
    
    objXLS.Save
    objXLS.Quit
    Set objXLS = Nothing

★ - Excelがメモリに残る - 素人さん 02/13-20:18No.2710
• Re: Excelがメモリに残る - 花ちゃん 02/13-21:10 No.2712
• Re: Excelがメモリに残る - 花ちゃん 02/13-23:57 No.2718
  • Re^2: Excelがメモリに残る - 素人さん 02/14-08:46 No.2719
    • Re^3: それはね - A221 02/14-10:28 No.2721
      • Re^4: それはね - 素人さん 02/14-12:22 No.2730
        • Re^5: それはね - 花ちゃん 02/14-13:07 No.2732
        • Re^5: それはね - A221 02/14-13:19 No.2733
    • Re^3: Excelがメモリに残る - 花ちゃん 02/14-10:53 No.2725
• Re: Excelがメモリに残る - killer 02/14-09:23 No.2720