股市數據股票歷史數據( 三 ) _經驗知識

Dim i ， h As Long
Dim kaishihang
Dim LastRow As Long ， r As Long
On Error Resume Next
EndRow = Sheet2.Range("a65536").End(xlUp).Row
startRow = 4
If startRowSheet2.Range(Sheet2.Cells(startRow ， 1) ， Sheet2.Cells(EndRow ， 9)).Valuehttps://www.soozhuozhou.com/= ""
Else
Exit Sub
End If
For h = 1 To 5
For m = 1 To 4
kaishihang = Sheet2.[A65535].End(xlUp).Row
nian = Replace(Str(Year(Now) + 1 - h) ， " " ， "")
jidu = Replace(Str(4 + 1 - m) ， " " ， "")
s1 = "" + nian + "season=" + jidu + ""
s = GetSource(s1)
arr = Split(s ， "'
")
For i = 1 To UBound(arr)
arr1 = Split(arr(i) ， "
Sheet2.Cells(i + kaishihang ， 1) = Right(Left(arr1(0) ， 4) ， 4)"-"Right(Left(arr1(0) ， 6) ， 2)"-"Right(Left(arr1(0) ， 10) ， 2)
arr2 = Split(arr1(1) ， Chr(60))
Sheet2.Cells(i + kaishihang ， 2) = Mid(arr2(0) ， InStr(arr2(0) ， "") + 1)
arr3 = Split(arr1(2) ， Chr(60))
Sheet2.Cells(i + kaishihang ， 3) = Mid(arr3(0) ， InStr(arr3(0) ， "") + 1)
arr4 = Split(arr1(3) ， Chr(60))
Sheet2.Cells(i + kaishihang ， 4) = Mid(arr4(0) ， InStr(arr4(0) ， "") + 1)
arr5 = Split(arr1(4) ， Chr(60))
Sheet2.Cells(i + kaishihang ， 5) = Mid(arr5(0) ， InStr(arr5(0) ， "") + 1)
arr6 = Split(arr1(5) ， Chr(60))
Sheet2.Cells(i + kaishihang ， 6) = Mid(arr6(0) ， InStr(arr6(0) ， "") + 1)
arr7 = Split(arr1(6) ， Chr(60))
Sheet2.Cells(i + kaishihang ， 7) = Mid(arr7(0) ， InStr(arr7(0) ， "") + 1)
arr8 = Split(arr1(7) ， Chr(60))
Sheet2.Cells(i + kaishihang ， 8) = Mid(arr8(0) ， InStr(arr8(0) ， "") + 1)
arr9 = Split(arr1(8) ， Chr(60))
Sheet2.Cells(i + kaishihang ， 9) = Mid(arr9(0) ， InStr(arr9(0) ， "") + 1)
Next i
Next m
Next h
Application.ScreenUpdating = True
n = Worksheets.Count
For i = 4 To n
Worksheets(i).Activate
歷史數據
Next
End Sub
第四步，保存工作簿，并對該工作簿命名為1 ，然后***該工作簿27份，把所有股票代碼寫入每一個工作簿排名個工作表的A3到A127列。然后根據排名步對工作簿內的工作表命名，并在每一個工作表A2單元格內寫入股票代碼。
第五步，把這些工作簿存放到炒股文件夾下的數據庫文件下。然后在炒股文件夾下新建一個工作簿，命名為“一鍵更新表格” ，寫入如下代碼：
Sub 所有股票歷史數據更新()
Dim wb As Workbook
For i = 1 To 27
Set wb = Workbooks.Open(ThisWorkbook.Path"\數據庫\"i"".xl***"")
Application.Run ""'""wb.Path""\""i"".xl***'!所有股票歷史數據獲取""
wb.Save
wb.Close
Next i
End sub
當啟動這一段代碼以后，程序會自動一個一個的打開對應的工作簿然后獲取里面所有股票的歷史數據，存放在對應的工作表當中。
第六步，對相應的程序添加按鈕，這樣，我們在啟動對應程序時，只需要點一下對應的按鈕就可以實現了。這樣，我們通過多個工作簿就實現了獲取所有股票歷史數據的方法。而后面，我們只需要通過獲取對應股票每一天的歷史數據，我們就能夠在任意一天很快速的能夠擁有所有股票的歷史數據了。

精品久久久久久久久水蜜桃|丁香花五月|新中文字幕麻豆视频|美女下面粉嫩粉嫩冒白浆高清|日本黄h兄妹h动漫一区二区三区|床片激情免费视频|羞羞动漫在线入口免费阅读

股市數據 股票歷史數據( 三 )

股市數據股票歷史數據( 三 )