用r下載中國股票數據

A. 如何下載股票歷史成交數據到Excel或txt

以華中智能股票軟體為例：（以Think pad X13 銳龍版筆記本電腦，Windows 10 操作為例）首先切換到要下載數據的股票K線形態，按「F1」進入「日線某某股票歷史成交」，點擊滑鼠右鍵->數據導出->導出所有數據->在「請選擇導出的類型」中選擇excel或txt
補充資料：
如何獲取所有股票歷史數據：
如果要對股市進行分析，首先就要獲取所有股票的歷史數據，只有通過股票的歷史數據，我們才能分析出股市的規律。
（以Think pad X13 銳龍版筆記本電腦，Windows 10 操作為例）
一、工具/原料
1、EXCEL2007或者以上版本，不能使用WPS
2、電腦1g內存1核處理器及以上配置
3、擁有較強邏輯分析能力以及少量智慧及以上的大腦一顆
方法/步驟：
第一步，獲取股票代碼，復制其中一部分到第一個工作表A4到A127，然後通過程序把每一個代碼寫入到不同的工作表A2位置，並對該工作表以該股票代碼命名。程序如下：
Sub 工作表命名()
For i = 4 To 127
Sheets(i).Range("a2") = "'" & Sheets(1).Range("a" & i)
Next i
For i = 4 To Sheets.Count
Sheets(i).Name = Sheets(i).Range("a2").Value
Next
End Sub
第二步，獲取股票歷史數據。代碼如下：
Private Function GetSource(sURL As String) As String
Dim oXHTTP As Object
Set oXHTTP = CreateObject("MSXML2.XMLHTTP")
oXHTTP.Open "GET"， sURL， False
oXHTTP.Send
GetSource = oXHTTP.responsetext
Set oXHTTP = Nothing
End Function
Sub 歷史數據()
Dim objXML As Object
Dim txtContent As String
Dim i As Integer
Dim strCode As String
Dim gp As String
Dim kaishihang
Dim arr， arr1， arr2， arr3， arr4， arr5， arr6， arr7， arr8， arr9， arr10， arr11
On Error Resume Next
EndRow = Range("a65536").End(xlUp).Row
startRow = 4
If startRow <= EndRow Then
Range(Cells(startRow， 1)， Cells(EndRow， 11)).Value = ""
Else
Exit Sub
End If
Set objXML = CreateObject("Microsoft.XMLHTTP")
gp = [A2]
For h = 1 To 4
For m = 1 To 4
kaishihang = [A65535].End(xlUp).Row
nian = Replace(Str(Year(Now) + 1 - h)， " "， "")
ji = Replace(Str(4 + 1 - m)， " "， "")
With objXML
.Open "GET"， "http://quotes.money.163.com/trade/lsjyj_" + gp + ".html?year=" + nian + "&season=" + ji + ""， False
.Send
If objXML.Status = 200 Then
txtContent = .responsetext
arr = Split(txtContent， "'>")
For i = 1 To UBound(arr)
arr1 = Split(arr(i)， " Cells(i + kaishihang， 1) = Right(Left(arr1(0)， 10)， 10)
arr2 = Split(arr1(1)， Chr(60))
Cells(i + kaishihang， 2) = Mid(arr2(0)， InStr(arr2(0)， ">") + 1)
arr3 = Split(arr1(2)， Chr(60))
Cells(i + kaishihang， 3) = Mid(arr3(0)， InStr(arr3(0)， ">") + 1)
arr4 = Split(arr1(3)， Chr(60))
Cells(i + kaishihang， 4) = Mid(arr4(0)， InStr(arr4(0)， ">") + 1)
arr5 = Split(arr1(4)， Chr(60))
Cells(i + kaishihang， 5) = Mid(arr5(0)， InStr(arr5(0)， ">") + 1)
arr6 = Split(arr1(5)， Chr(60))
Cells(i + kaishihang， 6) = Mid(arr6(0)， InStr(arr6(0)， ">") + 1)
arr7 = Split(arr1(6)， Chr(60))
Cells(i + kaishihang， 7) = Mid(arr7(0)， InStr(arr7(0)， ">") + 1)
arr8 = Split(arr1(7)， Chr(60))
Cells(i + kaishihang， 8) = Mid(arr8(0)， InStr(arr8(0)， ">") + 1)
arr9 = Split(arr1(8)， Chr(60))
Cells(i + kaishihang， 9) = Mid(arr9(0)， InStr(arr9(0)， ">") + 1)
arr10 = Split(arr1(9)， Chr(60))
Cells(i + kaishihang， 10) = Mid(arr10(0)， InStr(arr10(0)， ">") + 1)
arr11 = Split(arr1(10)， Chr(60))
Cells(i + kaishihang， 11) = Mid(arr11(0)， InStr(arr11(0)， ">") + 1)
Next i
End If
End With
Next m
Next h
Set objXML = Nothing
End Sub
第三步，獲取上證歷史數據，並獲取所有股票的歷史數據。程序如下：
Sub 所有股票歷史數據獲取()
Application.ScreenUpdating = False
Dim s As String， gp As String， nian As String， ji As String， s1 As String
Dim arr， arr1， arr2， arr3， arr4， arr5， arr6， arr7， arr8， arr9
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 startRow <= EndRow Then
Sheet2.Range(Sheet2.Cells(startRow， 1)， Sheet2.Cells(EndRow， 9)).Value = ""
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)， " "， "")
ji = Replace(Str(4 + 1 - m)， " "， "")
s1 = "http://quotes.money.163.com/trade/lsjysj_shu_000001.html?year=" + nian + "&season=" + ji + ""
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 & "".xlsb"")
Application.Run ""'"" & wb.Path & """" & i & "".xlsb'!所有股票歷史數據獲取""
wb.Save
wb.Close
Next i
End sub
當啟動這一段代碼以後，程序會自動一個一個的打開對應的工作簿然後獲取裡面所有股票的歷史數據，存放在對應的工作表當中。
第六步，對相應的程序添加按鈕，這樣，我們在啟動對應程序時，只需要點一下對應的按鈕就可以實現了。這樣，我們通過多個工作簿就實現了獲取所有股票歷史數據的方法。而後面，我們只需要通過獲取對應股票每一天的歷史數據，我們就能夠在任意一天很快速的能夠擁有所有股票的歷史數據了。
注意事項
1、在後續需要對這些數據進行分析，裡面會加入很多計算，所以啟動所有歷史數據更新時，我們應該要關閉自動更新。
2、因為歷史數據很大，所以這里只獲取四年的數據，想要獲取更多數據，可以更改程序裡面 「For h = 1 To 5」的那個5即可。
3、歷史數據的獲取需要較長的時間，要提前做好准備。
4、如果你想要弄清楚用EXCEL建立炒股系統的整套方法，請看後續內容。"

B. 當股票投資遇見R語言：一場數字與代碼的浪漫之旅

R語言在股票投資中的應用是一場數字與代碼的浪漫結合。以下是R語言在股票投資中的幾個關鍵應用：

1. 數據獲取與處理：

   • 數據獲取：R語言通過quantmod等包可以方便地獲取股票市場的歷史數據，如從雅虎財經等數據源獲取特定公司的股價數據。
   • 數據處理：使用R語言的數據處理功能，投資者可以對獲取到的數據進行清洗、整理和分析，為後續的建模和預測打下基礎。

2. 時間序列分析：

   • 平穩性檢驗：使用tseries包中的adf.test函數可以檢查股票數據是否具有平穩性，這是時間序列分析的重要前提。
   • 差分處理：如果數據不平穩，R語言可以進行差分處理，使其變得平穩，以便進行後續的分析。

3. 模型構建與預測：

   • 模型構建：R語言提供了多種統計和機器學習模型，如指數平滑模型（使用forecast包中的ets函數）等，投資者可以根據數據特點選擇合適的模型進行構建。
   • 預測分析：構建好模型後，R語言可以進行未來的股價預測，為投資決策提供參考。

4. 可視化分析：

   • R語言強大的圖形功能可以幫助投資者直觀地了解股票的走勢、模型的擬合效果以及預測結果等，從而更好地把握市場動態。

總結：R語言作為一種強大的統計分析工具，在股票投資中具有廣泛的應用。從數據獲取、處理到時間序列分析、模型構建與預測，再到可視化分析，R語言都能提供強大的支持。掌握R語言，可以讓投資者在股票市場中更加從容、科學地做出決策。

C. 股票帶r要怎樣才能交易

帶字母「R」的股票表示融資融券股票，投資者交易這類股票的方式如下：

1. 普通購買：

   • 投資者可以用普通賬戶直接購買帶R的股票。
   • 但需注意，帶R的股票可能是科創板、創業板或主板的股票。
   • 主板的股票可以直接購買，無需開通額外許可權。

2. 開通許可權：

   • 若購買的是科創板或創業板的帶R股票，則需要開通相應的交易許可權。
   • 開通科創板許可權需滿足：日均資產50萬以上，且具備2年交易經驗。
   • 開通創業板許可權需滿足：日均資產10萬以上。

3. 融資融券交易：

   • 若准備進行融資或融券交易，還需滿足額外條件：
     • 半年以上的交易經驗。
     • 風險承受能力C4級以上。
     • 前二十個交易日日均資產50萬以上。
   • 融資融券交易涉及杠桿，投資者需謹慎操作，方向判斷錯誤可能導致雙倍虧損。

綜上所述，交易帶R的股票需根據股票所屬板塊判斷是否需開通額外許可權，並注意融資融券交易的風險。

D. 怎麼找到歷史股票數據並進行分析

要找到歷史股票數據並進行分析，可以按照以下步驟進行：

一、獲取歷史股票數據

1. 選擇數據來源：

   • 互聯網數據平台：許多金融數據網站提供歷史股票數據的查詢和下載服務，這些數據通常覆蓋廣泛的時間范圍，並且更新及時。
   • 專業數據服務商：一些專門提供金融數據服務的公司，如彭博、萬得（Wind）等，提供更為詳細和全面的歷史股票數據，但可能需要付費訂閱。

2. 確定數據范圍：

   • 根據分析需求，確定需要查詢的股票代碼、時間范圍（如過去一年、五年或更長時間）以及數據類型（如價格、成交量、漲跌幅等）。

3. 數據下載與導入：

   • 從選定的數據來源下載所需數據，通常這些數據會以CSV、Excel等格式提供。
   • 將下載的數據導入到數據分析軟體（如Excel、Python、R等）中，以便進行後續分析。

二、分析歷史股票數據

1. 數據預處理：

   • 對導入的數據進行清洗，去除缺失值、異常值等，確保數據質量。
   • 根據分析需求，對數據進行標准化、歸一化等預處理操作。

2. 趨勢分析：

   • 利用圖表（如折線圖、柱狀圖等）展示股票價格、成交量等隨時間的變化趨勢。
   • 通過計算移動平均線、相對強弱指數（RSI）等技術指標，分析股票價格的短期和長期趨勢。

3. 相關性分析：

   • 分析不同股票之間的相關性，了解它們之間的聯動效應。
   • 研究股票價格與宏觀經濟指標（如GDP增長率、通貨膨脹率等）之間的相關性。

4. 風險評估：

   • 利用歷史數據計算股票的波動率、貝塔系數等風險指標，評估投資風險。
   • 構建投資組合，通過分散投資降低整體風險。

5. 預測與決策：

   • 基於歷史數據和分析結果，嘗試使用機器學習、人工智慧等技術預測股票價格的未來走勢。
   • 根據預測結果和投資目標，制定投資策略和決策。

請注意，股票投資具有風險性，分析歷史數據並不能保證未來的投資收益。在做出投資決策時，應綜合考慮多種因素，並謹慎評估自身風險承受能力。