ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
楼主: 五指山888

[求助] 求助抓取新浪行情

[复制链接]

TA的精华主题

TA的得分主题

发表于 2018-12-17 20:57 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
学习,提高编程能力。

TA的精华主题

TA的得分主题

发表于 2018-12-18 10:35 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
excelvlookup 发表于 2018-12-17 18:19
day,是日数据,lc1是一分钟数据,你可以用一分钟数据生成5分、10分等数据。这个在每天的盘后数据维护就可以 ...

期待您做出来!

TA的精华主题

TA的得分主题

发表于 2018-12-18 20:05 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册

不侵权,代码来自百度。如果想要的话1、自己百度;2、放下身段求一下

TA的精华主题

TA的得分主题

发表于 2018-12-19 10:20 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
excelvlookup 发表于 2018-12-18 20:05
不侵权,代码来自百度。如果想要的话1、自己百度;2、放下身段求一下

我以前去培训的时候,一个教授说,“天下秀才都在抄,抄来抄去有提高”,不算什么侵权吧,哈哈

TA的精华主题

TA的得分主题

发表于 2018-12-19 13:35 | 显示全部楼层
本帖最后由 LittleBird2006 于 2018-12-19 15:47 编辑

#python代码一段。。
import requests
import pandas as pd
def jsonfy(s:str):
    #此函数将不带双引号的json的key标准化
    obj = eval(s, type('js', (dict,), dict(__getitem__=lambda s, n: n))())
    return obj
def getdata():
    url='http://vip.stock.finance.sina.com.cn/quotes_service/api/json_v2.php/Market_Center.getHQNodeData?\
    page=1&num=80&sort=symbol&asc=1&node=shfxjs&symbol=&_s_r_a=setlen'
    r=requests.get(url)
    obj=jsonfy(r.text)
    header=obj[0].keys()
    df=pd.DataFrame(obj,columns=header)
    df.to_excel('非标准json.xlsx',index=False)
if __name__=='__main__':
    getdata()

TIM截图20181219133537.png

TA的精华主题

TA的得分主题

发表于 2018-12-30 15:58 | 显示全部楼层
LittleBird2006 发表于 2018-12-19 13:35
#python代码一段。。
import requests
import pandas as pd

高手很多啊,我是菜鸟级

TA的精华主题

TA的得分主题

发表于 2018-12-30 16:04 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
本帖最后由 伍成平 于 2018-12-30 16:12 编辑

老师好下午好,文档的“五档”工作表引用的代码,s1,网址的num表示5个时间的成交明细,在U25单元格里面那样的,怎么把在代码里面她分开显示,我不会弄数组,只会用公式分列,望帮忙搞定,谢谢!其他高手也帮忙看看,谢谢!

代码

代码

目标格式

目标格式

VBA数据 .zip

289.16 KB, 下载次数: 8

评分

1

查看全部评分

TA的精华主题

TA的得分主题

发表于 2018-12-30 19:16 | 显示全部楼层
伍成平 发表于 2018-12-30 16:04
老师好下午好,文档的“五档”工作表引用的代码,s1,网址的num表示5个时间的成交明细,在U25单元格里面 ...

请参考
Function Mac(yzc, yz, c)
    c = c - 1
    yzc = Replace("(" & yzc, "'", "")
    V = Split(yzc, "(")
    Mac = Split(V(yz), ",")(c)
    If c = 1 Then Mac = Mac / 100
End Function

TA的精华主题

TA的得分主题

发表于 2018-12-30 19:16 | 显示全部楼层
附件
VBA数据 .zip (291.01 KB, 下载次数: 18)

TA的精华主题

TA的得分主题

发表于 2018-12-30 21:43 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助

这样是比我做的是好多了,能不能做成”ph“工作表引用的”涨幅排行“宏那样,直接在vba代码里面赋值,不在表格看到公式?
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-11-20 20:40 , Processed in 0.042872 second(s), 8 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表