关于excel vba 常用警告提示关闭的问题

1、关闭文件时如果文件做了修改,系统会提示保存,用下列语句就不会提示了:

ThisWorkbook.Close savechanges:=False     

False表示不保存修改,如果改为True,则保存修改。类似的:

ActiveWindow.Close savechanges:=False

Windows(datfile).Close savechanges:=False

。。。

2、保存文件时如果存在同名文件,系统会提示是否覆盖,用用下列语句就不会提示了:

在文件处理开始时,关闭报警:
Application.DisplayAlerts = False
在文件保存后,再打开报警:
Application.DisplayAlerts = True

 

3、下列语句可以消除“隐私警告”消息框:

ActiveWorkbook.RemovePersonalInformation = False

4、最后说一下,下列语句可以关闭屏幕闪动,但不影响用状态栏显示处理进度:

    Application.ScreenUpdating = False       ‘关闭屏幕显示

    Application.ScreenUpdating = True        ‘打开屏幕显示

   用状态栏显示进度的方法:

    For i = 1 To DataNo1

        。。。。。。
        ‘显示进度
        Application.StatusBar = "已完成:" & CStr(Round(i * 100 / DataNo1, 2)) & "%"
        DoEvents
    Next i
5:关于VBA新建工作簿保存文件打开不兼容的问题 

ActiveWorkbook.SaveAs Filename:=Filename, FileFormat:=xlExcel8 :加格式参数

文章来自:https://www.cnblogs.com/zhaoxure/p/12021134.html
© 2021 jiaocheng.bubufx.com  联系我们
ICP备案:鲁ICP备09046678号-3