- 帖子
- 231
- 主題
- 55
- 精華
- 0
- 積分
- 293
- 點名
- 0
- 作業系統
- winxp
- 軟體版本
- office2003
- 閱讀權限
- 20
- 性別
- 男
- 來自
- KEELUNG
- 註冊時間
- 2010-7-24
- 最後登錄
- 2018-8-28
|
各位大大好：
小弟想借用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-12 12:09
| 
發表於 2010-11-14 23:09
| 