보충 정보:
주식에 대한 모든 과거 데이터를 얻는 방법
주식시장을 분석하려면 먼저 모든 주식의 역사적 데이터를 얻어야 한다. 주식의 역사적 데이터를 통해서만 주식시장의 법칙을 분석할 수 있다.
(Think pad X 13 리용 노트북과 Windows 10 작업을 예로 들어 보겠습니다.)
I. 도구/원자재
1, EXCEL2007 이상, WPS 를 사용할 수 없습니다.
2, 컴퓨터 1g 메모리 1 코어 프로세서 이상 구성.
3. 논리적 분석 능력이 강하고 지혜가 많은 뇌.
방법/절차:
첫 번째 단계에서는 주식 코드를 가져와 첫 번째 워크시트 A4 에서 A 127 로 일부 복사한 다음 프로그램을 통해 각 코드를 다른 워크시트 A2 위치에 쓰고 주식 코드로 워크시트 이름을 지정합니다. 이 프로세스는 다음과 같습니다.
하위 시트 명명 ()
I = 4 부터 127 까지의 경우
침대 시트 (하나). Range ("a2") = "'"& 장 (1). 범위 ("a"& 나)
다음으로 저는
I = 4 부터 장까지. 숫자를 세다
침대 시트 (하나). Name = Sheets(i) 입니다. 범위 ("a2") 입니다. 가치
그리고 나서
끝단 접합
두 번째 단계는 주식의 역사적 데이터를 얻는 것입니다. 코드는 다음과 같습니다.
전용 함수 get source (surl as string) as string
Dim oXHTTP 를 객체로 사용
Set oXHTTP = CreateObject("MSXML2. XMLHTTP) 를 참조하십시오
OXHTTP. 오픈' get', sURL, False
OXHTTP. 보내다
GetSource = oXHTTP.responsetext
OXHTTP = Nothing 을 설정합니다
기능을 종료합니다
하위 히스토리 데이터 ()
Dim objXML 을 객체로 사용
TxtContent 를 문자열로 치수기입합니다
I 를 정수로 치수기입합니다
Dim strCode 를 문자열로 사용
치수 어셈블리는 문자열로 사용됩니다
Dim 케이시 라인
Dim arr, arr 1, arr2, arr3, arr4, arr5, arr6, arr7, arr8, arr9, arr/kloc-;
오류 발생 시 다음 단계로 진행합니다
EndRow = Range("a65536 "). 끝내기 (xlUp). 줄
StartRow = 4
If startRow Range (셀 (startRow, 1), 셀 (EndRow, 1 1)) 입니다. 값 = ""
기타
출구 커넥터
만약 ... 끝날거야
Set obj XML = createobject ("Microsoft. XMLHTTP) 를 참조하십시오
Gp = [A2]
H = 1 4 의 경우
M = 1 4 의 경우
Kaishihang = [A65535] 입니다. 끝내기 (xlUp). 줄
Nian = replace (str (year (now)+1-h), ",",""
두키 = Replace(Str(4+1-m), ",",""
ObjXML 사용
。 "가져오기", "! 함수 (t){ "엄격한 사용"; 함수 e(t, e){ if(t){ var n = 새 날짜 (). GetTime (), I = 새 이미지; T+="&rand="+(n+Math.random ()), window.ecomlogimage | | (window.ecomlogimage) Var r=! 1; I.onload = i.onerror = i.onabort = function (o) {if (! E.charge) {if (o&&"로드"! = = o. type){ e&&e. error () 의 if (r) "error"; Else{i.src=t, r=! 0; Return}} else "load" in e&& e.load ()} i.on load = i.on error = i.ona bort = null; I.src=t}}var n, i=function(){var t, e, n, i=0, r=0, o=0, s=0,; Url \ = ([\&]+)/,f =/\? Url \ = ([\.]+) \./,d = "데이터 체크 링크", p=/[? &] TN = ([&] *)/; 함수 v(t){if (! T) 반환! 1; Var e = h.exec (t) | | f.exec (t); 돌아오다! ! E&&(h.exec(t)? E[ 1]. 길이