返回列表 上一主題 發帖

請問怎麼將A欄的數字代入, 查詢網頁

color790

帖子
115 
主題
33 
精華
0 
積分
152 
點名
0  
作業系統
windows XP 
軟體版本
OFFICE 2010 
閱讀權限
20 
性別
男 
註冊時間
2010-5-19 
最後登錄
2024-1-18 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2011-6-23 16:15 | 顯示全部帖子

請問怎麼將A欄的數字代入, 查詢網頁

請問一下.....
我的A欄是股票代號(幾十個), 想由雅虎查詢股價
http://tw.stock.yahoo.com/q/q?s=股票代號
該怎麼寫vba, 會很複雜嗎??
收藏 分享
初學者color

color790

帖子
115 
主題
33 
精華
0 
積分
152 
點名
0  
作業系統
windows XP 
軟體版本
OFFICE 2010 
閱讀權限
20 
性別
男 
註冊時間
2010-5-19 
最後登錄
2024-1-18 
2#
發表於 2011-6-23 21:42 | 顯示全部帖子
HI~版主,謝謝你的回答
我把程式碼COPY進去,但執行時只有出現IE的視窗,後來就沒有動了,
關掉IE就會出現 錯誤, 偵錯後是下面這一行
Set MyDoc = .document
再麻煩你幫忙解答,感恩~
初學者color

TOP

color790

帖子
115 
主題
33 
精華
0 
積分
152 
點名
0  
作業系統
windows XP 
軟體版本
OFFICE 2010 
閱讀權限
20 
性別
男 
註冊時間
2010-5-19 
最後登錄
2024-1-18 
3#
發表於 2011-6-24 11:36 | 顯示全部帖子
回復  color790
1.完整宣告看看
2.A欄必須要有有效的股票代碼
Hsieh 發表於 2011-6-24 09:27


在公司的電腦出現
使用者型態未定義----> MyIE As InternetExplorer
過幾天回家再試試看, 家裡是用XP, 公司是win7, 都是excel2010 (不知道有沒有關)

另外可以問一個小問題嗎??
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Row = 1 Then
strtmp = Application.GetOpenFilename()
If strtmp = "False" Then Exit Sub
ActiveSheet.Pictures.Insert(strtmp).Select
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Height = 83
Selection.ShapeRange.Width = 162
End If
End Sub
這邊target 可以多個範圍嗎(不規則), 比如1,5,8,9......)
因為我打 If Target.Row = 1 or 3 怎麼變成全部的儲存格都會執行?
初學者color

TOP

color790

帖子
115 
主題
33 
精華
0 
積分
152 
點名
0  
作業系統
windows XP 
軟體版本
OFFICE 2010 
閱讀權限
20 
性別
男 
註冊時間
2010-5-19 
最後登錄
2024-1-18 
4#
發表於 2011-6-25 21:01 | 顯示全部帖子
Hi~版主
請問一下,這幾行是什麼意思
For k = 0 To .Rows.Length - 1
s = 2
  For Each n In .Rows(k).Cells
  Cells(k + r, s) = n.innerText
  s = s + 1
  Next
Next
還有r=r+3
謝謝版主~
初學者color

TOP

        靜思自在 : 人生沒有所有權，只有生命的使用權。
返回列表 上一主題