紅豆股票歷史交易數據

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. 如何查詢股票交易記錄

您好，針對您的問題，我們給予如下解答：
4打頭的證券屬於特別轉讓市場（俗稱三板市場）需開通特別轉讓許可權，
開戶人帶上本人的身份證及復印件在交易時間(9:00-11:30,13:00-15:00)到證券營業網點業務櫃台簽署代辦股份轉讓協議書，已有股票賬戶的客戶要到開戶營業部開通, 同時還需出示深圳的股東帳戶卡，確權手續的辦理費10元。
st股票很有可能退市的，因為st股票本身就是主板市場退市到三板市場的，在三板市場進行交易的。
三板的股票屬於在深圳交易市場上市的股票。所以您的帳戶只要開了深圳股東卡就可以買賣三板交易的股票。
有的股票是一個星期只交易一天，有的股票是一個星期只交易一、三、五。
還有的股票是一周五天都交易的。
如果買了，股票又退市的話您就一分錢也拿不到了，本金也拿不回來了。
購買三板市場的股票後，股票發生退市或者公司破產後，自己的所有投入為零了。
如仍有疑問，歡迎向國泰君安證券上海分公司企業知道平台提問。

C. 紅豆股份的上市歷程

江蘇紅豆實業股份有限公司(以下簡稱「本公司」或「公司」)為經江蘇省人民政府蘇政復[1998]99 號文批准設立的股份有限公司，股本為12,952.30 萬元，並於1 998 年9月11 日在江蘇省工商行政管理局依法登記注冊，注冊號為3202001116299。 2000 年12 月15 日，經中國證券監督管理委員會證監發字[2000]176 號「關於核准江蘇紅豆實業股份有限公司公開發行股票的通知」，本公司採用上網定價方式在上海證券交易所向社會公開發行人民幣普通股5,000 萬股，每股面值1 元，股票名稱「紅豆股份」，股票代碼600400。發行後股本總額為17,952.30 萬元。 2004 年9 月15 日，經中國證券監督管理委員會證監發行字[2004]138 號「關於核准江蘇紅豆實業股份有限公司增發股票的通知」，本公司增發3,580 萬股的人民幣普通股，並於2004 年9 月23 日在上海證券交易所上市，發行後股本總額為21,532.30 萬元。 2005 年4 月16 日，經2004 年年度股東大會決議，本公司以2004 年12 月31 日總股本為基數，以資本公積金向全體股東每10 股轉增4 股，轉增後股本總額為30,145.22 萬元。 2006 年4 月15 日，經2005 年年度股東大會決議，本公司以2005 年12 月31 日總股本為基數，以資本公積金向全體股東每10 股轉增3 股，轉增後股本總額為39,188.78 6萬元。 2007 年4 月26 日，經2006 年年度股東大會決議，本公司以2006 年12 月31 日總股本為基數，以當年可供股東分配的利潤向全體股東每10 股送1 股，轉增後股本總額為43,107.6646 萬元。 本公司的經營范圍為：服裝、針織品、紡織品、機械、化學纖維的製造加工、銷售，污水處理。工業用水經營(以上范圍國家有專項規定的辦理審批後方可經營)。經營本企業自產產品的出口業務和本企業所需的機械設備、零配件、原輔材料的進口業務(國家限定公司經營或禁止進出口的商品及技術除外)。

D. 股票交易流水賬，如何查詢所有的交易記錄

據投看看所知,投資者可以通過當日成交，來查看投資者當天買賣個股的情況；通過歷史成交、或者交割單，來查其最近所進行的股票買賣情況。其中當日成交和歷史成交一般只能看到投資者買入個股的價位，買入時間、買入金額以及買入股數，而交割單中，除了這些之外，還能看到投資者的手續費用。

其具體查詢步驟如下：

1、app；

2、在界面，點擊查詢選項；

3、再點擊下方的當日成交選項、歷史成交選項，或者交割單選項即可。

當然，投資者也可以在時間段，攜帶有效身份證去營業部查詢其股票記錄，營業部工作人員會把投資者的記錄列印出來。同時，投資者通過其記錄，大致可以知道其盈虧情況。

E. 怎樣查詢股票帳戶歷史交易明細

帶身份證去開戶的證券公司列印交割單，也可以讓工作人員查詢遠期歷史數據。 清算是將買賣股票的數量和金額分別予以抵消，然後通過證券交易所交割凈差額股票或價款的一種程序。證券交易所如果沒有清算，那麼每位證券商都必須向對方逐筆交割股票與價款，手續相當繁瑣，佔用大量的人力、物力、財力和時間。 投資者在委託購買股票成交後，應在規定期限內付清價款並領取股票。同理，賣出股票後應在規定的時間內交付股票並領取價款。這是股票買賣過程中的一個必要環節，一個必須履行的手續。
拓展資料
股票交易費用介紹:
1、印花稅：印花稅是根據國家稅法規定，在股票（包括A股和B股）成交後對買賣雙方投資者按照規定的稅率分別徵收的稅金。印花稅的繳納是由證券經營機構在同投資者交割中代為扣收，然後在證券經營機構同證券交易所或登記結算機構的清算交割中集中結算，最後由登記結算機構統一向征稅機關繳納。其收費標準是按A股成交金額的1‰計收，基金、債券等均無此項費用。
2、傭金：傭金是指投資者在委託買賣證券成交之後按成交金額的一定比例支付給券商的費用。此項費用一般由券商的經紀傭金、證券交易所交易經手費及管理機構的監管費等構成。
3、過戶費:過戶費是指投資者委託買賣的股票、基金成交後買賣雙方為變更股權登記所支付的費用。這筆收入屬於證券登記清算機構的收入，由證券經營機構在同投資者清算交割時代為扣收。
4、其他費用：其他費用是指投資者在委託買賣證券時，向證券營業部繳納的委託費、撤單費、查詢費、開戶費、磁卡費以及電話委託、自助委託的刷卡費、超時費等。這些費用主要用於通訊、設備、單證製作等方面的開支，其中委託費在一般情況下，投資者在上海、深圳本地買賣滬、深證券交易所的證券時，向證券營業部繳納1元委託費，異地繳納5元委託費；其他費用由券商根據需要酌情收取，一般沒有明確的收費標准，只要其收費得到當地物價部門批准即可，目前有相當多的證券經營機構出於競爭的考慮而減免部分或全部此類費用。

F. 如何查詢股票歷史交易記錄

1、 每個公司查看股票成交記錄的方式可能略有區別，但是大概的路徑都是交易→普通交易→查詢→歷史成交。如果沒有查到的話，建議投資者可以咨詢所在證券公司查詢方式。
2、 查詢股票歷史交易記錄的方法很多。投資者憑有效身份證明文件、證券賬戶到登記結算公司櫃台列印證券變更記錄；也可以到開戶證券公司營業部，由證券公司代理投資者向交易所查詢和列印歷史成交記錄。當然最方便的還可以登錄你的交易軟體查詢交割單。
3、 網上查詢手機端和電腦端的查詢方式都是類似的，差別不大。投資者也可以查看賬戶的對賬單，賬戶對賬單相當於是銀行的流水一樣，每一筆交易都會在上面提現，投資者可根據自己的需求查詢。
4、 投資者可以通過當日成交，來查看投資者當天買賣個股的情況；通過歷史成交、或者交割單，來查其最近所進行的股票買賣情況。其中當日成交和歷史成交一般只能看到投資者買入個股的價位，買入時間、買入金額以及買入股數，而交割單中，除了這些之外，還能看到投資者的交易手續費用。
5、 交易記錄，自交易記賬當年計起至少保存5年。 如客戶身份資料和交易記錄涉及正在被反洗錢調查的可疑交易活動，且反洗錢調查工作在前款規定的最低保存期屆滿時仍未結束的，金融機構應將其保存至反洗錢調查工作結束。
6、 需要注意的是交易時間只能查詢近一個月的情況，休市時間可以查詢近三個月的情況，超過三個月的要上證券公司櫃台查詢。如果查詢線上了建議投資者可以在交易時間段，攜帶有效身份證去營業部查詢其股票交易記錄，營業部工作人員會把投資者的交易記錄列印出來。同時，投資者通過其交易記錄，大致可以知道其盈虧情況。

G. 股票帳戶的交易明細怎樣查到三個月以前的

1、打開證券交易網站，輸入證券交易賬號和密碼，並點擊下方的登錄。

H. 怎樣查到股票幾年前的交易記錄

可以選擇你自己的登陸交易軟體之後，有個交易，歷史成交查詢的選項，選擇一下時間段就可以查到您要查看的東西了。( 蘋果12，ios14，)

股票交易記錄顧名思義就是投資者在交易時的交易單記錄。
拓展資料：
1、股票（stock）是股份公司所有權的一部分，也是發行的所有權憑證，是股份公司為籌集資金而發行給各個股東作為持股憑證並藉以取得股息和紅利的一種有價證券。股票是資本市場的長期信用工具，可以轉讓，買賣，股東憑借它可以分享公司的利潤，但也要承擔公司運作錯誤所帶來的風險。每股股票都代表股東對企業擁有一個基本單位的所有權。每家上市公司都會發行股票。
2、同一類別的每一份股票所代表的公司所有權是相等的。每個股東所擁有的公司所有權份額的大小，取決於其持有的股票數量占公司總股本的比重。

交易時間
1、大多數股票的交易時間是：
交易時間4小時，分兩個時段，為：周一至周五上午9:30至11:30和下午13:00至15:00。
2、上午9:15開始，投資人就可以下單，委託價格限於前一個營業日收盤價的加減百分之十，即在當日的漲跌停板之間。9:25前委託的單子，在上午9:25時撮合，得出的價格便是所謂「開盤價」。9:25到9:30之間委託的單子，在9:30才開始處理。
3、如果你委託的價格無法在當個交易日成交的話，隔一個交易日則必須重新掛單。
4、休息日：周六、周日和上證所公告的休市日不交易。（一般為五一國際勞動節、十一國慶節、春節、元旦、清明節、端午節、中秋節等國家法定節假日）