一個用VBA從網頁取得想要資料的寫法~ - Excel程式區

[發問] 一個用VBA從網頁取得想要資料的寫法~

1^# 跳轉到 »

發表於 2012-5-1 16:42 | 顯示全部帖子

回復 4# white5168
回復 2# vesperlee
請試試看！

Private Sub CommandButton1_Click()
' Const url As String = "http://jsjustweb.jihsun.com.tw/z/zc/zck/zck_6257.asp.htm"
Const url As String = "http://jsjustweb.jihsun.com.tw/z/zc/zcx/zcx_6257.asp.htm" ' 正確的
Cells.Clear
Set ie = CreateObject("internetexplorer.application") '使用此方式可以免除 "設定引用項目"
With ie
.Visible = False 'True為開啟ie, False為不開啟ie
.Navigate url
Do While .ReadyState <> 4 '等待網頁開啟
DoEvents
Loop
.ExecWB 17, 2 'Select All
.ExecWB 12, 2 'Copy selection
Range("A1").Activate
ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:= _
False, NoHTMLFormatting:=True
End With
Columns("A:B").Delete ' 將匯入時 A、B 兩欄移除，原本 C:I 的欄位全部左靠，成為 A:I
ie.Quit
MsgBox "資料複製結束" ' 離開前顯示一小視窗提醒，按它後即結束。
End Sub

複製代碼

2^#

發表於 2012-5-3 08:06 | 顯示全部帖子

回復 7# arksu
objXmlHttp.Open("GET", url, False) 等模組無法使用，
可能須要再入其相對 DLL，但我對 VBA 不孰，
請問該如何設定？

靜思自在 : 修行要繫緣修心，藉事練心，隨處養心。