『壹』 從哪裡可以下載或導出到EXCEL表格中的股市數據,包括個股數據
一般看盤軟體都有該功能的,但方法略有不同。通達信為:系統---數據導出(選取EXCEL文件),點擊瀏覽(以確定存放位置,如選擇桌面),然後點導出即可。注意:導出的數據為現在K線畫面下所顯示的K線的數據,若想導出個股或大盤所有日線數據,要使用↓/↑把圖中的K線全部或部分現實開可以。
『貳』 有沒有可以在excel上自動顯示股票實時數據的方法
當然有,直接跟網頁上的數據同步就行了,excel可以從網站抓數據的。
『叄』 哪個炒股軟體可以下載excell數據
通達信、同花順,都可以到處excell數據。
『肆』 哪位大神知道股票交易數據excelban在那裡下載,就像如圖謝謝了,
所有股票或者部分股票的列表,用同花順軟體就可以導出,比如選擇顯示上海A股所有股票(快捷鍵61回車,可按代碼或其他自由排序),右鍵「數據導出」「導出所有數據」;同理也可導出深圳A股列表(快捷鍵63回車),或者其他板塊。導出前需要先把同花順數據補齊。通達信沒試過,應該是一樣的道理。
『伍』 如何製作一個實時統計股票的excel,求高手指點
『陸』 請問哪裡有excel版的股市數據下載或是什麼股票軟體能夠導出
通達信的軟體可以
『柒』 如何下載股票歷史成交數據到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建立炒股系統的整套方法,請看後續內容。"
『捌』 請問那個期貨或股票行情軟體可以把實時行情導入到EXCEL中,並通過EXCEL顯示實時行情
氫氧化鈉,化學式為NaOH,俗稱燒鹼、火鹼、苛性鈉,為一種具有很強腐蝕性的強鹼,一般為片狀或顆粒形態,易溶於水(溶於水時放熱)並形成鹼性溶液,另有潮解性,易吸取空氣中的水蒸氣和二氧化碳。NaOH是化學實驗室其中一種必備的化學品,亦為常見的化工品之一。純品是無色透明的晶體。密度2.130g/cm3。熔點318.4℃。沸點1390℃。工業品含有少量的氯化鈉和碳酸鈉,是白色不透明的晶體。有塊狀,片狀,粒狀和棒狀等。式量40.01 硫化鈉又稱臭鹼、臭蘇打、黃鹼、硫化鹼。硫化鈉為無機化合物,純硫化鈉為無色結晶粉末。吸潮性強,易溶於水。水溶液呈強鹼性反應。觸及皮膚和毛發時會造成灼傷。故硫化鈉俗稱硫化鹼。硫化鈉水溶液在空氣中會緩慢地氧化成硫代硫酸鈉、亞硫酸鈉、硫酸鈉和多硫化鈉。由於硫代硫酸鈉的生成速度較快,所以氧化的主要產物是硫代硫酸鈉。硫化鈉在空氣中潮解,並碳酸化而變質,不斷釋出硫化氫氣體。工業硫化鈉因含有雜質其色澤呈粉紅色、棕紅色、土黃色。比重、熔點、沸點,也因雜質影響而異。
『玖』 有沒有像EXCEL一樣計算方便的股票軟體
看看這個如何呢?
超準的黑馬一鍵選股(全新版)軟體下載
黑馬一鍵選股全新版,採用.xls格式,使用的朋友必須安裝office軟體或者wps軟體才能夠使用,經雲夢股票論壇測試。發現選股的結果比較的准確,所以給予推薦,壓縮包內包含軟體使用圖文說明書。請詳細閱讀,按照說明書操作。否則將不能夠正確選股。 第一步:打開文件後,選擇要刷新的表,如果今天是周一,就選擇選周一的表進行刷新,並且周一隻能刷新周一的表,切記不能把周二或者其它表也給刷新了。 點監測表查看數據格式是否正確。由於網站的數據格式時有變化,因此,每次刷新好數據後,最後到監測表中看一下。
下載地址:http://www.ym9898.com/thread-114689-1-1.html
『拾』 有無類似excel的可以反映股票開、收、最高、最低價的制圖軟體
不用這么麻煩自己做呀,只要下一個股票軟體就行了,而且還是免費的,什麼內容都有。 www.hczq.com 在左面。
與excel顯示股票軟體下載相關的資料
熱點內容
新股票漲停現手
發布:2025-02-14 00:54:03
瀏覽:606
cl科技股票
發布:2025-02-13 23:52:02
瀏覽:318
股票市值指標
發布:2025-02-13 23:15:10
瀏覽:841
|