如何实现备份为不带宏的文件类型

jeremy_cao

使用场景：在实际工作中，带宏的文件只是每日操作的工具，而真正的报表是个不带宏的文件，所以就需要将带宏的文件备份为不带宏的文件。



实现方式：
通过savecopyas 为拷贝一份xlsm格式的文件，再讲这份拷贝的文件save as为.xlsx类型的文件。
又由于保存的是不同类型，将在同一目录下另外产生一个不带宏的文件。所有通过kill 删除原先savecopyas带宏的文件。
实现如附件。


测试本代码运行环境:
win7 64位，office professional Plus 2010 。

如有其他方式实现不带宏的备份，求大神指导。

vitrel

楼主，您好！
对于您的要求，我理解，但对于您的代码，我确实不太明白，想请教一下。
说白了，您的需求是将原来的带宏的xlsm文件另存为一份不带宏的xlsx格式的文件（结果有2份文件），
这完全是可以用很简单的VBA实现的。

ThisWorkbook.SaveCopyAs Filename:=ThisWorkbook.Path & "\" & "备份.xlsx", FileFormat:=xlOpenXMLWorkbook

而楼主您的代码，是先将原文件另存为一份带宏的xlsm文件和一份不带宏的xlsx格式的文件（有3份文件），然后再将另存出来的那一份带宏的xlsm文件删除掉，只剩下原文件和不带宏的xlsx格式的文件（剩2份文件），我实在不明白其中的意义所在。

附：
SaveAs               操作完成后，编辑新工作簿
SaveCopyAs        操作完成后，继续编辑原工作簿

FileFormat:=xlOpenXMLWorkbook                         'Excel 工作簿（格式）
FileFormat:=xlOpenXMLWorkbookMacroEnabled     'Excel 启用宏的工作簿（格式）
FileFormat:=xlExcel8                                           'Excel 97-2003 工作簿（格式）

jeremy_cao

我用的你的代码，保存的报错。

vitrel

抱歉，我的代码错了。
仅SaveAS支持FileFormat，SaveCopyAs并不支持FileFormat。
代码应更正为：
ThisWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & "备份.xlsx", FileFormat:=xlOpenXMLWorkbook
谢谢您的指正。

jeremy_cao

用了你的方便多了，之前走了弯路了。

maditate

既然代码能操作非代码所在的文件，为何不直接用代码直接去操作非宏文件，然后再别存保存备份任意份非宏文件呢？

jeremy_cao

不好意思。我刚刚试了你的方法，可以备份为xlsx格式的文件。也可以打开。
但我之前，用的你的方法，生成的xlsx备份打不开。