[發問] 下載問題

spermbank

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

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

wufonna

謝謝 G大 的教導
^_^

GBKEE

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

13# 你可試試看

12#
  開啟查詢檔

1. WEB
   
2. 1
   
3. http://newmis.twse.com.tw/stock/fibest.jsp?stock=1101
   
4. '************************
   
5. Selection=hor-minimalist-a
   
6. '*************************
   
7. Formatting=None
   
8. PreFormattedTextToColumns=True
   
9. ConsecutiveDelimitersAsOne=True
   
10. SingleBlockTextImport=False
    
11. DisableDateRecognition=False
    
12. DisableRedirections=False

複製代碼

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

複製代碼

下載 (23.69 KB)

2013-9-6 17:47

下載 (24.61 KB)

2013-9-6 17:47

下載 (59.03 KB)

2013-9-6 17:47

spermbank

回復 10# GBKEE


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

wufonna

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

wufonna

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

GBKEE

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

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

複製代碼

spermbank

回復 7# GBKEE


G大您好:
     大概就是如附件兩張圖片所示(讀不到的情況不一定)。
     另外網頁會跑出來能隱藏嗎? 謝謝。
     
     改成開啟網頁多2秒，能夠完整複製機率變90%以上，但是速度上慢2秒也不能完全解決問題。

wufonna

請問 G大
Busy Or ReadyState  getElementById 是 InternetExplorer.Application 的屬性嗎
我用 F1 找不到
謝謝

GBKEE

回復 6# spermbank
你的程式碼沒問題
可再說明  會發生""無法每次""資料完全複製至分頁 是什麼情形??
CreateObject("InternetExplorer.Application") 是MicroSoft 的 iexplore.exe
Google Chrome 不適用