ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

EH搜索     
EH云课堂-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
Excel不给力? 何不试试FoxTable! Excel 2016函数公式学习大典 EH云课堂直播课程免费学 打造核心竞争力的职场宝典
300集Office 2010微视频教程 Tableau-数据可视化工具 精品推荐-800套精选PPT模板,点击获取 ExcelHome出品 - VBA代码宝免费下载
你的Excel 2010实战技巧学习锦囊 欲罢不能, 过目难忘的 Office 新界面 Excel VBA经典代码实践指南
查看: 235|回复: 9

[求助] 工作表保留格式去除公式另存工作薄

[复制链接]

TA的精华主题

TA的得分主题

发表于 2019-12-13 22:58 | 显示全部楼层 |阅读模式
求助,附件表格有几个需求:1.“项目更新”表格去除公式,但需要保留格式;
2.验证列文字变成白色或另存时删除;
3.另存到指定的文件夹,新工作簿命名的时候要“项目更新YYMMDD”文件名要有日期后缀。
感觉需求比较多,搞了好久没法都满足,求助大大。


项目.rar

8.43 KB, 下载次数: 3

TA的精华主题

TA的得分主题

发表于 2019-12-14 11:19 | 显示全部楼层
仅供参考

Sub test2020()
  Dim r%, mp$, mf$
  Application.DisplayAlerts = False: Application.ScreenUpdating = False '禁止弹警告
   mp = ThisWorkbook.Path & "\" '路径
   myname = "项目更新" & Format(Date, "yyyymmdd") '预设一个工作薄名称
   mf = Dir(mp & "*" & myname & "*.xls*") '显示工作薄名称
   If mf <> "" Then Kill mp & mf '如果已经有了,就删除它
    ThisWorkbook.Sheets("项目更新").Copy: ActiveWorkbook.SaveAs mp & myname & ".xls" '保存为新工作薄
    r = ActiveWorkbook.Sheets("项目更新").Columns("a:a").Find("检查列").Row '查找有“检查列”几个字所有行
    ActiveWorkbook.Sheets("项目更新").Rows(r).Clear '清除
    arr = ActiveWorkbook.Sheets("项目更新").UsedRange '赋值给数组
    ActiveWorkbook.Sheets("项目更新").[a1:z60000].ClearContents '清空数据,保留格式
    ActiveWorkbook.Sheets("项目更新").[a1].Resize(UBound(arr), UBound(arr, 2)) = arr '将数组输出到单元格区域(无公式了)
    ActiveWorkbook.Close True '关闭时保存
    MsgBox "OK,完成!!!", 48, "温馨提示……"
  Application.DisplayAlerts = True: Application.ScreenUpdating = True
End Sub

TA的精华主题

TA的得分主题

发表于 2019-12-14 11:21 | 显示全部楼层
代码在审核,附件仅供参考

项目2222222222.zip

15.63 KB, 下载次数: 13

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-12-14 20:47 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-12-14 20:54 | 显示全部楼层
网海遨游 发表于 2019-12-14 11:19
仅供参考

Sub test2020()

代码很好用,感谢感谢。但是为什么打开生成的表格时候,会出现:文件格式和扩展名不匹配,文件可能已损坏或不安全。除非信任,否则请勿打开

TA的精华主题

TA的得分主题

发表于 2019-12-15 08:02 来自手机 | 显示全部楼层
26791tt 发表于 2019-12-14 20:54
代码很好用,感谢感谢。但是为什么打开生成的表格时候,会出现:文件格式和扩展名不匹配,文件可能已损坏 ...

可能是保存为.xls后缀名问题,可将代码中文件名后缀.xls改成.xlsx后缀

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-12-15 19:05 | 显示全部楼层
网海遨游 发表于 2019-12-15 08:02
可能是保存为.xls后缀名问题,可将代码中文件名后缀.xls改成.xlsx后缀

好的 我再试试 非常感谢您

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-12-16 14:06 | 显示全部楼层
网海遨游 发表于 2019-12-15 08:02
可能是保存为.xls后缀名问题,可将代码中文件名后缀.xls改成.xlsx后缀

您好,代码:mp = ThisWorkbook.Path & "\" '路径
是保存到同一个文件夹了,如果有另存的指定文件夹呢?比如“F:\文件夹A\1号”这种?

TA的精华主题

TA的得分主题

发表于 2019-12-16 16:22 | 显示全部楼层
mp=“F:\文件夹A\1号\”
'前提是F盘必须有这样层级与名称的文件夹。

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-12-16 17:54 | 显示全部楼层
网海遨游 发表于 2019-12-16 16:22
mp=“F:\文件夹A\1号\”
'前提是F盘必须有这样层级与名称的文件夹。

收到  谢谢您的指导
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

关注官方微信,每天学会一个新技能

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2020-2-17 08:36 , Processed in 0.421099 second(s), 18 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2020 Wooffice Inc.

   

沪公网安备 31011702000001号 沪ICP备11019229号

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:徐怀玉律师 李志群律师

快速回复 返回顶部 返回列表