주식 종목코드

페이지 정보

profile_image
작성자꾸이꾸이 조회 166회 작성일 2020-08-27 11:55:19 댓글 0

본문

[Excel VBA]주식 코드(Stock Code) 몽땅 가져오기( get Stock Code Using VBA )

MSxmlhttp, MSHTML Library를 이용하여 주식 코드 가져오기




Option Explicit

'------------------------------------------------
Sub get_stock_code()
'------------------------------------------------


Dim oreq As MSXML2.XMLHTTP60
Set oreq = New MSXML2.XMLHTTP60
Dim html As String:
Dim url As String:
Dim ohtml As New MSHTML.HTMLDocument

Dim oTable As IHTMLElement
Dim oBody As IHTMLElement
Dim oTrs As IHTMLElementCollection
Dim oTr As IHTMLElement
Dim oTd As IHTMLElement
Dim i As Long

Dim vResult As Variant: vResult = Array()
Dim vRow As Variant: ReDim vRow(1 To 3)
Dim j As Long

Dim items As Variant, item As Variant

items = Array( _
Array("https://finance.naver.com/sise/sise_market_sum.nhn?sosok=0\u0026page=", 31), _
Array("https://finance.naver.com/sise/sise_market_sum.nhn?sosok=1\u0026page=", 27) _
)

'------------------------------------------------
For Each item In items
'------------------------------------------------

'---------------------------------------
For i = 1 To item(1)
'----------------------------------------

url = item(0) \u0026 i
'url = Replace(url, "{{code}}", sCode)

oreq.Open "GET", url

oreq.send

html = oreq.responseText

ohtml.body.innerHTML = html

Set oTrs = ohtml.getElementsByTagName("TABLE").item(1).Children(3).Children



'Stop

'-----------------
For Each oTr In oTrs
'-----------------
'Stop

'------------------------------------
If not(oTr.onmouseover = "") Then
'------------------------------------

vRow(3) = oTr.Children(0).innerText 'No

Set oTd = oTr.Children(1)

vRow(2) = Replace(oTd.Children(0).getAttribute("href"), "about:/item/main.nhn?code=", "") 'code

vRow(1) = oTd.innerText 'name

push vResult, vRow
'------------------------------------
End If
'------------------------------------



'--------------
Next oTr
'--------------


Next ' page



Next item



vResult = Application.Transpose(Application.WorksheetFunction.Transpose(vResult))

' clear contents and paste data on range
With Range("A1")
.CurrentRegion.ClearContents
.Resize(1, 3).Value = Array("Name", "Code", "No")
.Offset(1, 0).Resize(UBound(vResult, 1), UBound(vResult, 2)).Value = vResult
End With





End Sub


'----------------------------------------------------------------------------
Function push(arr As Variant, x As Variant)
'----------------------------------------------------------------------------

Dim i As Long: i = UBound(arr, 1) + 1
ReDim Preserve arr(i)
arr(i) = x

End Function

#주식 코드 가져오기
#VBA
김현식 : Set oTrs = ohtml.getElementsByTagName("TABLE").item(1).Children(3).Children 에
'91' 런타임 오류가 발생하였습니다.
개체 변수 또는 With 문의 변수가 설정되어 있지 안습니다.


라고 오류가 뜨는데 어떻게 해결하나요...? 몇 시간째 이것 저것 만져보는데 안되네요...ㅠ

[stockpy - 1] Python 주가와 주식 코드 받아오기 (with Pandas)

pandas를 이용해 주가와 주식 코드를 받아오는 Python 코드를 만들어 봤습니다.


Python3.6 32bit 설치 및 가상환경
https://lifeonroom.com/category/system-trading/python-develop-env/

아나콘다 다운로드 URL
https://www.anaconda.com/distribution/#windows

qtconsole 실행
jupyter qtconsole

pandas document
https://pandas.pydata.org/pandas-docs/stable/getting_started/overview.html

주식 데이터 받아오기 Python 코드
https://lifeonroom.com/system-trading/get-stock-data/get-stock-data-pandas/

종목 코드 받아오기 Python 코드
https://lifeonroom.com/system-trading/get-stock-code-price/


앞으로도 신박하고 재미지고 유익한 아이디어로 찾아 올테니
규독 !!!! 좋아여 !!!! 부탁드립니다. ㅎㅎㅎ

Follow Me by INOSSI
https://soundcloud.com/inossi/
Attribution 3.0 Unported (CC BY 3.0)
www.creativecommons.org/licenses/by/3.0/
Video Link: https://tv.naver.com/v/5953011
김중석 : 영상 재미있고 유익하게 잘 보았습니다. 감사 드립니다. 그런데 야후에서는 한국 주가정보를 제공 안 하나요? 조회 해 보면 날짜가 빠진날이 상당히 많네요.
앞으로도 판다스를 이용해서 주식분석 하는 예제 등도 부탁 드립니다. 건강 조심하시고 언제나 행복 하세요~~

종목선정방법 10분 먹잇감찾기쉽다

마음에드는 종목을 분류하고 신호를 줄때 매수해서 수익내면 끝!
김안젤라 : Hts방금깔았는데
최초 종목선택을
어떻게 하세요
신동현 : 잘봤습니다
정성진 : 시세를 준다는 게 무슨 뜻인가요?
강윤석 : ㅎㅎㅎㅎ
지금하고 비교하니
개미님도 1년세
마이컷다 아이가 .. ㅋㅋ
똥구리 : 좋은영상 감사합니다!!
popo jo : 은퇴하고 소소하게 작은 돈으로 하고 있읍니다. 좋은 주식 정보 잘보고 있읍니다. 감사합니다.
MunHyun Song : 좋은 영상 감사합니다.
종목을 어떻게 분류해야하는지 조금은 감이 오네요.
많이 배우고 갑니다.
최ᅵ서영 : 저는 그냥 창원님 영상 추천뜨면 보는데요ㅋㅋㄱㅋ확실히 이때보다는 지금이 뭔가 텐션이며 설명하는톤 자체가 프로 유투버가 되신거 같아서 웃기네요
hyeon kil : 매번 감사드립니다^^
하하이온 : 늘 감사합니다 창원으로 이사갈까 생각하고
있습니다 꼭 인사드리고 싶습니다♡♡

... 

#주식 종목코드

댓글목록

등록된 댓글이 없습니다.

전체 6,089건 237 페이지
게시물 검색
Copyright © artjone.com. All rights reserved.  Contact : help@oxmail.xyz