[已解决]求文件另存为时，可以自动清除按钮和宏代码的方法

zjdh

个人登记表生成2.rar (36.4 KB, 下载次数: 80)

2014-7-19 10:23 上传

点击文件名下载附件

hhxq001

zjdh 发表于 2014-7-19 10:23

very good 再次感谢！！！！

zjdh

其实这个更简单快捷

1. Sub 备份()
   
2.     FN = InputBox("请输入新文件名称", "文件名设置")
   
3.     ActiveWorkbook.SaveCopyAs FN & ".xls"
   
4.     With Workbooks.Open(ThisWorkbook.Path & "" & FN & ".xls")
   
5.         For Each ms In .Sheets(1).Shapes
   
6.             ms.Delete
   
7.         Next ms
   
8.         Application.VBE.ActiveVBProject.VBComponents.Remove Application.VBE.ActiveVBProject.VBComponents("模块1")
   
9.         .Close True
   
10.     End With
    
11. End Sub
    
12. 
    

复制代码

hhxq001

zjdh 发表于 2014-7-19 13:19
其实这个更简单快捷

我试用这个遇到的问题：

1、不能自由选择保存的路径，
2、保存时出错。

hhxq001

zjdh 发表于 2014-7-19 10:23

其实只要这个可以去掉另存成的新表不含sheet2、3就很完美哦，还有就是每次打开关闭备份的文件，总提示是否保存？

zjdh

hhxq001 发表于 2014-7-19 17:12
我试用这个遇到的问题：

1、不能自由选择保存的路径，

13 楼的宏在我的电脑中运行正常，出现问题可能是你的电脑环境问题了，唯独没考虑自由选择存放目录。

zjdh

hhxq001 发表于 2014-7-19 17:20
其实只要这个可以去掉另存成的新表不含sheet2、3就很完美哦，还有就是每次打开关闭备份的文件，总提示是 ...

要删除多余的2个表很简单，添加几句语句即可：
Sub TEST()
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Workbooks.Add
    For i = Sheets.Count To 2 Step -1
    Sheets(i).Delete
    Next
    With ThisWorkbook
    ................................
    ActiveWorkbook.Close
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
End Sub

zjdh

“每次打开关闭备份的文件，总提示是否保存”
是因为你的表2及所有生成的表中F3单元都有一个公式“=TODAY()”，每次打开文件就刷新了一次，当然要问你是否要保存啦！

hhxq001

zjdh 发表于 2014-7-19 21:18
要删除多余的2个表很简单，添加几句语句即可：
Sub TEST()
    Application.ScreenUpdating = False
...

用这段代码没实现，自己加了一段，也行了。

个人登记表生成-另存时自动清理宏代码0719.zip (51.38 KB, 下载次数: 42)

2014-7-19 22:05 上传

点击文件名下载附件

zjdh

hhxq001 发表于 2014-7-19 22:05
用这段代码没实现，自己加了一段，也行了。

你这2段代码有局限性，若系统设置为4个或更多的表就不行啦！