載入網頁資料的問題 - Excel程式區

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

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

11^# 跳轉到 »

發表於 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

HSIEN6001

中學生 Rank: 2

帖子: 219
主題: 24
精華: 0
積分: 243
點名: 0
作業系統: Windows10
軟體版本: Office2016
閱讀權限: 20
性別: 女
註冊時間: 2012-4-18
最後登錄: 2022-2-7

論壇榮譽勳章論壇贊助勳章

12^#

發表於 2013-7-1 15:35 | 只看該作者

回復 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)

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