以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关闭Excel另存为  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=193375)

--  作者:creastzh
--  发布时间:2024/9/9 6:49:00
--  关闭Excel另存为
我有一个Excel文件,在Foxtable中进行了写入操作, 如下所示:

    
    \'写入影像仪程序清单
    If dr5s.count > 0 Then
        .Range("AA2").Resize(dr5s.Count, 3).Value = ary5    \'1段数据使用二维数组写入
    End If
    App.run("OneTimeSetupType") \'完成数据及排版处理          \'调用Excel宏程序完成排版


  Ws2.PrintOut  \'打印该文件
Wb2.Close     \'关闭Excel文件,
app.quit


问题是:
     在调用App.Quit时, 原本仅用 app.quit 退出Excel, 但总是出现 "另存为"界面要求操作, 可我不需要这个动作, 故想用"Wb2.close语句完成关闭,也没有用.

不知道如何处理, 谢谢!

--  作者:有点蓝
--  发布时间:2024/9/9 8:58:00
--  
……
  Ws2.PrintOut  \'打印该文件
wb2.Saved = True Wb2.Close     \'关闭Excel文件,
app.quit

--  作者:creastzh
--  发布时间:2024/9/9 17:37:00
--  
成功了,谢谢!