stillfish00

回復 10# HSIEN6001
FullName中是程序的完整路徑，像我的是 "C:\Program Files\Internet Explorer\iexplore.exe"
再去比較後面的字尾看是不是IE的程序而已，應該不用加 *32吧

另外我覺得你要注意的是QueryTable若只是用來取得一次性資料，最好還是順便把連線刪除，不然每次都會新增連線，以後該工作表就有很多資料連線...，可能造成開檔變慢的問題。

HSIEN6001

回復 11# stillfish00
QueryTable 好樣知道耶!  ..^_^..
大略應用幾種方式排除:

(1)
Public Sub 刪除本活頁簿中所有的定義名稱()
For Each c In ActiveWorkbook.Names
   c.Delete
Next
End Sub
*****************
(2) 下載資料 to 新增活頁簿
*****************
(3)
新增"暫時"工作表
用完Delete該工作表
不留連線 QueryTable
*****************
(4)
Dim QueryTable_Name As String   
.
.
.
QueryTable_Name = .Name         
.
.Names(QueryTable_Name).Delete   
---------------------
不知道為甚麼,我 C:\
共有兩個Program Files
Program Files
Program Files (x86)

1. Sub QuitIE()
   
2. Dim oShellWindows As Object, obj As Object
   
3. Set oShellWindows = CreateObject("Shell.Application").Windows
   
4.     FullName = "C:\Program Files (x86)\Internet Explorer\iexplore.exe"
   
5.    
   
6.     If oShellWindows.Count > 0 Then
   
7.         For Each obj In oShellWindows
   
8.             If StrComp(Right(obj.FullName, 12), "iexplore.exe", vbTextCompare) = 0 Then obj.Quit
   
9.         Next
   
10.     End If
    
11. End Sub

複製代碼

這樣對不對?!!
(對不起!!若程序很好笑,我是真的外行,有時隨便套用來的)
別見怪!!   ..^__^..

HSIEN6001

忘了!!
(附圖)
下載時,工作表反黑的現象是這樣

下載 (41.51 KB)

2013-7-1 15:41

有沒有人知道這個問題的產生原因

yuch8663

謝謝板上各位大大解題，會在琢磨參詳。