如何另存（保存）不含宏

首先贴出原文：

http://club.excelhome.net/thread-1105587-1-1.html

 1 '-----------Sub 仅存数据----------Copyright@百度不到去谷歌 QQ80871835 2014/3/22---------------------------
 2 '功能 : 另存为不含宏的文件,并删除控件,条件格式,数据有效性,公式转数值
 3 '---------------------------------------------------------------------------------------------------------
 4 Sub 仅存数据()
 5     Dim sht, shp
 6     Application.DisplayAlerts = False
 7     ActiveWorkbook.SaveAs Filename:= _
 8         ActiveWorkbook.Path & "" & ActiveWorkbook.Name & "-纯数据.xlsx", FileFormat:=xlOpenXMLWorkbook '另存为xlsx格式 清除宏代码
 9     Sheets.Select
10     Cells.Select
11     Selection.Copy '粘贴数值,删除公式
12     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
13         :=False, Transpose:=False
14     Application.CutCopyMode = False
15     Sheets(1).Select
16     For Each sht In Sheets '删除控件
17         With sht
18             .Cells.FormatConditions.Delete '删除条件格式
19             For Each shp In .Shapes '清除控件
20              shp.Delete
21             Next
22             .Cells.Validation.Delete '清除有效性
23         End With
24     Next
25     ActiveWorkbook.Save
26      Application.DisplayAlerts = True
27 End Sub

 

其实主要是这句：

 1 ThisWorkbook.SaveAs "c:\1.xlsx", xlOpenXMLWorkbook 

 

程序中清除控件、清除条件格式、清除有效性的代码，可以借鉴。

 

posted on 2020-02-19 11:06  搞笑机械师  阅读(800)  评论(0)  编辑  收藏  举报

导航