GX Wu 於 2018年11月1日 下午4:40 寫道:
Michael您好
不能抓的原因應該是此網頁是由Javascript所產生出來的
Google了一下找到的解法,https://traveldog99.blogspot.com/2017/06/vbajavascriptjs.html
我將網頁的code稍微改了一下,這解法是可以運作的
只是不知道這樣抓網頁的方式是否會和現行盈再表的code差異過大
需再麻煩Michael費心看看這樣的解法OK不OK了
'以下為我修改過的code
Const url As String = "https://docs.google.com/spreadsheets/d/e/2PACX-1vT5T9B31yXPst_UOngDt0tjOXa0ChviuzjKytpqBJOWt10634VFXZtp-IE5BkDc_xgZ_8ZYks6Dw7tS/pubhtml" ' 正確的
Cells.Clear
Set ie = CreateObject("internetexplorer.application") '使用此方式可以免除 "設定引用項目"
With ie
.Visible = False 'True為開啟ie, False為不開啟ie
.Navigate url
Do While .ReadyState <> 4 '等待網頁開啟
DoEvents
Loop
.ExecWB 17, 2 'Select All
.ExecWB 12, 2 'Copy selection
Range("A1").Activate
ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:= _
False, NoHTMLFormatting:=True
End With
'Columns("A:E").Delete ' 將匯入時 A、E 兩欄移除
'Columns("B:G").Delete
Rows("1:2").Delete
Rows("7:7").Delete
ie.Quit
|