連接網路抓取資料匯入工作表速度慢?有無辦法改善? - Excel程式區

帖子: 759
主題: 249
精華: 0
積分: 1021
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2024-11-24

31^# 跳轉到 »

發表於 2013-9-11 03:32 | 只看該作者

本帖最後由 t8899 於 2013-9-11 03:34 編輯

回復 t8899 請看附檔修改你的程式碼,工作表的公式
GBKEE 發表於 2013-9-10 15:12

Application.OnTime Time + #12:00:15 AM#, "ThisWorkbook.EX"
12:00:15 ===>凌晨12:00:15 開始更新?? 15秒更新一次??
可否改為 12:00:05 開始更新?15秒更新一次? (即 12:00:05，12:00:20, 12:00:35....)

這兩個巨集可否放在同一個活頁簿?(少一個excel ,較省資源)

隱藏視窗已找到 "HiddeX " 解決 ( http://dejavu.narod.ru/hiddex.html )

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

32^#

發表於 2013-9-11 06:16 | 只看該作者

回復 31# t8899
12:00:15 ===>凌晨12:00:15 開始更新?? 15秒更新一次?? 對的類推 #00:00:01# 1秒鐘, #00:01# 1分鐘
這兩個巨集可否放在同一個活頁簿?(少一個excel ,較省資源) 試試看啊,Dee的檔案中結合2個程序

Option Explicit
Sub TwOSub()
Application.OnTime Time + #12:00:01 AM#, "twosub"
SUB_A
SUB_B
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

handsometrowa

中學生 Rank: 2

帖子: 82
主題: 7
精華: 0
積分: 112
點名: 0
作業系統: WIN7
軟體版本: WIN7
閱讀權限: 20
性別: 男
註冊時間: 2013-1-3
最後登錄: 2020-9-21

33^#

發表於 2013-9-11 09:51 | 只看該作者

回復 2# GBKEE

請益G大

關於這個物件 With CreateObject("InternetExplorer.Application")

有沒有更詳細一點的說明，可以學習的呢? 我有上內建解說，似乎對這個物件沒有做解釋

這個是不是屬於ActiveX的範疇呢@@?

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

34^#

發表於 2013-9-11 10:16 | 只看該作者

回復 33# handsometrowa
網路搜尋 CreateObject("InternetExplorer.Application") 有許多可慢慢了解

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

handsometrowa

中學生 Rank: 2

帖子: 82
主題: 7
精華: 0
積分: 112
點名: 0
作業系統: WIN7
軟體版本: WIN7
閱讀權限: 20
性別: 男
註冊時間: 2013-1-3
最後登錄: 2020-9-21

35^#

發表於 2013-9-11 11:09 | 只看該作者

回復 handsometrowa
網路搜尋 CreateObject("InternetExplorer.Application") 有許多可慢慢了解
GBKEE 發表於 2013-9-11 10:16

感謝G大的指導，
另外我在網路爬文，發現MSDN 很多關於這個物件的敘述似乎有點難查詢
對岸的朋友有以下的紀錄網頁

以下轉載
http://blog.csdn.net/darkread/article/details/7241098
(感謝分享)

我覺得寫的很詳細，雖然他也是從MSDN上抓下來的，不過對於開啟網頁物件有很詳細的說明。
爬一下文應該知道自己要找哪些東西。
希望大家都能在IE物件上多加強^^

TOP

t8899

大學生 Rank: 4

帖子: 759
主題: 249
精華: 0
積分: 1021
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2024-11-24

36^#

發表於 2013-9-12 18:44 | 只看該作者

本帖最後由 t8899 於 2013-9-12 18:49 編輯

回復 32# GBKEE

For Each i In Array(20, 24)
陣列 20 ,24===> 如何算出?

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

37^#

發表於 2013-9-12 20:32 | 只看該作者

回復 36# t8899

這裡有圖解

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

t8899

大學生 Rank: 4

帖子: 759
主題: 249
精華: 0
積分: 1021
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2024-11-24

38^#

發表於 2013-9-13 15:50 | 只看該作者

回復 t8899
GBKEE 發表於 2013-9-12 20:32

用IE 連接 http://udn.megatime.com.tw/asp/hot/ShortOperate.asp?lcount=20&m=puplim&align=v
按右鍵匯出至 Microsoft Excel
出現

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

39^#

發表於 2013-9-13 16:16 | 只看該作者

回復 38# t8899
按確定後,照圖示再做下去看看

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

t8899

大學生 Rank: 4

帖子: 759
主題: 249
精華: 0
積分: 1021
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2024-11-24

40^#

發表於 2013-9-13 19:38 | 只看該作者

回復 t8899
按確定後,照圖示再做下去看看
GBKEE 發表於 2013-9-13 16:16

Selection=23,24 ' 須減 1 , 22,23 請看 http://forum.twbts.com/thread-10361-1-1.html

為何要減1??
http://forum.twbts.com/thread-10361-1-1.html =====>無此主題??
指定的主題不存在或已被刪除或正在被審核，請返回

TOP

[發問] 連接網路抓取資料匯入工作表速度慢?有無辦法改善?

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]