您现在的位置：程序化交易>> 期货公式>> 金字塔等>> 金字塔知识>>正文内容

objExcel.Application.save的问题　[金字塔]

作者：金字塔来源：cxh99.com 发布时间：2015年01月02日点击数：　【收藏到本网的会员中心】

咨询内容： 代码中如果加入
objExcel.Application.save
那么每次运行必定出现这个问题:
此主题相关图片如下：2014-09-14_111536.jpg

我去找了一下(显示隐藏文件,系统文件),查不到这个文件.如果不加这一句,一切正常.请问什么缘故?
金字塔客服： Sub cs() On Error Resume Next filestr="E:\滑点记录.xlsm" tname="" filename=filestr do filename=right(filename,len(filename)-instr(filename,"\")) loop while instr(filename,"\")>0 '取得文件名 Set objExcel = GetObject(,"Excel.Application") if Err.number=0 then Set objExcel = GetObject(filestr) else Set objExcel = CreateObject("Excel.Application") Set objExcel = GetObject(filestr) Err.clear end if objExcel.Parent.Windows(filename).Activate objExcel.Application.Visible = true objExcel.Application.Sheets("Sheet1").range("a2")="测试4" objExcel.Application.save 'objExcel.Application.quit
End Sub
用户回复： 加上objExcel.Application.displayalert=false就不会提示警告提示了！

有思路，想编写各种指标公式，程序化交易模型，选股公式，预警公式的朋友

可联系技术人员 QQ: 1145508240 进行有偿编写！（不贵！点击查看价格！）

【字体：小大】【打印文章】【查看评论】

没有相关内容