如何用同花顺导出历史价格的数据到excel？

1. 如何用同花顺导出历史价格的数据到excel？

方法和详细的操作步骤如下：
1、第一步，在计算机桌面上打开软件，见下图，转到下面的步骤。


2、第二步，完成上述步骤后，单击“自选股”选项，见下图，转到下面的步骤。



3、第三步，完成上述步骤后，将看到“加自选”的选项，见下图，转到下面的步骤。



4、第四步，完成上述步骤后，单击“加自选”按钮，见下图，转到下面的步骤。



5、第五步，完成上述步骤后，出现如下画面，见下图，转到下面的步骤。



6、第六步，完成上述步骤后，单击鼠标右键，选择“数据导出”选项，见下图，转到下面的步骤。



7、第七步，完成上述步骤后，单击“导出所有数据”选项，见下图，转到下面的步骤。



8、第八步，完成上述步骤后，弹出导入和导出对话框，默认导出格式为Excel，然后单击“下一步”按钮，见下图，转到下面的步骤。



9、第九步，执行完上面的操作之后，等待进度条完成即可，见下图。这样，就解决了这个问题了。

2. 急需一份比特币按人民币计价的历史价格表格，excel格式，不知哪里能下载？

没有这种现成的表，
需要你自己查找数据，
然后填到表格里面去。

3. 股票数据下载 我想下载历史某天的所有股票当天的收盘价格存为excel格式.怎么弄呀?

以同花顺为例：在股票软件菜单上选择“工具”—“数据下载及管理”—”数据下载“—下载K线图就可以了

4. 请问您黄金历史价格Excel文档是哪里找到的 ？

这个有些网站上都是有的，我劝你还是去大一点的黄金网站，越大越好，这东西，不是权威的网站，资讯都不靠谱，编辑不认真。

5. 我要写论文 需要知道近10年左右国际现货黄金价格的历史数据 要excel格式的 有的发邮箱387604681@qq.com

1967年11月18日，英镑在战后第二次贬值；1968年3月17日，“黄金总汇”解体；1969年8月8日，法郎贬值11.11%。 　　1971年8月15日，美国总统尼克松发表电视讲话，关闭黄金窗口，停止各国政府或中央银行持有美元前来兑换黄金。美元挣脱黄金的牢狱，自由浮动于外汇市场。 　　1972年这一年，伦敦市场的金价从1盎司46美元涨到64美元。 　　1973年，金价冲破100美元。 　　1974年到1977年，金价在130美元到180美元之间波动。 　　1978年，原油飙涨达一桶30美元，金价涨到244美元。 　　1979年，金价涨到500美元。10月，美国通胀率冲破12%。 　　1980年元月的头两个交易日，金价达到634美元，美国财长米勒宣布财政部不再出售黄金，之后不到30分钟金价大涨30美元达715美元，元月21日创850美元新高。美国总统卡特不得不出来打压金市，表示一定会不惜任何代价来维护美国在世界上的地位，当天收盘时金价下跌了50美元。 　　1980年2月22日，金价重挫145美元。 　　当代首次黄金大牛市宣告结束，时间长达12年。 金价从1968年的35美元涨到1980年的850美元的12年间，每年有30%的获利率。1980年黄金投资额达1兆六千亿美元，已超出只有1兆四千亿美元的美国股票市值。而在1959年，黄金的投资额仅是美国股票市值的五分之一。 　　1981年，金价每盎司的盘势峰顶是599美元。到了1985年，盘势降到 300美元左右。1987年，美国股市崩盘后，黄金价格触及486美元的峰顶后便一路下滑。 　　1988 年至1999年的有关黄金市场的评论： 　　1988年2月8日：上周五每盎司金价以439美元收市，令黄金好友捏一把冷汗，因为金价支持点正好在此水平，技术分析告诉我们，此水平一旦跌破，金价就如入无支持之境，要跌至什么价位才能企稳，技术派已不敢肯定，艾略特理论的指示是180美元。 　　1988年8月20日：既然投资者忧虑经济衰退迟早来临，那么黄金是不应忽略的投资工具。在30年代股市大崩溃时，最有代表性的金矿股 Homestake的股价从1929年的7美元上升至1932年的46美元(期间道指跌幅达90%)。 　　1989年2月1日：金价从1980年1月20日的历史高位850美元计，到 1988年年底，美元金价已跌去52%。在这十年内，美国的通胀率升幅共达 90%，以低通胀率见称的日本也在20%的水平，而黄金的这段走势说明它没有抗拒通胀的能力，黄金应从“保值商品”上除名(有意思的是，若以日元计，这十年的金价跌幅最厉害，达75%。)。 　　在80年代，黄金无息成本的弱势凸现。因为在70年代，债券及银行利息都低于通胀率，也就是“负利率”，这时黄金无息可以忽略不计，到了80年代，债券和其他固定利息的投资工具所提供的收益高于通胀率，令黄金的魅力骤然失色。 　　1989年2月13日：名画和古董与金银一样是无息产品，为什么前者在80年代的价格大涨？原因是物以稀为贵。名画和古董往往是独一无二的，而金银能不断生产。 　　1989年11月15日：金价从9月中旬的350美元回升至11月14日的391.5美元收市，两个月升幅达11%，令“金甲虫”兴奋不已，但往上已难有作为。 　　1989年12月9日：金价在11月27日见427美元之后，市上传出苏联大量抛售黄金的消息，令市场价格大幅波动。事实上，在过去十多年中，作为世界第二大黄金出产国的“苏联卖金”传闻，对下降的金价发挥了巨大作用。 　　金价确实与通胀率无关。1981年，美国通胀率上升8.9%，当年金价却大跌32%；1986年通胀率跌至1.1%，但当年金价上升19%。 　　1990年5月24日：市场出现18.7吨(每吨为二万七千盎司)黄金的沽盘，是美国清盘官将最近申请破产的储贷银行及财务公司所持黄金集中推出套现，金价大跌，推低至360美元。 　　1990年7月12日：1989年新产黄金加上旧金翻碎金整合(铸成金条)等来源，黄金总供应量为二千七百二十三吨。在需求方面，首饰用去一百三十八吨、电子业用了一百三十八吨，金币消耗量一百二十三吨，其他(主要为实金持有者)购进了六百五十一吨。 　　首饰金的需求占了黄金总供应量的67%，而且1989年的首饰用黄金较 1988年的约一千五百吨增长了23%。尽管如此，金价仍是不振。1988年，各国央行买卖黄金出现净购额285吨，1989年则为净卖额二百五十五吨。 　　由于冷战式微，黄金作为政治保险效用也消失了，无利息还得付仓租的黄金恐非精明的投资人所选。 　　1990年9月5日：伊拉克入侵科威特，金价从370美元反弹至417美元，又往下打回383美元。由于美国财赤日趋严重，美元汇价摇摇欲坠和全球信贷危机呼之欲出，金价长期看有向500美元的“颈线”靠拢的趋势，一旦升至 500美元，最低升幅可令金价见700 美元，中间数为850美元，最高可见1000美元。 　　1991年1月12日：现在是“现金为王”，这与70年代末80年代初的“现金是垃圾”，简直天壤之别，黄金已成为“一沉百踩”的商品。但金价仍有可能凌厉反弹。 　　1991年6月13日：金银一齐上升，却有不同的理由。盎司白银价在3 月曾跌至4美元以下，不及其最高价的十分之一，原因是大家以为白银供过于求。但5月中旬，美国一家机构认为白银恰恰是求过于供，1991年白银产量为四亿八千一百万盎司，需求则达五亿九千万盎司。于是白银大幅上扬，最高见4.64美元。走势派指出，白银好淡的分水岭在4.22美元，已进入上升轨道。 　　至于黄金，则是穷极思变。大部份机构投资者组合已没有黄金，美国大规模互惠基金Kemper上月解散属下的黄金基金。买卖黄金矿股票的华盛顿Spokane证券交易所宣布暂时停业，等等。人们终于开始反向操作，令金价反弹。 　　还有一个“恐惧指数”也有意思。美国的一位投资顾问根据美联储存金时价与美元(M3)供应量的关系，制成一项恐惧指数。五月底盎司金价360.75 美元，美联储存金二亿六千一百九十万盎司，M3发行量为四十亿七千六百万，等于每百美元含金值226美元，这便是恐惧指数2.26，它已接近尼克松在1971年宣布取消金本位创下的恐惧指数2点的纪录。美元含金量2.26%，意味着其余97.7%美元都是无中生有靠美国政府信用支持，而美国政府负债累累，这97.74美元全是借贷而来。于是，人们抛美元买黄金。恐惧指数的最高点是10点，正在1980年黄金历史天价时。 　　1994年10月8日：英国著名的裁缝街的西装，数百年来的价格都是五、六盎司黄金的水准，是黄金购买力历久不变的明证。盎司金价若突破396美元，下一个目标是406美元，此关一破，黄金牛市便告诞生，可看1200美元。 　　1996年2月5日：上周五盎司金价一度升达418.5美元，打破了1993年高价409美元，技术专家认为，此关一破，金价有机会破445美元。 　　各国央行不但卖金，而且租金。卖金方面，最高的是1992年卖了六百吨，1995估计为三千吨。金商看淡未来金价，因此设法向储存大量黄金的中央银行租金，租期三年至五年不等，然后在市场沽出。对金矿主而言，这不过是把三五年后的产金以当前价格卖出，等于把未来利润先行兑现，而央行则“盘活”了资产。据英伦银行12月上旬公布的数据，仅伦敦金商就向央行租借一千五百吨。 　　若不算央行和售金，其它早已供不应求。1995年和1994年其金产量差不多，同为二千七百八十七吨，而消耗量在四万吨水平，黄金赤字在一千一百吨至一千二百吨之间。 　　1997年7月8日：西方各中央银行有秩序地消减黄金储备。资料显示，荷兰央行直接沽金，比利时铸造金币变相售金，瑞士央行计划分期出售约值五十亿美元黄金，建立“大屠杀黄金”，以示该国二次大战期间大做纳粹生意的悔意。上周四，澳洲公布今年上半年陆续卖出约值十七亿美元的黄金，虽然售金量不大，却占该国黄金储备的三分之二，说明不再把黄金视为主要货币和储备。澳洲居南非、美国之后，是世界第三大产金国。 　　结果，盎司黄金美元价在370至400美元之间徘徊约两年之久，上周四突然在纽约市场急挫，周五伦敦跌至324.75美元，为1985年以来的最低水平。 　　1998年3月24日：每盎司金价在1月9日跌至278.7美元的最低价，昨在294美元水平徘徊。黄金盛极而衰，现在其市价已低于平均生产成本每盎司315美元，世界有一半金矿亏本，相继停工势所难免，这令过去二年出现新出土黄金供不应求，所提炼的黄金供应比需求少约一千吨，只是由于央行抛金及民间藏金在金价前景看淡之下纷纷沽出，以致金价下挫之势未能扭转。 　　加拿大巴烈克金矿计划大规模铸造“创世纪金币”，计划用一千吨至二千五百吨黄金造此币。如果计划落实，将是耗金量最大的金币铸造，因为以往南非克鲁格兰金币一共耗金一千四百吨，1986年日本裕仁金币用金量一百八十二吨，1991年明仁金币用金六十吨。对黄金市场而言，这是一大利好。去年各国央行售金量是八百二十五吨，“创世纪金币”将可完全消化。 　　1999年7月6日：英伦银行周二以每盎司261.2美元售出二十五吨黄金，筹集得二亿九百八十万美元，这是英伦银行近二十年的首次拍卖，也是该行五次拍卖的第一次。自英国公布计划在未来三至五年出售其七百十五吨黄金储备的四百十五吨以来，金价已跌逾一成。消息宣布后金价随即跌破 260美元水平，达256.4美元，创下20年新低。 　　黄金不会人间蒸发、磨损的“永恒价值”，为市场留下祸根。因为数千年来存世的黄金估计达十二万五千吨，其中约三分之一在各国央行的金库里，其余为私人藏金和首饰物。 　　一边是央行大肆抛售(瑞士央行也计划估售一千三百吨左右黄金)，另一方面金矿主开采数量有增无减。原因有二：第一是黄金单位生产成本下降， 1998年跌20%，每盎司平均美元生产成本只有206美元；第二是矿务公司已发展出“产铜为主产金为副”的生产模式，估计副产的黄金1995年占黄金总产量的9%，2005年将增至17%。黄金随黄铜而来，意味矿场愈来愈不会把黄金产量与价格挂构。 　　有人已预估下世纪初金价见150美元，目前金价真的不知伊于胡底了。作为贷币商品甚至纯粹商品，黄金已失去“长期持有”的价值，这是投资者不得不承认和留意的。 　　市场的供求与市场价格相互作用。 　　从实际需求看，黄金是供不应求的，每年大约有一千吨的缺口。但各国央行的储备买卖却是追涨杀跌，让黄金市场变得求不应供。“黄金跌得愈低，官金出售的可能性愈大”的规律。随着黄金价格的上扬，从1982年的375美元涨到1987年股市崩盘后的500美元左右，就少有中央银行出售黄金。之后，黄金再次转势，到1992年时降到350美元左右，这段期间各央行总共兑清了五百吨黄金。从1992年到1999年，黄金跌到300美元以下，各国央行总共出售了三千吨左右黄金，一年约四百吨。各国央行最后发现敌人就是它们自己。只要中央银行持有的官金过剩，每次官金出售就会成为头条新闻，金价就会下跌，出售所得相应减少。 　　下跌的金价可能刺激了它的实际需求。1990年，用于首饰和电子工业的黄金比1980年高出50%以上，比1994年高出三分之一左右。单单用于首饰生产的黄金就比1850年高出一百倍，由于人口在此期间只成长了五倍，因此，平均每人的金饰消费增加了二十倍。 　　1999年8月26日，每盎司金价跌至251.9美元，创下二十年来低位，在底部横盘两年后，于2001年再次发力上攻，到2003年年底为414美元，涨幅达60%。

6. 如何下载股票历史成交数据到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     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)， " "， "")     jidu = Replace(Str(4 + 1 - m)， " "， "")     With objXML         .Open "GET"， "http://quotes.money.163.com/trade/lsjyj_" + gp + ".html?year=" + nian + "&season=" + jidu + ""， 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， jidu 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     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)， " "， "")     jidu = Replace(Str(4 + 1 - m)， " "， "")     s1 = "http://quotes.money.163.com/trade/lsjysj_zhishu_000001.html?year=" + nian + "&season=" + jidu + ""     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建立炒股系统的整套方法，请看后续内容。"

7. 能不能将同花顺中的历史股价导入excel

先转换成月K线，按F1，点击鼠标邮件，选择导出数据，有两个选项。自己试试吧，但是要每只股票还是比较麻烦的，希望对你有帮助。