[VB6 ] 請問在轉EXCEL時的問題

[conlich (clcy)]

請問一下各位,小弟在寫一個將資料轉到EXCEL的程式遇到一個問題.
就是轉檔時如果有設定欄位顏色,在程式結束後EXCEL雖然結束了,但是
實際上在工作管理員裡的EXCEL.EXE還是存在.

小弟的寫法如下:
   Dim objExcelApp As Object
   Set objExcelApp = Excel.Application
   Dim objSheet As Excel.WorkSheet
   Set objExcelApp = CreateObject("Excel.Application")
   objExcelApp.Workbooks.Add

   略...

    Range("A" & i & ":" & "V" & i).Select
    With Selection.Interior
         .ColorIndex = 37
         .Pattern = xlSolid
    End With

   Set objSheet = Nothing

   objExcelApp.Workbooks.Close

   Set objExcelApp.Workbooks = Nothing

   DoEvents

   objExcelApp.Quit

   Set objExcelApp = Nothing

   DoEvents

但如果沒有去作填色的動作就可以正常結束EXCEL.EXE.

請問這要如何處理??

謝謝大家.

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 218.211.254.196
→ MOONRAKER:我猜用完Excel要釋放 不然他還會在那裡等著你繼續用
→ MOONRAKER:大概要用 set objExcelApp = nothing 吧 我也不記得
推 robart:第一段  開了兩次 EXCEL  你只關掉一個EXCEL
→ robart:另外你說的是更改EXCEL後 要存檔再退出 才能正常釋放
→ robart:猜測是這樣XDDD  不付責任猜測
推 sueadolph:關掉excel之前，多一段 Range("A1").Select 試試看
→ sueadolph:因為你有提到 沒填色的動作，整個程式是正常的。
推 sueadolph:excel當遊標在輸入欄時，有些操作會無法進行
→ conlich:我最後先加上了Range("A1").Select,還是不行...
推 ClubT:應該就是3F說的那樣
推 necsa:想問一下程式碼第二行跟第四行的用法差在什麼地方?
推 robart:第2行 事先宣告 XLS是個物件 直接就可以宣告她是EXCEL應用
→ robart:第四行是用在  XLS是個字串 把他變成EXCEL應用程式