123
返回列表 上一主題 發帖

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

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

帖子
1572 
主題
16 
精華
2 
積分
1521 
點名
0  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
150 
性別
男 
註冊時間
2010-5-1 
最後登錄
2016-1-13 

論壇貢獻勳章
11# 跳轉到 »
發表於 2011-10-17 11:15 | 只看該作者
其實你錄製一下就可得到代碼，再把2610改成儲存格位址如[a1], 如此而已。
  1. Sub Macro2()
  2.     With ActiveSheet.QueryTables.Add(Connection:= _
  3.         "URL;http://tw.stock.yahoo.com/d/s/company_" & [a1] & ".html", _
  4.         Destination:=Range("A3"))
  5.         .Name = "company_" & [a1]
  6.         .FieldNames = True
  7.         .RowNumbers = False
  8.         .FillAdjacentFormulas = False
  9.         .PreserveFormatting = True
  10.         .RefreshOnFileOpen = False
  11.         .BackgroundQuery = True
  12.         .RefreshStyle = xlInsertDeleteCells
  13.         .SavePassword = False
  14.         .SaveData = True
  15.         .AdjustColumnWidth = True
  16.         .RefreshPeriod = 0
  17.         .WebSelectionType = xlSpecifiedTables
  18.         .WebFormatting = xlWebFormattingNone
  19.         .WebTables = "9"
  20.         .WebPreFormattedTextToColumns = True
  21.         .WebConsecutiveDelimitersAsOne = True
  22.         .WebSingleBlockTextImport = False
  23.         .WebDisableDateRecognition = False
  24.         .WebDisableRedirections = False
  25.         .Refresh BackgroundQuery:=False
  26.     End With
  27. End Sub
複製代碼

TOP

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

帖子
1572 
主題
16 
精華
2 
積分
1521 
點名
0  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
150 
性別
男 
註冊時間
2010-5-1 
最後登錄
2016-1-13 

論壇貢獻勳章
12#
發表於 2011-10-17 11:32 | 只看該作者
這是excel的說明中的範例寫法，比錄製得的代碼簡潔多了
  1. Sub qq()
  2. Set shFirstQtr = ActiveSheet
  3. Set qtQtrResults = shFirstQtr.QueryTables _
  4.     .Add(Connection:="URL;http://tw.stock.yahoo.com/d/s/company_" & [a1] & ".html", _
  5.         Destination:=shFirstQtr.Cells(3, 1))
  6. With qtQtrResults
  7.     .WebFormatting = xlNone
  8.     .WebSelectionType = xlSpecifiedTables
  9.     .WebTables = "9"
  10.     .Refresh
  11. End With
  12. End Sub
複製代碼

TOP

dechiuan999

帖子
231 
主題
55 
精華
0 
積分
293 
點名
0  
作業系統
winxp 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
KEELUNG 
註冊時間
2010-7-24 
最後登錄
2018-8-28 
13#
發表於 2011-10-17 20:16 | 只看該作者
謝謝oobird版主大大。
感謝您幫小弟開啟這一扇大門，
同時也幫小弟搬開心中的一塊
大石頭。
一語點醒如此好用的EXCEL
錄製功能，小弟卻將它遺忘。

另小弟想宣告設定
DIM qtQtrResults AS ......
才能讓它在WITH qtQtrResults時
能顯示出其屬性及功能呢？
With qtQtrResults
    .WebFormatting = xlNone
    .WebSelectionType = xlSpecifiedTables
    .WebTables = "9"
    .Refresh
End With

感恩大大！

TOP

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

帖子
1572 
主題
16 
精華
2 
積分
1521 
點名
0  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
150 
性別
男 
註冊時間
2010-5-1 
最後登錄
2016-1-13 

論壇貢獻勳章
14#
發表於 2011-10-17 20:35 | 只看該作者
Dim qtQtrResults As QueryTable

TOP

dechiuan999

帖子
231 
主題
55 
精華
0 
積分
293 
點名
0  
作業系統
winxp 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
KEELUNG 
註冊時間
2010-7-24 
最後登錄
2018-8-28 
15#
發表於 2011-10-18 06:34 | 只看該作者
謝謝oobird版主大大。
感謝您引領小弟進入
另一個新的領域。

感恩大大！

TOP

p01005

帖子
5 
主題
1 
精華
0 
積分
6 
點名
0  
作業系統
Win7 
軟體版本
Office2013 
閱讀權限
10 
性別
男 
註冊時間
2015-3-2 
最後登錄
2015-4-1 
16#
發表於 2015-3-4 23:39 | 只看該作者
Sub qq()
Set shFirstQtr = ActiveSheet
Set qtQtrResults = shFirstQtr.QueryTables _
    .Add(Connection:="URL;http://tw.stock.yahoo.com/d/s/company_" & [a1] & ".html", _
        Destination:=shFirstQtr.Cells(3, 1))
With qtQtrResults
    .WebFormatting = xlNone
    .WebSelectionType = xlSpecifiedTables
    .WebTables = "9"
    .Refresh
End With
End Sub
我想問問那麼在這段代碼中
.Refreshstyle 可以插在那個位置？？
因為我想這個是覆蓋資料而不是不斷插入

TOP

p01005

帖子
5 
主題
1 
精華
0 
積分
6 
點名
0  
作業系統
Win7 
軟體版本
Office2013 
閱讀權限
10 
性別
男 
註冊時間
2015-3-2 
最後登錄
2015-4-1 
17#
發表於 2015-3-5 02:31 | 只看該作者
已找到.Refreshstyle的位置
但找不到怎樣只導入第一欄的資料＠＠
VBA新手

TOP

ABK

帖子
115 
主題
24 
精華
0 
積分
178 
點名
2  
作業系統
WIN10 
軟體版本
Office2016 
閱讀權限
20 
性別
男 
註冊時間
2011-1-12 
最後登錄
2024-11-15 
18#
發表於 2016-6-7 12:29 | 只看該作者
請問 如果只想抓 網站上的部分資料 下來， VBA 要如何寫 ?
  1. Sub 期貨交易口數()
  2. Set shFirstQtr = ActiveSheet
  3. Set qtQtrResults = shFirstQtr.QueryTables _
  4.     .Add(Connection:="URL;http://www.taifex.com.tw/chinese/3/7_12_3_tbl.asp", _
  5.         Destination:=shFirstQtr.Cells(3, 1))
  6. With qtQtrResults
  7.     .WebFormatting = xlNone
  8.     .WebSelectionType = xlSpecifiedTables
  9.     .WebTables = "2"
  10.     .Refresh
  11. End With
  12. End Sub
複製代碼

抓期貨口數.jpg (124 KB)

期貨交易口數

抓期貨口數.jpg

TOP

ui123

帖子
73 
主題
11 
精華
0 
積分
100 
點名
0  
作業系統
Win 8 
軟體版本
2007 
閱讀權限
20 
性別
女 
註冊時間
2013-5-11 
最後登錄
2018-7-25 

論壇榮譽勳章論壇贊助勳章
19#
發表於 2017-9-12 10:51 | 只看該作者
回復 5# GBKEE

大大請問一下，我用下面這個程式抓出的資料跟原始網站的資料比較下，下面有一段沒有抓不到，是不是有參數沒設好? 要wait嗎?因為下面有顯示Loading more data...但是我不知道怎樣讓他跑完

原始網站: https://finance.yahoo.com/quote/AAPL/history?period1=1473638400&period2=1505174400&interval=1d&filter=history&frequency=1d

Sub QueryTable()
    Const xlURL As String = "https://finance.yahoo.com/quote/AAPL/history?period1=1473638400&period2=1505174400&interval=1d&filter=history&frequency=1d"
    With ActiveSheet.QueryTables.Add("URL;" & xlURL, Destination:=Range("$A$1"))
        .WebFormatting = xlWebFormattingNone
        .TablesOnlyFromHTML = False
        .RefreshStyle = xlOverwriteCells
        .SaveData = True
        .Refresh 0
    End With
End Sub

TOP

ui123

帖子
73 
主題
11 
精華
0 
積分
100 
點名
0  
作業系統
Win 8 
軟體版本
2007 
閱讀權限
20 
性別
女 
註冊時間
2013-5-11 
最後登錄
2018-7-25 

論壇榮譽勳章論壇贊助勳章
20#
發表於 2017-9-12 11:08 | 只看該作者
回復 5# GBKEE

GBKEE大大，我原本想用這幾天問你的，抓Crumb位置來下載csv檔案，但沒有成功，所以想換下面那個網址試試，但抓出的資料不完整，如果可以抓取完整就太好了
https://finance.yahoo.com/quote/AAPL/history?period1=1473638400&period2=1505174400&interval=1d&filter=history&frequency=1d
紅框下面是要抓的資料:

javascript:;

Data 1.PNG (52.44 KB)

Data 1.PNG

TOP

        靜思自在 : 虛空有盡．我願無窮，發願容易行願難。
123
返回列表 上一主題