Object資料怎麼轉到Worksheet!

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

1^# 跳轉到 »

發表於 2011-4-19 15:43 | 顯示全部帖子

回復 1# chlungi
試試看

Sub 股市資料網頁()
Dim Rng(1) As Range, i As Integer
With ActiveSheet
Set Rng(0) = .[C1] '股票代號輸入處
Set Rng(1) = .[B4] '股票數據存放起始點
End With
With CreateObject("InternetExplorer.Application")
.Navigate ("http://tw.stock.yahoo.com/q/q?s=" & Rng(0))
Do While .Busy = True
Loop
DoEvents
For i = 0 To .Document.all.Length - 1
If .Document.all(i).tagName = "TD" And Len(.Document.all(i).innerText) > 3 Then
If .Document.all(i).innerText Like "****/**/**" Then Rng(0).Offset(1, -1) = .Document.all(i).innerText '取得資料的日期
If .Document.all(i).innerText Like Rng(0) & "*" Then
Rng(1).Value = Mid(.Document.all(i).innerText, 1, InStr(.Document.all(i).innerText, "加") - 2) '取得股票代號名稱
Set Rng(1) = Rng(1).Offset(, 1) '設定下個位址
ElseIf Len(.Document.all(i).innerText) <= 5 Then
Rng(1).Value = .Document.all(i).innerText '取得股票數據
Set Rng(1) = Rng(1).Offset(, 1) '設定下個位址
End If
End If
Next
.Quit
End With
End Sub

複製代碼

靜思自在 : 好事要提得起，是非要放得下，成就別人即是成就自己。