zoukankan      html  css  js  c++  java
  • 如何另存(保存)不含宏

    首先贴出原文:

    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 

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

  • 相关阅读:
    JavaEE 第四周
    JavaEE 第三周
    JavaEE 第二周
    JavaEE 第一周
    js字符串方法
    javaee项目库存管理系统总结
    javaee期末团队项目库存管理系统概要信息
    JAVAEE第十一周
    JSON
    Facelets
  • 原文地址:https://www.cnblogs.com/gongyanxu/p/12330319.html
Copyright © 2011-2022 走看看