我有一个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语句完成关闭,也没有用.
不知道如何处理, 谢谢!
……
Ws2.PrintOut '打印该文件
wb2.Saved = True
Wb2.Close '关闭Excel文件,
app.quit