- 帖子
- 9
- 主題
- 2
- 精華
- 0
- 積分
- 16
- 點名
- 0
- 作業系統
- windows7
- 軟體版本
- office2003
- 閱讀權限
- 10
- 性別
- 男
- 來自
- TW
- 註冊時間
- 2012-3-10
- 最後登錄
- 2015-1-15
|
以下為 white5168 大大所提供的程式碼，只是不知道該如何作代碼(如6257)的變更，求助!!!
嘗試過
set STK = sheets("sheet1").range("M1").value
再把 Const url As String = "http://jsjustweb.jihsun.com.tw/z/zc/zcp/zcp_6257.asp.htm"
改成 Const url As String = "http://jsjustweb.jihsun.com.tw/z/zc/zcp/zcp_" & STK & ".asp.htm"
但是出現錯誤，不知道該如何作代碼(如6257)的變更，求助!!!
Sub Test()
Const url As String = "http://jsjustweb.jihsun.com.tw/z/zc/zcp/zcp_6257.asp.htm"
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("A1").Activate
ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:= _
False, NoHTMLFormatting:=True
End With
Columns("A:B").Delete
ie.Quit
MsgBox "資料複製結束"
End Sub |
|
發表於 2012-5-28 09:36
| 
發表於 2012-5-28 10:00
| 