求宏，实现另存本文件为xls,且不带原来的宏。

xzcdcak · 发表于 2022-11-28 16:46

我有一个老系统上带的xls文件，我在上面编制了一些宏命令，但要上传系统时，需要把我编制的宏全部删除，保存为不带宏的xls文件。
因为不光我用。还有很多小白同事要用。所以希望能一键操作。另存为不带宏的xls

这个应该怎么操作？

liulang0808 · 发表于 2022-11-28 16:55

另存为xlsx文件，然后把xlsx文件再另存为xls格式。
生成一个新文件。

3190496160 · 发表于 2022-11-28 17:23

Sub 另存()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
ActiveSheet.Copy
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & ActiveSheet.Name & ".xls", FileFormat:=xlExcel8
Application.DisplayAlerts = True
Application.ScreenUpdating = True
MsgBox "ok!"
End Sub

3190496160 · 发表于 2022-11-28 17:23

参考

工作簿1.rar (12.76 KB, 下载次数: 6)

xzcdcak · 发表于 2022-11-28 19:09

3190496160 发表于 2022-11-28 17:23
参考

我这个工作薄有四个工作表。分别人Sheet1 sheet2 sheet3 和汇总表
我这四张表都要保留下来。怎么办？

3190496160 · 发表于 2022-11-29 13:34

xzcdcak 发表于 2022-11-28 19:09
我这个工作薄有四个工作表。分别人Sheet1 sheet2 sheet3 和汇总表
我这四张表都要保留下来。怎么办？

呵呵呵，注册了近10年的老会员了，不应该犯这样的错误吧？
楼主看看你上传的附件，有几个工作表呢？
任何人写代码，只能是根据你的描述和上传的附件来写，别不不是你自己，所以，不能指望你不说，别人也能明白你心中的想法，

		自动登录	找回密码
密码			免费注册

[求助] 求宏，实现另存本文件为xls,且不带原来的宏。

评分

评分