討論區快速選單
知識庫快速選單
討論區最近新進100則主題 最新Microsoft免費研討會行事曆 兼顧創業與穩定工作的技能是什麼
[ 回上頁 ] [ 討論區發言規則 ]
請問一個有關使用EXCEL.EXE的問題
更改我的閱讀文章字型大小
作者 : pphsiao(pphsiao)
[ 貼文 43 | 人氣 6537 | 評價 40 | 評價/貼文 0.93 | 送出評價 23 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2005/8/26 下午 05:46:43
版上的大大們,

小弟在書本光碟上得到的一個讀取excel檔案資料的練習程式
我發現他執行完之後工作管理員會出現EXCEL.EXE
我後來嘗試用迴圈讓這小程式多跑10次
工作管理員裡面竟然也跑出10個EXCEL.EXE
吃掉不少電腦資源...

這邊突然想到一個問題
請教一下有無指令可以關閉EXCEL.EXE呢
我只會打開目前還不會關閉 @@...

甚至於我想問是否可以強制關閉工作管理員顯示出來的特定工作內容呢

謝謝指導


作者 : 793643(Max) 貼文超過200則
[ 貼文 274 | 人氣 2420 | 評價 600 | 評價/貼文 2.19 | 送出評價 0 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
主題發起人pphsiao註記此篇回應為很有道理 2005/8/31 下午 01:19:47
Dim MyExcel As excel.Application
Dim MyBook As excel.Workbook
Dim MySheet As excel.Worksheet
Dim MyRange As excel.Range

.....你的程式....

'結束Excel
MyExcel.DisplayAlerts = False
MyExcel.Quit
MyExcel.DisplayAlerts = True
Set MyExcel = Nothing
Set MyBook = Nothing
Set MySheet = Nothing
Set MyRange = Nothing
作者 : pphsiao(pphsiao)
[ 貼文 43 | 人氣 6537 | 評價 40 | 評價/貼文 0.93 | 送出評價 23 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2005/9/5 上午 11:13:19
您好,

我TRY了一下之後
程式出現錯誤訊息:使用者自訂型態尚未定義

實在不好意思我太肉了
解決不了這問題 @@...
作者 : 793643(Max) 貼文超過200則
[ 貼文 274 | 人氣 2420 | 評價 600 | 評價/貼文 2.19 | 送出評價 0 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
主題發起人pphsiao註記此篇回應為很有道理 2005/9/5 下午 01:07:49
請在Project-->Reference引用Microsoft Excel 9.0 Object Library
作者 : pphsiao(pphsiao)
[ 貼文 43 | 人氣 6537 | 評價 40 | 評價/貼文 0.93 | 送出評價 23 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2005/9/6 上午 10:12:40
=>沒有設定物件變數獲With區塊變數
MyExcel.DisplayAlerts = False

--------------------------------------------
恕小弟愚昧 @@...
以上是按照您的方法所得到的錯誤訊息...
不曉得這訊息的意思...@@...
還煩請您幫忙呢
作者 : zkahoo(佐為)
[ 貼文 10 | 人氣 292 | 評價 20 | 評價/貼文 2 | 送出評價 1 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
主題發起人pphsiao註記此篇回應為很有道理 2005/9/10 下午 04:02:23
你是要讀取excel中的內容
那不是用adodb.connection嗎

如果一定要打開後再關掉,我也不懂
不過必要時,可以試試SendKey Send他一個Alt+F4
可能這方法太笨...
作者 : 793643(Max) 貼文超過200則
[ 貼文 274 | 人氣 2420 | 評價 600 | 評價/貼文 2.19 | 送出評價 0 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
主題發起人pphsiao註記此篇回應為很有道理 2005/9/11 下午 03:28:42
給我你的Mail,我再傳Smpale Code 給你
作者 : pphsiao(pphsiao)
[ 貼文 43 | 人氣 6537 | 評價 40 | 評價/貼文 0.93 | 送出評價 23 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2005/9/12 上午 10:30:11
回zkahoo,
我已經讀取完excel內的資料,
目前嘗試各種方法去關閉該檔案
但是在工作管理員那邊總會看到EXCEL.EXE的記憶體空間
這不妨礙我再度開啟該EXCEL檔案
但是會吃掉我的系統資源
@@...

回793643,
小弟的EMAIL:cgupphsiao@yam.com
有勞您了,感謝您. :)
作者 : 793643(Max) 貼文超過200則
[ 貼文 274 | 人氣 2420 | 評價 600 | 評價/貼文 2.19 | 送出評價 0 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
主題發起人pphsiao註記此篇回應為很有道理 2005/9/13 上午 01:38:46
我寄給你了~你試看看唄~
作者 : pphsiao(pphsiao)
[ 貼文 43 | 人氣 6537 | 評價 40 | 評價/貼文 0.93 | 送出評價 23 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2005/9/13 下午 06:19:18
回大大

感謝您熱誠的協助
我有收到您的檔案

您的檔案是create一個檔案然後關掉
我可以執行
套用到我這邊之後是讀取一個檔案然後關掉
這樣就會出現問題了

我在不加任何CODE之前也可順利RUN
但是就是會在記憶體佔據資源
還在debug當中
先謝謝您 如果我還是不行再跟您報告
作者 : pphsiao(pphsiao)
[ 貼文 43 | 人氣 6537 | 評價 40 | 評價/貼文 0.93 | 送出評價 23 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2005/9/15 下午 06:11:14
回Max大大
小弟今天TRY了很久 還是不行耶

這是一個開啟並且讀取已有的excel檔案
最後使用Nothing來關閉該檔案

與您的製造並且存檔不知道是否有無不同之處

我已經嘗試過把DisplayAlart加入但是會有錯誤訊息
沒有設定物件變數或者 With區塊變數
---------------------------------------------
Private Sub Command1_Click()

Dim AAA As Object

Set AAA = CreateObject("Excel.Application")
AAA.Workbooks.Add Template: "c:\old.xls"

Set MyExcel = Nothing

End Sub


作者 : 793643(Max) 貼文超過200則
[ 貼文 274 | 人氣 2420 | 評價 600 | 評價/貼文 2.19 | 送出評價 0 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
主題發起人pphsiao註記此篇回應為最佳解答 2005/9/16 上午 12:10:28
>---------------------------------------------
>Private Sub Command1_Click()
>
>Dim AAA As Object
>
>Set AAA = CreateObject('Excel.Application')
>AAA.Workbooks.Add Template: 'c:\old.xls'
>
>Set MyExcel = Nothing
>
>End Sub

我把你的Code改了一下,我有試過,記憶體資源只會出現一個EXCEL.EXE,但是在程式關閉前,這個資源會一直佔用,但不影響到Excel的使用,但是會造成你正在讀取的檔案沒有畫面,只要程式結束,EXCEL.EXE會跟著關閉,不知道這是不是你想要的?如果你一定要程式在執行中,把記憶體資源中的EXCEL.EXE刪除,那就要用到API強制把EXCEL.EXE結束掉了
Sample Code在底下,你Copy回去試看看吧
--------------------------------------------------------------
Dim a As Object
Set a = Excel.Application
a.Workbooks.Open ("c:\test.xls")
Label1.Caption = a.Worksheets("sheet1").Range("A1").Value '讀Excel資料
a.Quit
Set a = Nothing
--------------------------------------------------------------
作者 : pphsiao(pphsiao)
[ 貼文 43 | 人氣 6537 | 評價 40 | 評價/貼文 0.93 | 送出評價 23 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2005/9/16 下午 03:57:30
Dear Max大大
您真是好人

小弟經過多天TRY畢請看相關DOC之後
剛剛才發現
關鍵好像是
a.quit
set a = nothing

其實不用.displayalert

正要上來跟您分享這好消息而已
結果就看到您的文章了

結論是
(1)真是高興解了一個難題
(2)您是超級大好人

感激您呀~~!
作者 : pphsiao(pphsiao)
[ 貼文 43 | 人氣 6537 | 評價 40 | 評價/貼文 0.93 | 送出評價 23 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2005/9/16 下午 04:00:53
阿 剛剛按下確定鍵
發現一件事情

結論應該是:

(1)MAX大大是高手 hish hand !!!!
(2)MAX大大是好人
(3)能獲得MAX大大幫助真令人高興
^O^

陳悶好幾天 真是爽翻了...
ㄏㄏ...
作者 : 793643(Max) 貼文超過200則
[ 貼文 274 | 人氣 2420 | 評價 600 | 評價/貼文 2.19 | 送出評價 0 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2005/9/16 下午 07:31:23
這個......你太過獎了
關於Excel的控制,我也是自己學來的
如果你想了解更多Excel的控制,告訴你一個秘訣
打開Excel後,然後再"工具"底下選擇Visual Basic編輯器,在按F1
裡面有很多關於Excel的VB函數,你可以自己看看,在VB6也可以用

我......現在還在為了如何控制網路卡而頭痛 >"<
作者 : kidd_hsieh(kidd_Hsieh)
[ 貼文 27 | 人氣 4002 | 評價 0 | 評價/貼文 0 | 送出評價 0 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2005/10/14 下午 08:53:10
我在使用大大的方法後

aaa.quit
set aaa = nothing

發現真的有用,
不過,當我在vb程式中,a.form 打開 bbb.xls 跑完樞紐分析表後,
發現,excel.exe還是一直在處理程序裡,佔著資源,
明明程式已經跑完了,產生的t_bbb.xls也已另存新檔了
後來想開另一個b.form呼叫同一個bbb.xls檔時,
就發生了問題~~~
有其他方法解決嗎?
感謝答~~
作者 : timmyguo(tt''s) Visual Basic優秀好手ASP卓越專家貼文超過1000則
[ 貼文 1247 | 人氣 6140 | 評價 4260 | 評價/貼文 3.42 | 送出評價 3 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2005/10/15 下午 03:00:53
正確的作法是
AAA.Workbooks.Close
Excel才會真正的結束
=Nothing只是清掉連結
並沒有結束Excel
作者 : newfallay(newfallay)
[ 貼文 1 | 人氣 0 | 評價 0 | 評價/貼文 0 | 送出評價 0 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2007/7/5 上午 10:31:28
麻煩您 可以把此範例順便寄給我嗎??

我的信箱是 andy_l@ms.usi.com.tw

謝謝~
作者 : 793643(Max) 貼文超過200則
[ 貼文 274 | 人氣 2420 | 評價 600 | 評價/貼文 2.19 | 送出評價 0 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2007/7/6 下午 04:35:00
我2年沒有上來了,一上來就看到excel讀寫的問題,真是令人懷念啊
看來有很多人想要知道怎麼用vb讀寫excel
要不,請阿戊大大在阿戊的網頁上提供用VB讀寫excel的範例好了
方便想要知道這方面知識的人吧
作者 : flair(flair) 人氣指數超過10000點
[ 貼文 104 | 人氣 13327 | 評價 0 | 評價/貼文 0 | 送出評價 5 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2007/7/19 下午 11:32:56
如果沒有記錯...如果你在本來也有開啟一個excel程式...
那你用這種方法關閉excel好像也會有問題....
 板主 : 小樓
 > Visual Basic 6.0/VBA - 討論區
 - 最近熱門問答精華集
 - 全部歷史問答精華集
 - Visual Basic 6.0/VBA - 知識庫
  ■ 全站最新Post列表
  ■ 我的文章收藏
  ■ 我最愛的作者
  ■ 全站文章收藏排行榜
  ■ 全站最愛作者排行榜
  ■  月熱門主題
  ■  季熱門主題
  ■  熱門主題Top 20
  ■  本區Post排行榜
  ■  本區評價排行榜
  ■  全站專家名人榜
  ■  全站Post排行榜
  ■  全站評價排行榜
  ■  全站人氣排行榜
 請輸入關鍵字 
  開始搜尋
 
Top 10
評價排行
Visual Basic 6.0/VBA
1 阿戊 10670 
2 小樓 8650 
3 Jones 5270 
4 水瓶天賞 2340 
5 joe 2200 
6 史努比 1940 
7 阿呆紅 1440 
8 tt's 1250 
9 青衫 1150 
10 羅啟章 1020 
Visual Basic 6.0/VBA
  專家等級 評價  
  一代宗師 10000  
  曠世奇才 5000  
  頂尖高手 3000  
  卓越專家 1500  
  優秀好手 750  
Microsoft Internet Explorer 6.0. Screen 1024x768 pixel. High Color (16 bit).
2000-2014 程式設計俱樂部 http://www.programmer-club.com.tw/
0.296875