谁能帮忙关注下静易墨公众号号呢 静羽轩

来源：蜘蛛抓取(WebSpider) 时间：2018-01-26 19:26 标签： 静易墨公众号
查看: 5897|回复: 4
在线等，请高手帮忙！（如何另存时直接覆盖替换原文件）
阅读权限30
在线时间 小时
我录制了一个宏，就是从一个工作表里复制东西到一个新建的工作表里，然后另存为“试验.dbf”格式，在试验的过程中，如果之前我文档目录下有同名的文件名（即：“试验.dbf”）时，会提示是否覆盖字样的选项，我现在希望当遇到同名时，直接替换原文件，不进行任何提示，请问高手该如何实现？（因为影响不了多长时间，但我现在要做的一项工作得重复一两千次，累计起来还是有点影响效率。）
录制的宏代码如下：
Sub Macro1()
' Macro1 Macro
' 宏由 微软用户 录制，时间:
' 快捷键: Ctrl+q
& & Cells.Select
& & Selection.Copy
& & Workbooks.Add
& & ActiveSheet.Paste
& & Cells.Select
& & Selection.ColumnWidth = 98
& & Range(&A1&).Select
& & Application.CutCopyMode = False
& & ActiveWorkbook.SaveAs Filename:=&E:\files\试验.dbf&, FileFormat:=xlDBF3, _
& && &&&CreateBackup:=False
& & ActiveWindow.Close
[ 本帖最后由 筱龙 于
10:49 编辑 ]
阅读权限30
在线时间 小时
& & & & & & & &
不知这样行吗?
Sub Macro1()
& & Cells.Select
& & Selection.Copy
& & Workbooks.Add
& & ActiveSheet.Paste
& & Cells.Select
& & Selection.ColumnWidth = 98
& & Range(&A1&).Select
& & Application.CutCopyMode = False
& &Application.Displayalerts=false& &
& &ActiveWorkbook.SaveAs Filename:=&E:\files\假身份证.dbf&, FileFormat:=xlDBF3, _
& && &&&CreateBackup:=False
& & ActiveWindow.Close
阅读权限30
在线时间 小时
非常感谢，已解决了我的问题
阅读权限30
在线时间 小时
看了半天，原来加了这一句：Application.Displayalerts=false
阅读权限150
在线时间 小时
& & & & & & & &
Application.DisplayAlerts = False& && & '禁用警告提示
Application.DisplayAlerts = True& && &&&'恢复警告提示
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师

我要回帖

更多关于 静易墨公众号 的文章

 

随机推荐