|
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
- 엑셀 버전(95,97,2000,xp,2003,2007):
* 아래줄에 질문을 작성하세요 >>
dew님께서 수정해주신 것인데 주식종목수가 늘어나니까 에러가 납니다
죄송하지만 확장성있게 수정부탁드립니다.
감사합니다
==============[차알돌이님 글에 대한 답변입니다]==============
Sub 구글주식가져오기() '엑셀장인촬스
Dim XMLReq As New MSXML2.XMLHTTP60
Dim HTMLDoc As New MSHTML.HTMLDocument
Dim i As Integer
Dim strUrl As String
Dim sCode As String
For i = 3 To Range("C3000").End(xlUp).row
sCode = Range("C" & i)
If sCode <> "" Then
strUrl = "https://www.google.com/search?tbm=fin&q=" & sCode
XMLReq.Open "GET", strUrl, False
XMLReq.send
'Debug.Print XMLReq.Status, XMLReq.statusText
If XMLReq.Status <> 200 Then
MsgBox "에러가 발생했습니다."
Exit Sub
End If
HTMLDoc.body.innerHTML = XMLReq.responseText
Set XMLReq = Nothing
On Error Resume Next
Range("D" & i) = HTMLDoc.getElementsByClassName("IsqQVc NprOob")(0).innerHTML
On Error GoTo 0
End If
Next i
Set HTMLDoc = Nothing
End Sub
|
|