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


金字塔客服中心 - 专业程序化交易软件提供商 → 金字塔软件 → 高级功能研发区 → [求助]请教高手，为什么我的程序，Excel可以打开，单元格“A1”不显示

   

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

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

主题：[求助]请教高手，为什么我的程序，Excel可以打开，单元格“A1”不显示
帅哥哟，离线，有人找我吗？
REYH
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：新手上路 帖子：4 积分：0 威望：0 精华：0 注册：2015/3/2 20:41:10 		[求助]请教高手，为什么我的程序，Excel可以打开，单元格“A1”不显示  发帖心情 Post By：2015/3/3 10:13:21 [只看该作者]

请教高手，为什么我的程序，Excel可以打开，用的是Excel2010
Msgout显示正常，但是单元格“A1”不显示，也没反应

public ExcelApp 
public objCell
Sub APPLICATION_VBAStart()
      Call OpenExelFile
      set objCell = ExcelApp.Worksheets(1).Cells(1,1)
      Call MarketData.RegReportNotify("RM05","ZQ")
End Sub

Sub MarketData_ReportNotify(ReportData)
    dim NewPrice
    dim sLabel
    On Error Resume Next
    NewPrice = ReportData.NewPrice
    sLabel = ReportData.Label
    If sLabel = "RM05" then
        objCell.value = NewPrice
    End if
    Application.Msgout Cdate(time) & ",Code:" & sLabel & ",NewPrice:" & NewPrice
End Sub

Sub OpenExcelFile()
      On Error Resume Next
      Set ExcelApp = GetObject("D:\TradeExcel.xlsx")
      ExcelApp.Parent.Windows("TradeExcel.xlsx").Activate
      ExcelApp.Application.DisplayFormulaBar=False
      If ExcelApp.Application.Visible = False then
             ExcelApp.Application.Visible = True
      End if
      ExcelApp.Application.DisplayAlerts=False 
End Sub
 回到顶部
帅哥哟，离线，有人找我吗？
pel46585
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：论坛游侠 帖子：167 积分：661 威望：0 精华：1 注册：2009/12/25 23:43:24 		  发帖心情 Post By：2015/3/3 14:45:35 [只看该作者]

set objCell = ExcelApp.Worksheets(1).Cells(1,1)没有这么用的

Set ExcelApp = GetObject("D:\TradeExcel.xlsx")调用EXCEL的方法错误

看不到msgbox 在哪里

另外，这么点一个小程序，用的着这么多过程吗？调用过程也需要时间的啊。

 

综合所述：

楼主的代码错误多多。

建议百度 VBS 操作EXCEL，看懂后再写这个东西。

 

[此贴子已经被作者于2015/3/3 14:47:21编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
REYH
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：新手上路 帖子：4 积分：0 威望：0 精华：0 注册：2015/3/2 20:41:10 		回复：（pel46585）set objCell = ExcelApp.Worksheet...  发帖心情 Post By：2015/3/3 15:18:55 [只看该作者]

谢谢你的回复
我原本想：
       1.先打开指定excel文件
       2.用RegReportNotify注册RM05
       3.在MarketData_ReportNotify事件触发时，将RM05的最新价写入制定的单元格A1

       我的编程基础不好，能不能麻烦你告诉我怎么实现，帮我修改一下代码，谢谢～
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版    Powered By weistock 2012
页面执行时间 0.28516 秒, 5 次数据查询