[已解决]如何在工作簿保存时自动改名成指定的名称

蝶·舞 · 发表于 2012-11-9 20:05

一个工作簿（不是新建的），如何在关闭时，自动把工作簿重命名成新名字（假设为123吧）？不是另存为，是把原工作簿重命名

最佳答案

zjdh

2012-11-9 21:39

本帖最后由 zjdh 于 2012-11-9 21:49 编辑

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
Application.EnableEvents = False
ThisWorkbook.SaveCopyAs ThisWorkbook.Path & "\123.xls"
ThisWorkbook.ChangeFileAccess xlReadOnly
Kill ThisWorkbook.FullName
ThisWorkbook.Close False
Application.EnableEvents = True
End Sub

ABC.rar (7.82 KB, 下载次数: 99)

爱疯 · 发表于 2012-11-9 20:22

你希望的目的很奇怪，为什么要这样？
假如可以实现，那和另存为123，并删除原文件，有何不同呢？

蝶·舞 · 发表于 2012-11-9 20:30

爱疯发表于 2012-11-9 20:22
你希望的目的很奇怪，为什么要这样？
假如可以实现，那和另存为123，并删除原文件，有何不同呢？

没啥不同{:011:}

zjdh · 发表于 2012-11-9 20:58

本帖最后由 zjdh 于 2012-11-9 21:02 编辑

这个要求有点怪。 .

爱疯 · 发表于 2012-11-9 21:09

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim p As String
Dim oldfile As String
Dim newfile As String
With Me
      p = .Path & "\"
      oldfile = .Name
      newfile = "123.xls"
      '另存为123.xls
      Application.DisplayAlerts = False
      .SaveAs p & newfile
      .ChangeFileAccess xlReadOnly
      '删除源文件，但不删除123.xls
      Debug.Print Dir(p & oldfile)
      If oldfile <> newfile Then Kill p & oldfile
End With
End Sub

1.rar (8.5 KB, 下载次数: 27)

zjdh · 发表于 2012-11-9 21:39

本帖最后由 zjdh 于 2012-11-9 21:49 编辑

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
Application.EnableEvents = False
ThisWorkbook.SaveCopyAs ThisWorkbook.Path & "\123.xls"
ThisWorkbook.ChangeFileAccess xlReadOnly
Kill ThisWorkbook.FullName
ThisWorkbook.Close False
Application.EnableEvents = True
End Sub

ABC.rar (7.82 KB, 下载次数: 99)

wotoyo · 发表于 2013-11-4 13:03

zjdh 发表于 2012-11-9 21:39
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
Appl ...

楼上的达人好：
我工作时也需要这个操作。但看到回复里只有一段代码，我不知道如何把这段代码加在哪，还请帮忙详细说一下可以吗？我是菜鸟，所以想请您尽量说下，谢谢！

d346836673 · 发表于 2016-5-24 10:49

实践了哈 6楼的没得5楼的好用，6楼的第2次打开会出现点小问题希望可以优化哈，测试环境 win10 office2016.

mathefar · 发表于 2017-9-9 21:36

我是菜鸟，求救，我做了个EXCEL模板每次新建文件后，如何在保存这个文件的时候能自动生成EXCEL里的筛选出的组合来命名呢，这样我每次建立的时候都不用再去命名了，谢谢

02761752696 · 发表于 2017-9-9 21:46

		自动登录	找回密码
密码			注册

[已解决]如何在工作簿保存时自动改名成指定的名称

评分