- 帖子
- 9
- 主題
- 1
- 精華
- 0
- 積分
- 14
- 點名
- 0
- 作業系統
- XP
- 軟體版本
- office2007
- 閱讀權限
- 10
- 性別
- 女
- 來自
- taiwan
- 註冊時間
- 2013-1-17
- 最後登錄
- 2013-3-20
|
各位前輩，希望不吝賜教!!謝謝
說明
利用表單連結到指定網址
擷取所有內容後加以計算。
資料為
http://www.google.com/finance/historical?q=TPE%3A1101&start=0&num=200
疑問點
1.如何將網址裡的1101更改成變數，可以由儲存格來更動??
2.亦或此網址無法做變數更動，要另外方法來擷取表單??
原始碼- Sub Stock_Data()
- Dim STK_NO As String
- STK_NO = 1101 'Sheets("Result").Cells(3, "B")
- If STK_NO = "" Then Exit Sub
- Const url As String = "http://www.google.com/finance/historical?q=TPE%3A&STK_NO&start=0&num=200"
- Cells.Clear
-
- Application.DisplayStatusBar = True
- Application.ScreenUpdating = False
-
- Set ie = CreateObject("internetexplorer.application")
- With ie
-
- .Visible = False
-
- .Navigate url
-
- Do While .ReadyState <> 4
-
- DoEvents
-
- Loop
-
- .ExecWB 17, 2
-
- .ExecWB 12, 2
-
- Sheets("Data").Range("B7").Activate
-
- ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:= _
- False, NoHTMLFormatting:=True
- End With
- Range("B7:G51,B252:G275").delete Shift:=xlUp
-
- ie.Quit
-
- End Sub
|
|
發表於 2013-1-22 17:35
| 
