- 帖子
- 75
- 主題
- 1
- 精華
- 0
- 積分
- 371
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- office 2007
- 閱讀權限
- 20
- 註冊時間
- 2010-5-4
- 最後登錄
- 2025-3-12
|
回復 6# GBKEE
請問GBKEE大大
http://tcfhcsec.moneydj.com/z/ze/zef/zef.djhtm
這網頁用Excel 外部網頁匯入會不完整
用vba
Dim ie
Sheets("sheet2").Select
Const url As String = "http://tcfhcsec.moneydj.com/z/ze/zef/zef.djhtm" ' 正確的
Cells.Delete '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
Rows("1").Delete
Columns("A:C").Delete ' 將匯入時 A、B 兩欄移除， 原本 C:I 的欄位全部左靠， 成為 A:I
ie.Quit
End Sub
則停在 Do While .ReadyState <> 4 '等待網頁開啟
出現
"執行階段錯誤80010108 automation錯誤用戶端中斷了已啟動物件的連線"
的錯誤
該如何修改程式
謝謝 |
|
發表於 2017-6-18 10:53
| 