ACCESS網頁上抓取資料 - Access - 麻辣家族討論版版

losson

小學生 Rank: 1

帖子: 1
主題: 0
精華: 0
積分: 6
點名: 0
作業系統: windows7
軟體版本: office 2010
閱讀權限: 10
性別: 男
來自: 台北
註冊時間: 2012-5-30
最後登錄: 2012-6-7

11^# 跳轉到 »

發表於 2012-5-30 00:55 | 只看該作者

回復 5# HSIEN6001
能否也寄一份給我，權限不夠沒辦法下載
最近要進行相關的教學，正在苦惱中
謝謝
[email protected]

TOP

HSIEN6001

中學生 Rank: 2

帖子: 219
主題: 24
精華: 0
積分: 243
點名: 0
作業系統: Windows10
軟體版本: Office2016
閱讀權限: 20
性別: 女
註冊時間: 2012-4-18
最後登錄: 2022-2-7

論壇榮譽勳章論壇贊助勳章

12^#

發表於 2012-5-30 10:42 | 只看該作者

本帖最後由 HSIEN6001 於 2012-5-30 10:48 編輯

回復 11# losson

檔案刪了,沒留
而且那檔案只是提供概念,如四樓的圖檔,分成兩區塊查詢--->以相同欄位名稱
匯出兩個檔案後,再重新匯入一個新表格即可
使用者必須自行在查詢中設定篩選,把空白or多餘欄位去掉

Access匯入:
DoCmd.TransferText acImportDelim, "TEST 匯入規格", "資料表檔名", CurrentProject.Path & "\TEST.txt",True    '※ True(有欄位名稱)False(無欄名稱)
DoCmd.TransferSpreadsheet acImport, "規格代號", "資料表檔名", 路徑\檔名.格式, True                                  '※ True(有欄位名稱)False(無欄名稱)

Access查詢匯出:
DoCmd.OutputTo acQuery, "查詢表檔名", 8, "路徑\檔名.xls", False       '※  False匯出查表.xls不開啟,True匯出後開啟文件

也可以在Excel表格中先處理好,再匯入Access

TOP

048101

小學生 Rank: 1

帖子: 7
主題: 0
精華: 0
積分: 13
點名: 0
作業系統: windows
軟體版本: office 2003
閱讀權限: 10
性別: 男
來自: 台灣
註冊時間: 2012-6-27
最後登錄: 2013-7-25

13^#

發表於 2012-12-4 14:37 | 只看該作者

With .QueryTables.Add(Connection:="URL;http://bsr.twse.com.tw/bshtm/bshtm_report_
是屬於Excel下載查詢﹐Access不能用

TOP

048101

小學生 Rank: 1

帖子: 7
主題: 0
精華: 0
積分: 13
點名: 0
作業系統: windows
軟體版本: office 2003
閱讀權限: 10
性別: 男
來自: 台灣
註冊時間: 2012-6-27
最後登錄: 2013-7-25

14^#

發表於 2012-12-4 14:39 | 只看該作者

在Access中可用Microsoft.XMLHTTP下載﹐如下列
Dim MSXML As Object
Set MSXML = CreateObject("Microsoft.XMLHTTP")
strWebsite="http://bsr.twse.com.tw/bshtm/bshtm_report_Messages.aspx?strDate=20121203&StartNumber=1101"
MSXML.Open "GET", strWebsite, False
MSXML.SetRequestHeader "Content-type", "text/xml"
MSXML.send

TOP

chhou

小學生 Rank: 1

帖子: 2
主題: 0
精華: 0
積分: 1
點名: 0
作業系統: Windows
軟體版本: 7
閱讀權限: 10
註冊時間: 2013-12-3
最後登錄: 2013-12-3

15^#

發表於 2013-12-3 18:17 | 只看該作者

正好是我想要找的, 感謝你無私的分享

TOP

heavenweaver

中學生 Rank: 2

帖子: 48
主題: 6
精華: 0
積分: 60
點名: 0
作業系統: XP
軟體版本: Office 2003
閱讀權限: 20
性別: 男
註冊時間: 2012-8-13
最後登錄: 2023-2-7

16^#

發表於 2014-3-1 23:31 | 只看該作者

回復 14# 048101
提供的URL不Work，試試我的範例，輸出為html格式。
僅針對2330台積電測試(PageCount=13)，其他股票需設定PageCount，可上網查一下上市買賣日報表查詢下載的相關程式技巧。

Option Compare Database
Sub Test()

Dim MSXML As Object
Set MSXML = CreateObject("Microsoft.XMLHTTP")
fh = FreeFile
'strWebsite = "http://bsr.twse.com.tw/bshtm/bshtm_report_Messages.aspx?strDate=20140227&StartNumber=2330"
strWebsite = "http://bsr.twse.com.tw/bshtm/bsMenu.aspx?HiddenField_page=PAGE_BS&HiddenField_spDate=&__EVENTTARGET=&__EVENTARGUMENT=&__VIEWSTATE=%2FwEPDwUKLTQzNzI3ODE3MQ9kFgICAQ9kFhQCBQ8WAh4JaW5uZXJodG1sBQoyMDE0LzAyLzI3ZAIGDxYCHwAFCDIwMTQwMjI3ZAIIDw8WBh4JRm9udF9Cb2xkZx4EXyFTQgKEEB4JRm9yZUNvbG9yCj1kZAIKD2QWBAIBDw9kFgIeB09uQ2xpY2sFHGphdmFzY3JpcHQ6YnV0Q2xlYXJfQ2xpY2soKTtkAgcPFgIeBXN0eWxlBQlkaXNwbGF5OjsWAmYPZBYCZg9kFgICAQ8WAh8ABQIxM2QCDA8PFgYfAWgfAgKEEB8DCkdkZAIODw8WAh4HVmlzaWJsZWhkZAIQDw8WBh8BaB8CAoQQHwMKR2RkAhIPFgIfAGVkAhQPFgIfAGVkAhUPFgIfAAUCMTNkZJhG1J6ISYtK7kIpEfImJdIAAAAA&__EVENTVALIDATION=%2FwEWCQLryNa%2BCwLjpuXcAwKN4Ij0CwLB5ZfoCQLjk6TKBwKY8en5CwLdkpmPAQL6n7vzCwLAhrvLBScjE4xZjzHjsp%2FT1DwVl9MAAAAA&HiddenField_spDate=20140227&HiddenField_page=PAGE_BS&txtTASKNO=2330&hidTASKNO=2330&btnOK=%E6%9F%A5%E8%A9%A2"
MSXML.Open "POST", strWebsite, False
strWebsite = "http://bsr.twse.com.tw/bshtm/bsContent.aspx?StartNumber=2330&FocusIndex=All_13"
MSXML.Open "GET", strWebsite, False
MSXML.SetRequestHeader "Content-type", "text/xml"
MSXML.send
strpageContent = MSXML.responseText
' Save html as text/xml
Open "C:\myStock\AccessVBA-2330.txt" For Output As #FreeFile
Print #fh, strpageContent
Set MSXML = Nothing
Close #fh

End Sub

很抱歉，我是小學生，不能下載檔案，是個小屁孩！

TOP

heavenweaver

中學生 Rank: 2

帖子: 48
主題: 6
精華: 0
積分: 60
點名: 0
作業系統: XP
軟體版本: Office 2003
閱讀權限: 20
性別: 男
註冊時間: 2012-8-13
最後登錄: 2023-2-7

17^#

發表於 2014-3-1 23:52 | 只看該作者

補#16的圖，有圖才有真象！

很抱歉，我是小學生，不能下載檔案，是個小屁孩！

TOP

[發問] ACCESS網頁上抓取資料

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]