- 帖子
- 26
- 主題
- 7
- 精華
- 0
- 積分
- 27
- 點名
- 0
- 作業系統
- WINDOWS
- 軟體版本
- OFFICE 2013
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2014-1-21
- 最後登錄
- 2021-3-25
|
回復 21# GBKEE
G大,謝謝您的耐心指教,依您的方式,我的寫法如下:
有以下幾個問題
1.為何我已指定代號在A1,但帶出表頭,而沒有資料?
2.為何我指定放置位置於Range("AA1").Activate,跑完還是放在A2?
Sub Test()
Dim x, ur As String
x = Worksheets("sheet1").Range("a1")
Const url As String = "http://jsjustweb.jihsun.com.tw/z/zc/zcl/zcl_AAAA.asp.htm"
MsgBox url
ur = "http://jsjustweb.jihsun.com.tw/z/zc/zcl/zcl_" & x & ".asp.htm"
MsgBox ur
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
Sheets("Sheet1").Cells.Select
Range("AA1").Activate
ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:= _
False, NoHTMLFormatting:=True
End With
Columns("A:B").Delete
ie.Quit
MsgBox "資料複製結束"
End Sub
煩請G大再幫我看看,謝謝 |
|
發表於 2014-1-22 13:24
| 
