12345
返回列表 上一主題 發帖

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

t8899

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

帖子
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個程序
  1. Option Explicit
  2. Sub TwOSub()
  3.     Application.OnTime Time + #12:00:01 AM#, "twosub"
  4.     SUB_A
  5.     SUB_B
  6. End Sub
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

handsometrowa

帖子
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

帖子
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

帖子
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

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

帖子
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

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

帖子
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

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

        靜思自在 : 時時好心就是時時好日。
12345
返回列表 上一主題