欢迎使用金字塔普通技术服务论坛，您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴，普通区问题处理速度慢，请耐心等待。谢谢您对我们的支持与理解。


金字塔客服中心 - 专业程序化交易软件提供商 → 金字塔软件 → 高级功能研发区 → VBA取图表的参数

   

欢迎使用金字塔普通技术服务论坛，您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴，普通区问题处理速度慢，请耐心等待。谢谢您对我们的支持与理解。    

  共有6746人关注过本帖树形打印复制链接

主题：VBA取图表的参数
帅哥哟，离线，有人找我吗？
madson
 小大  31楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：论坛游民 帖子：113 积分：0 威望：0 精华：0 注册：2016/6/6 17:25:45 		  发帖心情 Post By：2016/8/2 18:33:41 [只看该作者]

Set obj = CreateObject("Excel.Application") 
Set OFile = obj.Workbooks.Open("G:\buyorders.xls")
obj.Visible = false
Set objSheet = OFile.Sheets(1)
 回到顶部
帅哥哟，离线，有人找我吗？
madson
 小大  32楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：论坛游民 帖子：113 积分：0 威望：0 精华：0 注册：2016/6/6 17:25:45 		  发帖心情 Post By：2016/8/2 18:37:24 [只看该作者]

Set obj = CreateObject("Excel.Application") 
Set OFile = obj.Workbooks.Open("G:\buyorders.xls")
obj.Visible = false
Set objSheet = OFile.Sheets(1)



如果要将MA1的最新值写入G:\buyorders.xls的A1单元格该怎么办啦？还得请教

原来这样写似乎不行了

obj.Cells(1,1).Value =Formula.GetBufData("MA1",Formula.DataSize-1)
 回到顶部
帅哥哟，离线，有人找我吗？
madson
 小大  33楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：论坛游民 帖子：113 积分：0 威望：0 精华：0 注册：2016/6/6 17:25:45 		  发帖心情 Post By：2016/8/3 9:37:51 [只看该作者]

请版主不吝赐教

 回到顶部
帅哥哟，离线，有人找我吗？
madson
 小大  34楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：论坛游民 帖子：113 积分：0 威望：0 精华：0 注册：2016/6/6 17:25:45 		  发帖心情 Post By：2016/8/3 11:17:53 [只看该作者]

今天没人值班吗？

 回到顶部
帅哥哟，离线，有人找我吗？
yukizzc
 小大  35楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：21598 积分：0 威望：0 精华：1 注册：2010/7/31 16:35:30 		  发帖心情 Post By：2016/8/3 12:57:17 [只看该作者]

obj.Cells(1,1).Value =50

这样去写入值能否写入，如果可以说吗你的最新行情数据取值有问题，用msgout输出下行情数据局自行分析下。

遇到问题可以先自行寻找分析下问题，如果报错是报什么错，如果没有写入值，那么自身取值取得有问题还是取值正确后面的写入有问题

这些作为编程而言您应该是自己先可以去调适一番的

 

[此贴子已经被作者于2016-8-3 13:02:29编辑过]
 回到顶部
总数 35 上一页 1 2 3 4
RSS2.0 | Xhtml无图版 | Xslt无图版    Powered By weistock 2012
页面执行时间 0.04688 秒, 5 次数据查询