帖子: 117
主題: 34
精華: 0
積分: 155
點名: 0
作業系統: windows XP
軟體版本: OFFICE 2010
閱讀權限: 20
性別: 男
註冊時間: 2010-5-19
最後登錄: 2024-8-29

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2011-6-23 16:15 | 只看該作者

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

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

樓主熱帖

初學者color

color790

中學生 Rank: 2

帖子: 117
主題: 34
精華: 0
積分: 155
點名: 0
作業系統: windows XP
軟體版本: OFFICE 2010
閱讀權限: 20
性別: 男
註冊時間: 2010-5-19
最後登錄: 2024-8-29

8^#

發表於 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

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 249
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-17

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

7^#

發表於 2011-6-24 14:27 | 只看該作者

回復 6# color790

注意:必須設定引用項目

學海無涯_不恥下問

TOP

color790

中學生 Rank: 2

帖子: 117
主題: 34
精華: 0
積分: 155
點名: 0
作業系統: windows XP
軟體版本: OFFICE 2010
閱讀權限: 20
性別: 男
註冊時間: 2010-5-19
最後登錄: 2024-8-29

6^#

發表於 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

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 249
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-17

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

5^#

發表於 2011-6-24 09:27 | 只看該作者

回復 4# color790
1.完整宣告看看
2.A欄必須要有有效的股票代碼

Sub nn()
'設定引用項目Microsoft Internet Controls
'設定引用項目Microsoft HTML Object Library
Dim MyIE As InternetExplorer, MyDoc As HTMLDocument
r = 1
For Each a In Range([A1], [A65536].End(xlUp))
Set MyIE = CreateObject("InternetExplorer.Application")
With MyIE
.Visible = True
.navigate "http://tw.stock.yahoo.com/q/q?s=" & a
Do Until .readyState = READYSTATE_COMPLETE
DoEvents
Loop
Set MyDoc = .document
With MyDoc.getElementsByTagName("TABLE")(5)
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
End With
.Quit
End With
r = r + 3
Next
End Sub

複製代碼

學海無涯_不恥下問

TOP

color790

中學生 Rank: 2

帖子: 117
主題: 34
精華: 0
積分: 155
點名: 0
作業系統: windows XP
軟體版本: OFFICE 2010
閱讀權限: 20
性別: 男
註冊時間: 2010-5-19
最後登錄: 2024-8-29

4^#

發表於 2011-6-23 21:42 | 只看該作者

HI~版主,謝謝你的回答
我把程式碼COPY進去,但執行時只有出現IE的視窗,後來就沒有動了,
關掉IE就會出現錯誤, 偵錯後是下面這一行
Set MyDoc = .document
再麻煩你幫忙解答,感恩~

初學者color

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 249
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-17

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

3^#

發表於 2011-6-23 17:12 | 只看該作者

回復 1# color790