当前位置:首页 » 股票入门 » 股票交易exel简七
扩展阅读
设计总院股票历史股价 2023-08-31 22:08:17
股票开通otc有风险吗 2023-08-31 22:03:12
短线买股票一天最好时间 2023-08-31 22:02:59

股票交易exel简七

发布时间: 2023-05-16 05:08:02

Ⅰ 如何用Excel记录股票交易的盈利水平

1.在交易软件中找到“历史成交”。

2.选择对应股票交易的起止日期

3.点击查询

4.点击输出

输出的结果如下图所示

Ⅱ 如何把EXCEL数据导入股票软件

1.打开一个空白电子表格,并选择【数据】标签页。

Ⅲ 股票流水盈亏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获取网页上的股票数据,并按照日期制成表格"请问你是按照什么技术完成的

用wdz程序就可以了,这个wdz软件直接将沪深股票日线、5分钟数据(包括最新数据、历史数据)输出为csv格式,然后双击,直接就在excel中打开了。

Ⅵ 股票交易行情数据如何转换为Excel格式

1、首先,新建一个工作表,选中任意一个空单元格。选择【数据】-【自网站】。

Ⅶ 股票买卖操作流程

一、股票买卖操作流程

1、股票的交易过程包括了开立股东代码卡以及资金账号,同时通过银证转账将资金转移进去,然后才能够进行股票委托交易。

2、投资人可以凭借着个人身份证件,在全国的任何一家证券公司营业部门代理开户,上海证券交易所股东卡手续费用为40元人民币,深圳证券交易所股东卡的手续费用为50元人民币。

3、凭着身份证和股东卡账户到证券公司营业部门开立资金账户,上海证券交易市场的股东卡只能在一家证券公司开立资金账户,深圳证券交易市场没有限制。

4、买卖股票的资金不能直接存入证券公司资金账户必须通过银行转账,所以必须要有银行活期账户和证券资金账户绑定双向转账,到银行开通银证转账业务。

5、委托买卖股票的方式有营业部门委托、电话委托、网上委托,网上委托必须使用证券公司营业部专用的委托软件,可以在证券公司网站上下载委托软件,股票买入必须是一百股或者是整数倍,卖出没有任何的限制可以不是整数卖出。

6、进入股票买入页面之后,首先在账户名称处选择操作账户输入股票代码,选择好了之后会出现想要买入的股信息,从这就可以查看到选定的账户类别、股票代码、买入价格、买入股数、以及该股票的真实行情。

7、最后输入买入的价格(不能超过该股当日涨跌幅限制)以及买入数量(100的倍数)。点击买入即可下单成功。当股价小于或等于买入的价格系统就会自动成交。卖出就点卖出键,操作一样。

二、炒股注意事项

1、炒股一定要具备良好的心态。股市是会有风险的有盈利就会有亏损,所以心态要放好。跌了我们就采取措施就好了。

2、炒股要有专业的知识。盲目跟风、道听途说、连K线图都看不懂就入市跟赌博没什么区别势必很难在股市里盈利。最起码要具备专业的炒股知识。

3、不能贪婪。盈利的时就想多赚一点就不顾一切买入,亏损的时就也拼命买入想早点回本,这种做法是不对的。作为业余的炒手,可以给自己定个价位,到了这个价位点就可以卖出盈利,盲目追求暴利,往往风险很高,做到适可而止才是明智的选择。

4、要有耐心。抄底,追涨杀跌,没有持股的耐心,反反复复进出股市你会发现这样很容易亏损。所以要有持股的耐心。

5、不要轻于相信小道消息。小道消息往往是股庄放出的反面消息,是给散户设的圈套。不能一听到利好消息就拼命的买入,反之就卖出。但消息是难以免避免的,我们要学会去辨别去分析。

(7)股票交易exel简七扩展阅读:

股票市场也称为二级市场或次级市场,是股票发行和流通的场所,也可以说是指对已发行的股票进行买卖和转让的场所。股票的交易都是通过股票市场来实现的。

一般地,股票市场可以分为一、二级,一级市场也称股票市场之为股票发行市场,二级市场也称之为股票交易市场。股票是一种有价证券。有价证券除股票外,还包括国家债券、公司债券、不动产抵押债券等等。

Ⅷ Excel函数计算沪市股票交易费用

你只买上海A股吗? 如果F3想还包括深圳的话,你需要在提供另外一个单元格表明深沪的区别,因为(2). 过户费: 0.001元/股,一元起收(被可恶的上海证券交易所拿走) ,深圳不收.

Ⅸ 如何用Excel VBA做股票量化交易系统(原创

先学会VBA和股票交易规则,再写代码来实现