作者conlich (clcy)
看板Visual_Basic
標題[VB6 ] 請問在轉EXCEL時的問題
時間Fri Nov 27 11:51:43 2009
請問一下各位,小弟在寫一個將資料轉到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
1F：→ MOONRAKER:我猜用完Excel要釋放 不然他還會在那裡等著你繼續用 11/27 14:54
2F：→ MOONRAKER:大概要用 set objExcelApp = nothing 吧 我也不記得 11/27 14:56
3F：推 robart:第一段 開了兩次 EXCEL 你只關掉一個EXCEL 11/27 16:31
4F：→ robart:另外你說的是更改EXCEL後 要存檔再退出 才能正常釋放 11/27 16:33
5F：→ robart:猜測是這樣XDDD 不付責任猜測 11/27 16:33
6F：推 sueadolph:關掉excel之前，多一段 Range("A1").Select 試試看 11/27 21:38
7F：→ sueadolph:因為你有提到 沒填色的動作，整個程式是正常的。 11/27 21:39
8F：推 sueadolph:excel當遊標在輸入欄時，有些操作會無法進行 11/27 21:41
9F：→ conlich:我最後先加上了Range("A1").Select,還是不行... 11/28 18:43
10F：推 ClubT:應該就是3F說的那樣 11/30 13:41
11F：推 necsa:想問一下程式碼第二行跟第四行的用法差在什麼地方? 11/30 16:56
12F：推 robart:第2行 事先宣告 XLS是個物件 直接就可以宣告她是EXCEL應用 12/01 09:53
13F：→ robart:第四行是用在 XLS是個字串 把他變成EXCEL應用程式 12/01 09:54