因應疫情，剛好可以好好學習網路爬蟲，最簡單的還是用EXCEL裡的VBA來抓資料，這個範例適用IE物件來抓取，程式可以用本來改一改就好，細節不要出錯，很快資料就全部下來了，如下。
EXCEL VBA金融數據之網路爬蟲實作16
01_下載股市資訊網與YAHOO股市
02_用IE物件下載YAHOO股市說明
03_用IE物件下載YAHOO股市細節
04_改為下載股市所有資料
05_下載資料日期用className
完整影音
http://goo.gl/aQTMFS
懶人包：
EXCEL函數與VBA http://terry28853669.pixnet.net/blog/category/list/1384521
EXCEL VBA自動化教學 http://terry28853669.pixnet.net/blog/category/list/1384524
課程簡介：入門
VBA重要函數到Python
建置Python開發環境
基本語法與結構控制
迴圈、資料結構及函式
檔案與資料庫處理
課程簡介：進階
處理 CSV 檔和 JSON 資料
PM2.5即時監測顯示器轉存到SQLITE資料庫
網頁資料擷取與分析、
Python網頁測試自動化、
下載外匯資料、下載YAHOO股市類股、下載威力彩
EXCEL VBA與Phython協同運作
資產負債表與券商分點買賣超
群益八大公股銀行買賣超
鉅亨網新聞與MoneyDJ新聞
7-11門市與PChome
參考書目
Excel VBA實戰技巧金融數據x網路爬蟲
作者：廖敏宏（廖志煌）
出版社：碁峰 出版日期：2019/06/30
Python大數據特訓班(第二版)
作者：鄧文淵,文淵閣工作室
出版社：碁峰?出版日期：2020/06/01
吳老師 110/5/22
excel vba下載 在 [算表] excel VBA 下載網頁會清空ACTIVESHEET - 看板Office 的推薦與評價
軟體:EXCEL
版本:2016
大家好，這問題我卡住好久，先感謝各位大神。
問題: 這支EXCEL 下載網頁資料下來 在更新過程中會清空ACTIVESHEET
導致我觸發按鈕一起被清空 下一次更新時候 還要拉一個新按鈕
很不方便。
如圖1:
程式碼:
======================================================================
Private Sub CommandButton1_Click()
Dim IE As New InternetExplorer, URL As String, A As Object
'宣告 Dim ie As New InternetExplorer
'須在工具-> 設定引用項目加入 新增引用 Microsoft Internet Controls
URL = "https://fund.bot.com.tw/z/ze/zeb/zeb.djhtm"
With IE
.Navigate URL
.Visible = True
Do While .Busy Or .ReadyState <> 4: Loop
Set A = .Document.getElementsByTagName("TABLE")
Ep A(2).outerHTML
.Quit
End With
End Sub
Sub Ep(S As String)
Dim D As New DataObject
'DataObject 物件 在進行轉換動作時，做為格式化文字資料的暫存區域。其也可以
暫存和儲存在 DataObject 的文字片段相關的格式。
'宣告 Dim D As New DataObject
'須在工具-> 設定引用項目加入 新增引用 Microsoft Forms 2.0 Object Library ,
專案 加入一表單即可
With D
.SetText S
.PutInClipboard
With ActiveSheet
.UsedRange.Clear
.Paste .[C1]
.Shapes.SelectAll
Selection.Delete
.Hyperlinks.Delete
End With
End With
End Sub
==============================================================================
如圖2:程式跑完 他會清空按鈕
目前猜測應該是.UsedRange.Clear 清空整個頁面，
有沒有方法，可以保留按鈕，讓我下一次還能藉由按鈕執行下載網頁功能。
感謝各位細心看完!!!
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 223.139.28.156
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1535018033.A.726.html
... <看更多>