請問如何截取指定參數網路內容之指定欄位資料?

3^# 跳轉到 »

發表於 2012-1-6 12:58 | 只看該作者

回復 2# GBKEE

感謝 GBKEE 版大

試過後已可自動抓取資料，謝謝您!
另外，若要在『代號』參數改變後，自動變更資料，還要加那些程式，請幫忙!
再一次謝謝您!

peter460191

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

2^#

發表於 2012-1-4 14:17 | 只看該作者

回復 1# peter460191

Sub Ex()
Dim E As Range, Ar()
With Sheets("Sheet1")
For Each E In .Range(.[A6], .[A6].End(xlDown)) '股票代號區域
With Sheets("Sheet2").[A1].QueryTable 'Sheet2").[A1] 請設有外部查詢
.Connection = "URL;http://justdata.yuanta.com.tw/z/zc/zcc/zcc_" & E & ".asp.htm"
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "4"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
With .ResultRange
Ar = .Range(.Cells(2, 6), .Cells(6, 6)).Value '年度股利合計範圍
End With
End With
E.Offset(, 2).Resize(1, 5) = Application.Transpose(Ar) '年度股利合計複製於股票代號區域向右2欄(1列,5欄)
Next
End With
End Sub

複製代碼

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