關於部落格
研究所升學、程式語言資訊、C/C++、Python、Perl、Shell、MySQL、PHP、CSS、VBA、JavaScript
  • 80498

    累積人氣

  • 0

    今日人氣

    0

    訂閱人氣

Excel VBA 針對 js的資料網頁無法抓取的解法

股票名稱及代碼是在網頁載入完成後,才用 JavaScript 動態產生的
所以 Web Query 抓不到
因為網頁資料還單純,建議用VBA開啟網頁後複製表格到excel

Sub Test() Const url As String = "http://jsjustweb.jihsun.com.tw/z/zc/zck/zck_6257.asp.htm" Cells.Clear Application.DisplayStatusBar = True Application.ScreenUpdating = False Set ie = CreateObject("internetexplorer.application") '使用此方式可以免除 "設定引用項目" With ie .Visible = False 'True為開啟ie, False為不開啟ie .Navigate url Do While .ReadyState <> 4 '等待網頁開啟 DoEvents Loop Application.StatusBar = "資料複製中請稍候...." .ExecWB 17, 2 'Select All .ExecWB 12, 2 'Copy selection Sheets("Sheet1").Cells.Select Range("A1").Activate ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:= _ False, NoHTMLFormatting:=True End With Application.StatusBar = False Columns("A:B").Delete ie.Quit MsgBox "資料複製結束" End Sub
相簿設定
標籤設定
相簿狀態