- 帖子
- 26
- 主題
- 7
- 精華
- 0
- 積分
- 27
- 點名
- 0
- 作業系統
- WINDOWS
- 軟體版本
- OFFICE 2013
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2014-1-21
- 最後登錄
- 2021-3-25
|
19#
發表於 2014-1-22 13:24
| 只看該作者
回復 white5168
回復 vesperlee
請試試看！
c_c_lai 發表於 2012-5-1 16:42 
我把CC大的程式修改我想要股票名稱,但為何會跑出"必須是常數運算式"的錯誤訊息,請問我下面的寫法有錯嗎?
那不然要如何更改自己想要的股票代號呢?
請指教我這個VBA新手,謝謝
Sub a()
x = Worksheets("sheet1").Range("l1")
Const url As String = "http://jsjustweb.jihsun.com.tw/z/zc/zcl/zcl_" & x & ".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 |
|
發表於 2013-7-28 20:28
| 
