怎麼導出股票60分鍾的資料庫

⑴ 怎麼將股票中的數據導出到excel

1、首先在電腦桌面上打開股票軟體。

⑵ 如何下載股票歷史成交數據到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建立炒股系統的整套方法，請看後續內容。"

⑶ 60分鍾K線怎麼調出來啊

調出60分鍾K線的方法：
打開股票交易軟體，如同花順等，輸入個股代碼或簡稱，右鍵單擊，在顯示的菜單欄中選擇「分時周期」，再選擇其中的「60分鍾均線」，確定即可。

從實戰角度來看，用60分鍾線判定短線賣出點效果較好。它既比5分鍾、15分鍾、30分鍾穩定，不至於有太多的雜波，同時又比日線靈活，賣點不至於太過滯後，可輔以日線，大盤近期態勢等其他方面綜合考慮。

其實炒股的時候大家常常都會看股票K線。利用K線找「規律」也是炒股常用的方法，畢竟股市變化多端，以便更好的投資、獲得收益。

股票K線是什麼意思？

K線圖有許多別的稱呼，像是蠟燭圖、日本線、陰陽線等，我們常把它叫做k線，它剛開始是用來算米價的變化的，之後股票、期貨、期權等證券市場都有它的一席之地。
形似柱狀，可拆分為影線和實體，這個我們稱為k線。影線在實體上方的部分叫上影線，下方的部分叫下影線，實體分陽線和陰線。
Ps：影線代表的是當天交易的最高和最低價，實體表示的是當天的開盤價和收盤價。
其中陽線常常可以被紅色、白色柱體或者黑框空心表示，而選擇用綠色、黑色或者藍色實體柱來代表陰線，

不僅如此，人們見到「十字線」時，可以理解為實體部分形成了一條線。認識了K線，我們對找出買賣點就會很在行（雖然股市沒有辦法進行具體的預測，但是K線對於指導意義方面也是有的），對於新手來說是最好操縱的。

⑷ 在股市裡，怎麼看60分鍾k線圖

1、60分鍾K線是指以個股在60分鍾前的價格為開盤價和60分鍾時的價格為收盤價而製作的K線圖。K線圖表示單位時間段內價格變化情況的技術分析圖，60分鍾，就是過去60分種價格所形成的圖。

2、從實戰角度來看，用60分鍾線判定短線賣出點效果較好。它既比5分鍾，15分鍾，30分鍾穩定，不至於有太多的雜波，同時又比日線靈活，賣點不至於太過滯後，可輔以日線，大盤近期態勢等其他方面綜合考慮。

3、在60分鍾圖表上，個股出現劇烈震盪的異動或者盤中上行能量不足，具體有兩種表現：

（1）對於常態的上漲陽線（實體陽線或實體大於上下影的陽線）和常態的下跌陰線（縮量陰線，確切的說是量能小於均量的陰線），此為常態行情，價格在沒有外力作用下，仍舊會向原方向前進，可以安心持股。

一旦某日出現劇烈的震盪或者是帶量下跌，在60分鍾上表現為長上影，長下影，長上下影，一小時內跌幅較大的陰線，同時量能大於均量，此類K線我們稱為「異動K線」。

（2）在經過一段時間的放量漲升後，上行能量開始減退不足，顯示上攻開始乏力或者准備進入較長時間的調整，在60分鍾上表現為短期均量線下破長期均量線，顯示短期量能釋放的平均程度開始萎縮。

長紅線或大陽線

此種圖表示最高價與收盤價相同，最低價與開盤價一樣。上下沒有影線。從一開盤，買方就積極進攻，中間也可能出現買方與賣方的斗爭，但買方發揮最大力量，一直到收盤。

買方始終占優勢，使價格一路上揚，直至收盤。表示強烈的漲勢，股市呈現高潮，買方瘋狂涌進，不限價買進。握有股票者，因看到買方的旺盛，不願拋售，出現供不應求的狀況。

長黑線或大陰線

此種圖表示最高價與開盤價相同，最低價與收盤價一樣。上下沒有影線。從一開始，賣方就占優勢。股市處於低潮。握有股票者不限價瘋狂拋出，造成恐慌心理。市場呈一面倒，直到收盤、價格始終下跌，表示強烈的跌勢。

先跌後漲型

這是一種帶下影線的紅實體。最高價與收盤價相同，開盤後，賣氣較足，價格下跌。但在低價位上得到買方的支撐，賣方受挫，價格向上推過開盤價，一路上揚，直至收盤，收在最高價上。

總體來講，出現先跌後漲型，買方力量較大，但實體部分與下影線長短不同，買方與賣方力量對比不同。

實體部分比下影線長。價位下跌不多，即受到買方支撐，價格上推。破了開盤價之後，還大幅度推進，買方實力很大。實體部分與下影線相等，買賣雙方交戰激烈，但大體上，買方佔主導地位，對買方有利。

實體部分比下影線短。買賣雙方在低價位上發生激戰。遇買方支撐逐步將價位上推。但從圖中可發現，上面實體部分較小，說明買方所佔據的優勢不太大，如賣方次日全力反攻，則買方的實體很容易被攻佔。

下跌抵抗型

這是一種帶下影線的黑實體，開盤價是最高價。一開盤賣方力量就特別大，價位一種下跌，但在低價位上遇到買方的支撐。後市可能會反彈。實體部分與下影線的長短不同也可分為三種情況：

(1)實體部分比影線長賣壓比較大，一開盤，大幅度下壓，在低點遇到買方抵抗，買方與賣方發生激戰，影線部分較短，說明買方把價位上推不多，從總體上看，賣方佔了比較大的優勢。

(2)實體部分與影線同長表示賣方把價位下壓後，買方的抵抗也在增加，但可以看出，賣方仍占優勢。

(3)實體部分比影線短賣方把價位一路壓低，在低價位上，遇到買方頑強抵抗並組織反擊，逐漸把價位上推，最後雖以黑棒收盤，但可以看出賣方只佔極少的優勢。後市很可能買方會全力反攻，把小黑實體全部吃掉。

(4)怎麼導出股票60分鍾的資料庫擴展閱讀

繪制方法：

首先找到該日或某一周期的最高和最低價，垂直地連成一條直線;然後再找出當日或某一周期的開市和收市價，把這二個價位連接成一條狹長的長方柱體。

假如當日或某一周期的收市價較開市價為高(即低開高收)，便以紅色來表示，或是在柱體上留白，這種柱體就稱之為「陽線」。

如果當日或某一周期的收市價較開市價為低(即高開低收)，則以藍色表示，又或是在住柱上塗黑色，這柱體就是「陰線」了。

優勢缺點

優點：能夠全面透徹地觀察到市場的真正變化。從K線圖中，既可看到股價(或大市)的趨勢，也同時可以了解到每日市況的波動情形。

缺點：

(1)、繪制方法十分繁復，是眾多走勢圖中最難製作的一種。

(2)、陰線與陽線的變化繁多，對初學者來說，在掌握分析方面會有相當的困難，不及柱線圖那樣簡單易明。

⑸ 通達信60分鍾線如何下載

只要收盤後利用盤後數據下載功能，選擇下載5分鍾數據，按照要求選擇品種，下載完後就可以利用5分鍾的數據了，60分鍾數據由系統自動計算顯示出來。
有些選股指標選擇了分鍾數據，就要下載好5分鍾的數據，在盤中是沒法准確的選出當時狀態下的，因為盤中的數據是臨時數據，還沒有下載到軟體中。

⑹ 有沒有股票軟體能實時導出個股分鍾價格

有的，通達信和錢龍都有。通達信在股票界面，雙擊要下載的那根日k線，就會出現一個界面，下方有導出按鈕。錢龍能夠導出行情報表，是每一筆成交明細，導成EXCEL格式，自己可以編輯報表做匯總跟統計。方法：到技術分析活分時走勢界面點擊下方的行情報表，報表的右上角有個導點擊就好。

⑺ 什麼股票軟體可以導出股票60分鍾k線數據有人知道的就快告訴我吧。

即將下車時會做出的行動（例如誰更為頻繁置之。不過，也許像你和瑪

⑻ 股票公式如何取60分鍾數據

該公式原本不知是什麼軟體用的，在通達信中引用時測試公式要看引用的條件，前邊給出的條件可以引用，沒有給出的引用就不能通過的。至於如何取60分數據，通達信似乎不是全推行情，分鍾數據不全的（必須下載或手動翻頁），所以能引用似乎也白搭哦。以下通達信通過：
N:=6;
MTR:=EMA(EMA(EMA(CLOSE,N),N),N);
TRIX6:=(MTR-REF(MTR,1))/REF(MTR,1)*100;
MATRI9X:=MA(TRIX6,9);
IF(CROSS(TRIX6#MIN60,MATRI9X#MIN60),1,0);