股市数据股票历史数据( 三 ) _经验知识

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
当启动这一段代码以后，程序会自动一个一个的打开对应的工作簿然后获取里面所有股票的历史数据，存放在对应的工作表当中。
第六步，对相应的程序添加按钮，这样，我们在启动对应程序时，只需要点一下对应的按钮就可以实现了。这样，我们通过多个工作簿就实现了获取所有股票历史数据的方法。而后面，我们只需要通过获取对应股票每一天的历史数据，我们就能够在任意一天很快速的能够拥有所有股票的历史数据了。

股市数据 股票历史数据( 三 )

股市数据股票历史数据( 三 )