標題: [發問] 如何以迴圈取出指定web內的資料呢？ [打印本頁]

---

作者: dechiuan999    時間: 2010-11-12 12:09     標題: 如何以迴圈取出指定web內的資料呢？

各位大大好：

小弟想借用EXCEL對WEB取出資料，
一直有力不從心的感覺。
小弟無法突破要如何指定日期及月份逐一取出
相關資料。該網頁並設有

  一、請選擇欲查詢的期別或開獎日期   
      第  期的中獎號碼(輸入九碼期別， 例：096000001期)      
  二、中華民國   96 97 98 99 100 101 102 年  1 2 3 4 5 6 7 8 9 10 11 12 月的中獎號碼  

二種方式逐一列出。而小弟是要引用第二種方式並以迴圈方式來達成。
請問小弟要如何須正下列語法才能達成呢？
又為何其取出之中文會出現亂碼，其原因為何呢？

Sub test001()

    Dim mSht As Worksheet
    Dim mRng As Range
    Dim mRow As Long, i%
    Dim myURL    As String
    Dim myWebTbl As String
   
    Set mSht = Worksheets(1)
        'MsgBox mSht.Name
    With mSht
   
        myURL = "URL;http://www.taiwanlottery.com.tw/Lotto/Lotto649/history.aspx"               '任意的URL"
    '指定讀入表單
        For i = 1 To 100 Step 10
            myWebTbl = i
            'Worksheets.Add                                  '新增工作表
            With ActiveSheet.QueryTables.Add(Connection:=myURL _
                , Destination:=.[a65536].End(xlUp).Offset(1))                    '讀入目標儲存格
                .WebFormatting = xlWebFormattingNone           '文字或HTML
                .WebTables = myWebTbl
                .Refresh
            End With
        Next
    End With
End Sub

謝謝各位大大。

---

作者: 沙拉油    時間: 2010-11-14 23:09

本帖最後由 沙拉油 於 2010-11-14 23:12 編輯

你想要用WEB查詢？自己看看底下的連結吧？！
在網路上已經講過幾十篇有了，不想再講了
http://blog.xuite.net/saladoil/excel/38430175
http://blog.xuite.net/saladoil/excel/38751663
再不然 Google 搜尋一下 Excel WEB查詢

---

作者: dechiuan999    時間: 2010-11-15 05:56

謝謝版主大大。

小弟會依版主大大的指示
先行學習相關知識。
如有不足之處，小弟再向
版主大大請益了。

感恩大大！

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)