mnsmrtl

帖子: 51
主題: 17
精華: 0
積分: 200
點名: 0
作業系統: winxp
軟體版本: officexp
閱讀權限: 20
性別: 男
註冊時間: 2010-7-31
最後登錄: 2018-9-19

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2011-4-21 11:32 | 只看該作者

[發問] 請問如何以VBA擷取網站上的資料？

本帖最後由 mnsmrtl 於 2011-4-23 12:11 編輯

如題，我希望在EXCEL輸入股票代碼，然後可以從證交所或是奇摩等網站抓取當日收盤等數據
不過完全不知道從何下手，請各位先進不吝指教，謝謝

樓主熱帖

不進則退

freeffly

高中生 Rank: 3 Rank: 3

帖子: 586
主題: 123
精華: 0
積分: 763
點名: 0
作業系統: WINDOW7
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-16
最後登錄: 2017-3-14

熱烈參與勳章好學求知勳章

2^#

發表於 2011-4-21 12:44 | 只看該作者

奇摩網站的網路上有人提供
但是我跟櫃買中心的比對有點差異
不知道原因是什麼
不然那各檔真的是讓人抓的相當好用
上網找一下就有

字典兩各字還真難理解

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

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

3^#

發表於 2011-4-21 16:57 | 只看該作者

回復 1# mnsmrtl
不一定要VBA

TOP

mnsmrtl

中學生 Rank: 2

帖子: 51
主題: 17
精華: 0
積分: 200
點名: 0
作業系統: winxp
軟體版本: officexp
閱讀權限: 20
性別: 男
註冊時間: 2010-7-31
最後登錄: 2018-9-19

4^#

發表於 2011-4-22 11:29 | 只看該作者

感謝兩位的回覆，不過我還是希望透過VBA每日擷取
至於網路上找到的檔案，我也有抓到過，不過無法開啟
似乎缺了很多元件，由於我VBA的功力不足，要修改也無從下手
所以想自己學著寫寫看，還請提供建議，謝謝

不進則退

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

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

5^#

發表於 2011-4-22 16:05 | 只看該作者

回復 4# mnsmrtl

Sub 新增查詢()
Range("A1") = "2610" '股票代號
Range("A3").Select
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://tw.stock.yahoo.com/q/q?s=" & Range("a1"), Destination:=Selection) '新增查詢
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "6"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
.Name = .ResultRange.Cells(3, 1)
End With
End Sub
'***** 已新增後查詢後可修改A1的股票代號查詢 *****
Sub 更新查詢()
With Range("A3").QueryTable
.Connection = "URL;http://tw.stock.yahoo.com/q/q?s=" & Range("a1") '股票代號在[A1]
.Refresh BackgroundQuery:=False
.Name = .ResultRange.Cells(3, 1)
End With
End Sub

複製代碼

TOP

mnsmrtl

中學生 Rank: 2

帖子: 51
主題: 17
精華: 0
積分: 200
點名: 0
作業系統: winxp
軟體版本: officexp
閱讀權限: 20
性別: 男
註冊時間: 2010-7-31
最後登錄: 2018-9-19

6^#

發表於 2011-4-23 12:07 | 只看該作者

本帖最後由 mnsmrtl 於 2011-4-23 12:14 編輯

感謝版主，經測試後已經ok
另外想再請教，如何只回傳其中一個欄位？
如果該網站變更格式的話，.querytable的子項目是不是要重新修改？
而webtables="6"，要怎麼取得？

不進則退

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

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

7^#

發表於 2011-4-23 17:28 | 只看該作者

回復 6# mnsmrtl
另外想再請教，如何只回傳其中一個欄位？
請參考 http://forum.twbts.com/thread-3064-1-2.html

webtables="6"，要怎麼取得？

TOP

mnsmrtl

中學生 Rank: 2

帖子: 51
主題: 17
精華: 0
積分: 200
點名: 0
作業系統: winxp
軟體版本: officexp
閱讀權限: 20
性別: 男
註冊時間: 2010-7-31
最後登錄: 2018-9-19

8^#

發表於 2011-4-24 01:10 | 只看該作者

感謝版主指導~

不進則退

TOP

pig172

小學生 Rank: 1

帖子: 13
主題: 3
精華: 0
積分: 48
點名: 0
作業系統: Windows 7
軟體版本: office 2010
閱讀權限: 10
性別: 男
註冊時間: 2011-10-13
最後登錄: 2013-11-24

9^#

發表於 2011-10-16 16:28 | 只看該作者

感謝發文.真的可以用..是否還有同時能抓多檔的方法?

TOP

dechiuan999

中學生 Rank: 2

帖子: 231
主題: 55
精華: 0
積分: 293
點名: 0
作業系統: winxp
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: KEELUNG
註冊時間: 2010-7-24
最後登錄: 2018-8-28

10^#

發表於 2011-10-17 09:32 | 只看該作者

版主大大你好：

小弟對透過EXCEL取得網頁資料，
一直深深感到興趣但是無法領會及突破困境。
現想借用此板及板主大大提供的語法。
並取得此網頁的指定位置內容如下：

一、
網址：http://tw.stock.yahoo.com/d/s/company_1102.html

二、
取得此網頁的資料表為

獲利能力 (100第2季) 最新四季每股盈餘  最近四年每股盈餘

三、
  小弟有試著直接將下列語法的網址更正
如上的網址但是無法成功。
能請版主大大指點小弟。

感恩大大：

Sub 新增查詢()
Range("A1") = "2610" '股票代號
Range("A3").Select
With ActiveSheet.QueryTables.Add(Connection:= _
      "URL;http://tw.stock.yahoo.com/q/q?s=" & Range("a1"), Destination:=Selection)  '新增查詢
      .FieldNames = True
      .RowNumbers = False
      .FillAdjacentFormulas = False
      .PreserveFormatting = True
      .RefreshOnFileOpen = False
      .BackgroundQuery = True
      .RefreshStyle = xlInsertDeleteCells
      .SavePassword = False
      .SaveData = True
      .AdjustColumnWidth = True
      .RefreshPeriod = 0
      .WebSelectionType = xlSpecifiedTables
      .WebFormatting = xlWebFormattingNone
      .WebTables = "6"
      .WebPreFormattedTextToColumns = True
      .WebConsecutiveDelimitersAsOne = True
      .WebSingleBlockTextImport = False
      .WebDisableDateRecognition = False
      .WebDisableRedirections = False
      .Refresh BackgroundQuery:=False
      .Name = .ResultRange.Cells(3, 1)
End With
End Sub
'***** 已新增後查詢後可修改A1的股票代號查詢  *****
Sub 更新查詢()
With Range("A3").QueryTable
      .Connection = "URL;http://tw.stock.yahoo.com/q/q?s=" & Range("a1") '股票代號在[A1]
      .Refresh BackgroundQuery:=False
      .Name = .ResultRange.Cells(3, 1)
End With
End Sub

TOP