帖子: 94
主題: 28
精華: 0
積分: 145
點名: 0
作業系統: windows
軟體版本: office 2007
閱讀權限: 20
註冊時間: 2011-9-22
最後登錄: 2021-10-18

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2013-9-6 10:28 | 只看該作者

[發問] 下載問題

本帖最後由 spermbank 於 2013-9-6 10:32 編輯

大家好:
我想下載如網址http://newmis.twse.com.tw/stock/fibest.jsp?stock=1101的最佳五檔價量資訊揭示。
因為使用過excel從網站取得外部資料的功能，但是無法讀取，不知道是什麼問題。

所以想說是否可以在分頁選取股號名稱，啟動巨集，再從如上網址將目前時間所揭示的最佳五檔價量資訊，儲存成csv檔，並將買進、賣出數量加總，顯示於分頁中呢?
謝謝。

樓主熱帖

wufonna

中學生 Rank: 2

帖子: 161
主題: 26
精華: 0
積分: 187
點名: 0
作業系統: xp
軟體版本: office 2010
閱讀權限: 20
性別: 男
來自: TW
註冊時間: 2011-1-2
最後登錄: 2022-2-16

15^#

發表於 2013-9-6 18:01 | 只看該作者

謝謝 G大的教導
^_^

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兔年全勤獎章

14^#

發表於 2013-9-6 17:48 | 只看該作者

本帖最後由 GBKEE 於 2013-9-13 21:17 編輯

回復 13# spermbank
11# http://www.excelpx.com/thread-149757-1-1.html

13# 你可試試看

12#
開啟查詢檔

WEB
1
http://newmis.twse.com.tw/stock/fibest.jsp?stock=1101
'************************
Selection=hor-minimalist-a
'*************************
Formatting=None
PreFormattedTextToColumns=True
ConsecutiveDelimitersAsOne=True
SingleBlockTextImport=False
DisableDateRecognition=False
DisableRedirections=False

複製代碼

WEB
1
http://forum.twbts.com/thread-10377-1-1.html
'*****************
Selection=23,24 ' 須減 1 , 22,23 請看 http://forum.twbts.com/viewthread.php?tid=10389&pid=58549&page=5&extra=pageD1#pid58549
'******************
Formatting=None
PreFormattedTextToColumns=True
ConsecutiveDelimitersAsOne=True
SingleBlockTextImport=False
DisableDateRecognition=False
DisableRedirections=False

複製代碼

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

TOP

spermbank

中學生 Rank: 2

帖子: 94
主題: 28
精華: 0
積分: 145
點名: 0
作業系統: windows
軟體版本: office 2007
閱讀權限: 20
註冊時間: 2011-9-22
最後登錄: 2021-10-18

13^#

發表於 2013-9-6 17:07 | 只看該作者

回復 10# GBKEE

   G大再請問一下:
   因為一次只能開啟一個網址就必須等待2秒，可不可以一次開啟X個網址再等待2秒呢?
   這樣就可以一次解決X個，只花B秒。

TOP

wufonna

中學生 Rank: 2

帖子: 161
主題: 26
精華: 0
積分: 187
點名: 0
作業系統: xp
軟體版本: office 2010
閱讀權限: 20
性別: 男
來自: TW
註冊時間: 2011-1-2
最後登錄: 2022-2-16

12^#

發表於 2013-9-6 17:01 | 只看該作者

報歉
再請問大大
id hor-minimalist-a hor-minimalist-b
是要先看原始嗎得知嗎
如何用 vba 得知網頁內有多少個 id
還有只可得到 table 的 id 嗎
謝謝大大

TOP

wufonna

中學生 Rank: 2

帖子: 161
主題: 26
精華: 0
積分: 187
點名: 0
作業系統: xp
軟體版本: office 2010
閱讀權限: 20
性別: 男
來自: TW
註冊時間: 2011-1-2
最後登錄: 2022-2-16

11^#

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

請問大大
.Busy Or .ReadyState <> 4:
是什麼意思，版上很多
不可
<>6 , 7 ...
嗎，
謝謝

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兔年全勤獎章

10^#

發表於 2013-9-6 15:49 | 只看該作者

回復 9# spermbank
VBA 沒有安裝 IE 的說明

Option Explicit
Sub 基本市況報導網站()
Dim xlVbTable(1 To 2) As Object, R As Integer, C As Integer, i As Variant, Y As Integer
Sheets("工作表3").Select
With CreateObject("InternetExplorer.Application")
' .Visible = True
.Navigate "http://newmis.twse.com.tw/stock/fibest.jsp?stock=5490"
Do While .Busy Or .ReadyState <> 4: DoEvents: Loop
Application.Wait Now + TimeValue("00:00:02") 'IE開啟後再暫停2秒等候下載IE資料
Set xlVbTable(1) = .Document.getElementById("hor-minimalist-a")
Set xlVbTable(2) = .Document.getElementById("hor-minimalist-b")
On Error Resume Next
With ActiveSheet
.Cells.Clear
Y = 1
For i = 1 To 2
For R = 0 To xlVbTable(i).Rows.Length - 1
For C = 0 To xlVbTable(i).Rows(R).all.Length - 1
.Cells(Y, C + 1) = xlVbTable(i).Rows(R).Cells(C).innertext
Next
Y = Y + 1
Next
Next
End With
.Quit
End With
End Sub

複製代碼

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

TOP

spermbank

中學生 Rank: 2

帖子: 94
主題: 28
精華: 0
積分: 145
點名: 0
作業系統: windows
軟體版本: office 2007
閱讀權限: 20
註冊時間: 2011-9-22
最後登錄: 2021-10-18

9^#

發表於 2013-9-6 15:06 | 只看該作者

本帖最後由 spermbank 於 2013-9-6 15:13 編輯

回復 7# GBKEE

G大您好:
   大概就是如附件兩張圖片所示(讀不到的情況不一定)。
   另外網頁會跑出來能隱藏嗎? 謝謝。

   改成開啟網頁多2秒，能夠完整複製機率變90%以上，但是速度上慢2秒也不能完全解決問題。

1.PNG (8.15 KB)