作者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