彰化一整天的論壇

 找回密碼
 立即註冊
查看: 2108|回復: 1

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

[複製鏈接]
發表於 2014-8-1 23:57:44 | 顯示全部樓層 |閱讀模式
  1. Sub Test()
  2.     Const url As String = "http://jsjustweb.jihsun.com.tw/z/zc/zck/zck_6257.asp.htm"
  3.     Cells.Clear

  4.     Application.DisplayStatusBar = True
  5.     Application.ScreenUpdating = False
  6.     Set ie = CreateObject("internetexplorer.application") '使用此方式可以免除 "設定引用項目"
  7.     With ie
  8.         .Visible = False 'True為開啟ie, False為不開啟ie
  9.         .Navigate url

  10.     Do While .ReadyState <> 4 '等待網頁開啟
  11.         DoEvents
  12.     Loop

  13.     Application.StatusBar = "資料複製中請稍候...."
  14.         .ExecWB 17, 2 'Select All
  15.         .ExecWB 12, 2 'Copy selection
  16.         
  17.         Sheets("Sheet1").Cells.Select
  18.         Range("A1").Activate
  19.         ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:= _
  20.                 False, NoHTMLFormatting:=True
  21.     End With
  22.     Application.StatusBar = False
  23.     Columns("A:B").Delete
  24.     ie.Quit
  25.     MsgBox "資料複製結束"
  26. End Sub
複製代碼
文章來源: http://blog.yam.com/white5168/article/49444636
回復

使用道具 舉報

發表於 2019-11-27 23:40:58 | 顯示全部樓層
真幸運找到這篇 我的需要網址warrantinfo.jihsun.com.tw/want/wSimulation.aspx?wcode=703393
但套用上面 有兩個問題  1好像卡在loop  第二 這網頁一打開全選時 會選到帳號密碼 我希望是整個頁面全選 該如何修改巨集 其實我是用web查詢 但資料不是最後網頁看到的 才會找到您的方法 這個問題又要如何解  
回復 支持 反對

使用道具 舉報

您需要登錄後才可以回帖 登錄 | 立即註冊

本版積分規則

 ㄚ母滴雞湯
 員林香純滴雞精

Archiver|手機版|小黑屋|彰化一整天的論壇(Excel,Office)  

GMT+8, 2019-12-11 05:42 , Processed in 0.142183 second(s), 18 queries .

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回復 返回頂部 返回列表