如何真正实现无提示保存Excel文档

2024-05-11 06:55:12

要想取消Excel文档的保存提示，从而实现文档的自动保存，应该从两个方面加以考虑，一是设置ThisWorkBook.Saved属性，当此属性为True时，Excel会认为该文档已被保存过，因此不会弹出保存对话框，二另存时，如果目标文件已存在，则应先删除掉目标文件，这样Excel就不会弹出提示文件已存在的对话框，

代码如下：

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim strFileName As String

    strFileName = "c:/temp.xls"
    ThisWorkbook.Saved = True
    If ThisWorkbook.FullName = ThisWorkbook.Name Then
        If Len(Dir(strFileName)) > 3 Then Kill strFileName
        ThisWorkbook.SaveAs strFileName
    Else
        ThisWorkbook.Save
    End If
End Sub

当然，如果不想另存，直接设置Saved属性就可以了。

摘自：如何真正实现无提示保存Excel文档

相关文章参考：

※vb用数组方式快速导出MSFlexGrid表格数据到Excel表格中

※Excel 非常详细 [网摘]

※如何使用自动化与分析工具库创建 Excel 直方图

※VB封装Excel chart

※如何用VB实现Excel文件的自动合并

※vb如何用代码对Excel的指定区域实行保护

※如何真正实现无提示保存Excel文档

更多精彩>>>

如何真正实现无提示保存Excel文档相关推荐

保存Excel文档时提示文档未保存
作者:iamlaosong 保存Excel文档时,提示文档未保存,也无法另存,只能将内容复制到其他文件里保存,这个现象以前出现过,一般都能找到原因,这一次文件是别人发给我的,修改后就是无法保存,最后只 ...
python写入excel文件保存_python:写入 Excel 文档
创建并保存 Excel 文档 : import openpyxl,os os.chdir('D://练习') wb=openpyxl.Workbook() wb.sheetnames 输出:['She ...
（转载）Excel文档保存的时候，提示“文档未保存”
亲测,成功搞定 Excel文档保存的时候,提示"文档未保存"? 先打开你需要处理的excel,然后打开工具栏--宏--录制新宏--确定--停止录制宏--宏-宏--编辑--复制以下程 ...
Excel无法打开，内存或磁盘空间不足，Microsoft Excel无法再次打开或保存任何文档
错误提示 Excel无法打开,内存或磁盘空间不足,Microsoft Excel无法再次打开或保存任何文档要想更多的可用内存,请关闭不再使用的工作簿或程序要想释放磁盘空间,请删除相应磁盘上不需要的 ...
excel未保存强制关闭计算机,excel文档未保存关闭的恢复方法
导语:excel文档未保存关闭如何恢复呢?我相信大多数人都会遇到在编辑excel时还没保存,就不小心关闭了,大家都会很着急,今天小编给大家介绍excel文档未保存关闭恢复的方法. 在Excel2010 ...
内存或磁盘空间不足，Microsoft Office Excel 无法再次打开或保存任何文档。 [问题点数：20分，结帖人wenyang2004]...
在环境里是没有问题的就是发布网站后,会出现"/"应用程序中的服务器错误.------------------------------------------------------ ...
服务器保存时提示文档未保存,Word文档保存时常遇到的问题及其解决方法
Word文档在保存时可能遇到各种各样的问题.我们来看以下四大类的11个文档保存问题分别是什么原因引起的,以及如何解决. 以 Microsoft Word 文件格式保存文档保存文档后,更改丢失 ·我在 ...
内存或磁盘空间不足，Microsoft Office Excel 无法再次打开或保存任何文档的处理方法...
错误信息:内存或磁盘空间不足,Microsoft Office Excel 无法再次打开或保存任何文档. 要想获得更多的可用内存,请关闭不再使用的工作簿或程序. 要想释放磁盘空间,请删除相应磁盘上 ...
Jsp利用pageoffice实现在线excel文档的编辑并保存到服务器
利用pageoffice实现在线处理excel文档上周开组会,发现理解错导师的意思了,老师当然希望我能自动的爬取那些信息,但是现在要的很急,希望以半自动的方式去得到这些数据存到数据库,所以这周一直在 ...

最新文章

热门文章