㈠ 如何把股票软件里的交易明细生成ecxel表格,便于统计,太多了也不好计算,
要看券商的软件,有的券商的交易软件能把交易明细输出为ecxel文件。
没有就手工输入吧
㈡ 请帮忙做一个excel电子表格,是一个走势图,图表类型就像股票的走势图
选择数据区域,在“插入”选项下的“图表”中选择“折线图”,即可。
㈢ 网上股票交易如何打印交割单
现在可操作的股票交割单的打印方法可以分为两种:
方法一:在电脑上通过股票个人账户来进行打印;(在股票的个人账户中选择交割记录,选择后通过电脑打印机进行操作)
方法二:凭自己的账号和交易密码到自助交割机处打印交割单,或者凭股票账户卡到柜台窗口处申请打印交割单。(该方法需要投资者提供自身的账户证明进行打印)
㈣ 如何用Excel获取所有股票最近一年的历史交易数据,一个表格分80个工作表,每个工作表放入一只股票
只能手动更新,或者做个数据库,这个难度大,非专业做不了。
㈤ 如何下载股票历史成交数据到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), "
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), "
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格式
1、首先,新建一个工作表,选中任意一个空单元格。选择【数据】-【自网站】。
㈧ 网上可不可打印股票交割单呀历史记录也可以打吗(我是华安证券的用户).
可以的
买股票如何开户?
【杰杰股市气象台】 【全球股市实时行情】 【金牌栏目:老乐说股】
新股民要做的第一件事就是为自己开立一个股票帐户(即股东卡)。股票帐户相当于一个“银行户头”,投资者只有开立了股票帐户才可进行证劵买卖。
当前,如要买卖在上海、深圳两地上市的股票,投资者需分别开设上海证劵交易所股票帐户和深证证劵交易所股票帐户,开设上海、深圳A股股票帐户必须到证劵登记公司或由其授权的开户代理点办理。如北京证劵登记有限公司是北京地区股民办理上海、深圳A股股票帐户开户业务的唯一的法定机构。
股票帐户有许多不同种类。个人投资者如需买卖泸、深股市的A股股票,则需开设A股股票帐户。
开立股票交易帐户需那些证件?
个人开立A股股票帐户,须持本人身份证原件,并在开户申请登记表后附上身份证复印件;如委托人代办,须同时出示受托人的身份证原件。需要注意的是,同一身份证不能在同一交易所重复开户。涂改、伪造及剪角的身份证视为无效,对数字、文字模糊的身份证,证劵登记公司有权要求其本人同时出具发证机关证明。
法人开立A股帐户,须出示营业执照原件及复印件(盖公章)、法人代表证明书、法人授权委托书和经办人身份证及身份证复印件。与个人A股股票帐户一样法人A股帐户也不能在同意交易所内重复开户。
上海证劵交易所的股票帐户由交易所所属的证劵登记公司集中统一管理,具体的开户手续则可以委托所在地的有关机构办理。如在广州的股民就可以在南方证劵登记公司办理泸市的股东卡。在深圳证劵交易所办理开户,还需提供指定的银行存折,即中国人民银行、中国工商银行、中国建设银行或农业银行的通存通兑存折。深圳本地的开户工作由深圳证劵登记公司统一管理。外地的投资者可到所在地的证劵登记机构办理开户手续。如广州的股民就可以在南方证劵登记公司办理深市的股东卡。
开设股东卡应提供那些资料?
个人投资者在开设股东卡时,应提供本人或委托人的详细资料。这些资料包括本人和委托人的姓名、性别、身份证号码、家庭地址、职业、联系电话等。
开设股东卡需符合那些条件?
根据国家的有关规定,下列人员不得办理股东卡:
一.证劵主管机关中管理证劵事务的有关人员。
二.证劵交易所管理人员。
三.证劵经营机构中与股票发行或交易有直接关系的人员。
四.与发行人有直接行政隶属或管理关系的机关工作人员。
五.其他与股票发行或交易有关的知情人。
六.未成年人或无行为能力的人以及没有公安机关颁发的身份证人员。
七.违反证劵法规,主管机关决定停止其证劵交易,期限未满者。
八.其他法规规定不得拥有或参加证劵交易的人员。
另外,根据有关规定,禁止多头开户,即一个人只能在同一证劵交易所开设一个股东卡。
如何开立股东卡?
客户按登记公司要求填写申请表格后,操作人员将客户基本资料输入电脑交易系统,按系统序号建立客户档案,最后将标有此排序号的证劵帐户卡即俗称的股东卡发给客户。
内部职工持股者开立股东卡,可在股票发行时、由发行公司向登记公司提交股东自己填写的开户资料,然后由登记公司集中进行电脑录入,并打印股权持有卡交发行人公司,由发行人公司交投资者本人。
如何办理保证金帐户开户手续?
申领了证劵帐户卡,意味者申领人已可以在全国各地任何一家证劵营业部门(以下简称劵商或证劵部)发出买卖指令。
在发出买卖指令之前,必须先与证劵部建立委托代理买卖股票的关系。股票投资者(或简称股民)必须在证劵部开立一个保证金帐户,这个帐户只代表这个股民本身,任何人未经股民本人委托不可操作此帐户进行交易。
具体的步骤如下:
⑴.先去工商银行、建设银行或农业银行(具体什么银行应遵循所选择的证劵部的规定)开一个活期存折(原来已开立的可以不必开新的,就拿原来的活期存折),存入若干人民币以作为在证劵部开设交易帐户的保证金。
⑵.带上本人身份证(若委托他人代办,代办人还需带上自己的身份证)、证劵帐户卡、活期存折到自己喜欢的证劵部。
⑶.与证劵部签署一式三份的《证劵保证金自助转帐系统协议书》。
⑷.证劵部发给股民交易帐户卡。
⑸.填写保证金转入凭证,将一定数量的保证金从活期存折转入自己的交易帐户,取回存折。若要办理电话委托下单,一般地,要转入几万元以上的保证金到自己的交易帐户上。若转入几十万以上的保证金,就可以进入证劵部的大户室,享受属于个人的空间专心炒股了。转入保证金的多寡视具体的证劵部而定。
把这些手续办妥之后,就可以动用保证金来炒股了。
㈨ 哪位高手能将股票软件中的交易数据直接导入Excel表格中
操作步骤大概是这样的单击数据——导入外部数据——新建Web查询 只要将你所需要的股市网站——链接——点击你所需要的内容左上角的黄色箭头——导入——确定 即可得到你想要的
㈩ 我想做一个 股票买卖盈亏的电子表格 把所有的交易记录下来 可总也找不到 请发一个过来谢谢
股票现在是高位,风险很大了,应该考虑离场了,现在银行里的黄金白银T+D处于低价位,而且买卖操作比股票灵活很多:可买涨买跌,不管涨跌都可以赚钱;可以当天买卖,也可以长期持有;保证金交易,只需11%的保证金就可以全额投资,资金利用率高
想做黄金白银T+D,自己登录银行网银即可开通黄金白银T+D,只不过你在开通的时候输入我们机构号,交易手续费可以降低,同时提供行情买卖指导,想做好黄金白银T+D:价格走势方向判断,心态和低手续费是最关键的!黄金白银的价格受欧美经济指标和国际动荡事件影响最大(比如欧美失业率,利率,通胀率,动乱,战争等等),所以平时要关注国际消息面再结合技术面综合分析价格走势,我自从2009年就开始做这个了,现在可以更好地把握这个市场的行情走势