返回列表 上一主題 發帖

[發問] 載入網頁資料的問題

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
1# 跳轉到 »
發表於 2013-7-1 13:07 | 顯示全部帖子
回復 8# GBKEE
可能下斷點後按F8停止，也會殘留。
不幸的是IE不能用GetObject取得物件來結束掉，
底下是找到的另外一種方法供參考
  1. Sub QuitIE()
  2.   Dim oShellWindows As Object, obj As Object

  4.   Set oShellWindows = CreateObject("Shell.Application").Windows

  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
複製代碼

TOP

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
2#
發表於 2013-7-1 14:36 | 顯示全部帖子
本帖最後由 stillfish00 於 2013-7-1 14:48 編輯

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

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

TOP

        靜思自在 : 慈悲沒有敵人，智慧不起煩惱。
返回列表 上一主題