[發問] 下載問題

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

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

2^#

發表於 2013-9-6 12:00 | 只看該作者

回復 1# spermbank
給你下載的程式碼 ,其餘的問題可察看本討論區的主題,加以組合(自己多練習 vba 會進步)

Option Explicit
Sub 基本市況報導網站()
Dim xlVbTable(1 To 2) As Object, R As Integer, C As Integer, i As Variant, Y As Integer
With CreateObject("InternetExplorer.Application")
.Visible = True
.Navigate "http://newmis.twse.com.tw/stock/fibest.jsp?stock=1101"
Do While .Busy Or .ReadyState <> 4: DoEvents: Loop
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元的贊助,人人有能力.

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

3^#

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

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

回復 2# GBKEE

感謝G大，但是我發現個問題，因為這個網站開啟後，會讀取即時資料，若直接執行巨集，速度過快，會發生""無法每次""資料完全複製至分頁
我利用Application.Wait Now + TimeValue("00:00:02")來使網址停留2秒等待網頁資料讀入資料再複製至分頁，雖然可以提高一點資料完全複製
可是還是有時無法完全讀到，是否有什麼判斷方式，還是哪邊有問題呢?謝謝。

若是用Google Chrome是把InternetExplorer.Application改成什麼呢?
網頁是否不要顯示就複製至分頁呢? 謝謝。

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

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

4^#

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

回復 3# spermbank
會發生""無法每次""資料完全複製至分頁,貼上你的程式碼看看

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

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

5^#

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

回復 4# GBKEE

Option Explicit
Sub 基本市況報導網站()
Sheets("工作表3").Select
Dim xlVbTable(1 To 2) As Object, R As Integer, C As Integer, i As Variant, Y As Integer
With CreateObject("InternetExplorer.Application")
      .Visible = True
   .Navigate "http://newmis.twse.com.tw/stock/fibest.jsp?stock=5490"
      Application.Wait Now + TimeValue("00:00:02")
      Do While .Busy Or .ReadyState <> 4: DoEvents: Loop
      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

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

6^#

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

回復 5# spermbank

若是用Google Chrome是把InternetExplorer.Application改成什麼呢?
網頁是否不要顯示就複製至分頁呢? 謝謝。

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

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

7^#

發表於 2013-9-6 14:30 | 只看該作者

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

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

wufonna

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

8^#

發表於 2013-9-6 14:56 | 只看該作者

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

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

2.PNG (9.47 KB)

帖子: 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元的贊助,人人有能力.