123
返回列表 上一主題 發帖

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

t8899

帖子
766 
主題
256 
精華
0 
積分
1035 
點名
0  
作業系統
windows 11 
軟體版本
OFFICE2021 
閱讀權限
50 
性別
男 
註冊時間
2011-5-30 
最後登錄
2026-10-2 
1# 跳轉到 »
發表於 2013-9-3 07:06 | 顯示全部帖子

請問此網頁有無辦法匯入excel ?

http://udn.megatime.com.tw/asp/hot/ShortOperate.asp?lcount=20&m=puplim&align=v

TOP

t8899

帖子
766 
主題
256 
精華
0 
積分
1035 
點名
0  
作業系統
windows 11 
軟體版本
OFFICE2021 
閱讀權限
50 
性別
男 
註冊時間
2011-5-30 
最後登錄
2026-10-2 
2#
發表於 2013-9-3 10:41 | 顯示全部帖子
回復  t8899
GBKEE 發表於 2013-9-3 07:59


請問不想看到ie8 出現要刪掉那一行呢?

TOP

t8899

帖子
766 
主題
256 
精華
0 
積分
1035 
點名
0  
作業系統
windows 11 
軟體版本
OFFICE2021 
閱讀權限
50 
性別
男 
註冊時間
2011-5-30 
最後登錄
2026-10-2 
3#
發表於 2013-9-3 12:16 | 顯示全部帖子
回復  t8899
討論區裡有許多類似的討論,自己試著刪看看.
GBKEE 發表於 2013-9-3 10:55

我是改  CreateObject("InternetExplorer.Application") .Visible = FALSE

可以將"跌停鎖死股" 從 J1 開始排嗎??

TOP

t8899

帖子
766 
主題
256 
精華
0 
積分
1035 
點名
0  
作業系統
windows 11 
軟體版本
OFFICE2021 
閱讀權限
50 
性別
男 
註冊時間
2011-5-30 
最後登錄
2026-10-2 
4#
發表於 2013-9-3 20:20 | 顯示全部帖子
本帖最後由 t8899 於 2013-9-3 20:33 編輯

回復 6# GBKEE
謝謝!再請教一下
當我在重新更新後,參照此表的儲存格(貼上連結)有些會出現 #REF!，需重新設定儲存格參照才會恢復正常, 有無辦法解決?
=漲跌停!C12
更新後  ===> =漲跌停!#REF!

TOP

t8899

帖子
766 
主題
256 
精華
0 
積分
1035 
點名
0  
作業系統
windows 11 
軟體版本
OFFICE2021 
閱讀權限
50 
性別
男 
註冊時間
2011-5-30 
最後登錄
2026-10-2 
5#
發表於 2013-9-3 21:17 | 顯示全部帖子
本帖最後由 t8899 於 2013-9-3 21:19 編輯

想到一個辦法
直接在您寫的巨集之後加上
Sheets("試算").Range("P3:P56").Value = Sheets("漲跌停").Range("G3:G56").Value
Sheets("試算").Range("O3:O56").Value = Sheets("漲跌停").Range("C3:C56").Value
Sheets("試算").Range("Q3:Q56").Value = Sheets("漲跌停").Range("P3:P56").Value
Sheets("試算").Range("R3:R56").Value = Sheets("漲跌停").Range("L3:L56").Value

TOP

t8899

帖子
766 
主題
256 
精華
0 
積分
1035 
點名
0  
作業系統
windows 11 
軟體版本
OFFICE2021 
閱讀權限
50 
性別
男 
註冊時間
2011-5-30 
最後登錄
2026-10-2 
6#
發表於 2013-9-4 08:54 | 顯示全部帖子
回復  t8899
.Cells.Clear 改成->.Cells.="" 試試看
GBKEE 發表於 2013-9-4 07:14


語法錯誤?

TOP

t8899

帖子
766 
主題
256 
精華
0 
積分
1035 
點名
0  
作業系統
windows 11 
軟體版本
OFFICE2021 
閱讀權限
50 
性別
男 
註冊時間
2011-5-30 
最後登錄
2026-10-2 
7#
發表於 2013-9-4 09:46 | 顯示全部帖子
回復  t8899
這語法上的錯誤,(手誤,9#已修正)可試著修改.
GBKEE 發表於 2013-9-4 09:03


9# 是  ??

TOP

t8899

帖子
766 
主題
256 
精華
0 
積分
1035 
點名
0  
作業系統
windows 11 
軟體版本
OFFICE2021 
閱讀權限
50 
性別
男 
註冊時間
2011-5-30 
最後登錄
2026-10-2 
8#
發表於 2013-9-4 10:19 | 顯示全部帖子
回復  t8899
這語法上的錯誤,(手誤,9#的內容已修正)可試著修改.
GBKEE 發表於 2013-9-4 09:03


試了一個小時，大約1 分鐘更新一次，中間excel 卡住兩次 沒反應?
是否連線無法成功造成?可否改成5秒沒連上就程式就跳出?

TOP

t8899

帖子
766 
主題
256 
精華
0 
積分
1035 
點名
0  
作業系統
windows 11 
軟體版本
OFFICE2021 
閱讀權限
50 
性別
男 
註冊時間
2011-5-30 
最後登錄
2026-10-2 
9#
發表於 2013-9-4 14:45 | 顯示全部帖子
語法錯誤?
t8899 發表於 2013-9-4 08:54


大約1 分鐘更新一次,沒那麼慢吧  

我指的一分鐘是我設定每1分鐘跑一次巨集,(不是程式跑一次要1分鐘)
等於跑了60次，excel 中途當了兩次
是否連線的關系?如果是可否改成5秒連不成就跳出?


.Cells.Clear 改成->.Cells="" 試試看  

六樓程式碼重新跑了兩次，貼上連結的儲存格仍然是#REF!
    附檔 TEST.rar (11.49 KB)

TOP

t8899

帖子
766 
主題
256 
精華
0 
積分
1035 
點名
0  
作業系統
windows 11 
軟體版本
OFFICE2021 
閱讀權限
50 
性別
男 
註冊時間
2011-5-30 
最後登錄
2026-10-2 
10#
發表於 2013-9-4 18:54 | 顯示全部帖子
回復  t8899
是這樣嗎?
GBKEE 發表於 2013-9-4 16:55


嗯, 完美無缺.
抱歉小弟vb 剛初學
  If i = 20 Then .Rows(13).Delete   

  這是delete sheet5的那一個?
  Sheets("Sheet3").[I4:I22] = "=SHEET5!RC[-6]"  

RC[-6] ===>是指??

TOP

        靜思自在 : 人的眼睛長在前面，只看到別人的缺點，絲毫看不到自己的缺點。
123
返回列表 上一主題