VB中调用电子表格SAVE或SAVEAS时总弹出警告，如何处理

一是关闭安全警告，如下
xls.DisplayAlerts = False 把它安全警告功能关闭,就不会有提示了
使用save前加句：application.displayalerts=false
注意：save后恢复默认设置：application.displayalerts=true

 

在saveas之前先用dir函数查查有没有同名文件，如果有用kill删除它，然后saveas
检查excel文件是否存在，存在则删除
    If Dir(App.Path & "\你的excel文件.xls") <> "" Then
         Kill App.Path & "\你的excel文件.xls "
    End If