以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  高级功能研发区  (http://weistock.com/bbs/list.asp?boardid=5)
----  objExcel.Application.save的问题  (http://weistock.com/bbs/dispbbs.asp?boardid=5&id=69949)
--  作者：dwjgwsm
--  发布时间：2014/9/14 11:19:18
--  objExcel.Application.save的问题
代码中如果加入

objExcel.Application.save

那么每次运行必定出现这个问题:

图片点击可在新窗口打开查看此主题相关图片如下：2014-09-14_111536.jpg
图片点击可在新窗口打开查看

我去找了一下(显示隐藏文件,系统文件),查不到这个文件.如果不加这一句,一切正常.
请问什么缘故?
--  作者：dwjgwsm
--  发布时间：2014/9/14 11:22:29
--  
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
--  作者：guotx2010
--  发布时间：2014/9/15 21:59:13
--  
加上objExcel.Application.displayalert=false就不会提示警告提示了！
--  作者：dwjgwsm
--  发布时间：2014/9/22 0:12:11
--  
对的~谢谢版主!