首页
学习
活动
专区
工具
TVP
发布
精选内容/技术社群/优惠产品,尽在小程序
立即前往

为什么我的代码不复制ThisWorkbook并用一个新的增量名称保存它(为了版本历史)?

你好!根据你的问题,我将为你解答。

问题:为什么我的代码不复制ThisWorkbook并用一个新的增量名称保存它(为了版本历史)?

回答:在Excel VBA中,复制并保存工作簿的代码可以通过以下步骤实现:

  1. 首先,你需要使用VBA代码中的ThisWorkbook对象来引用当前打开的工作簿。
  2. 然后,你可以使用SaveCopyAs方法将工作簿保存为一个新的副本。这个方法会将工作簿保存到指定的路径,并使用指定的文件名。
  3. 为了实现版本历史,你可以在文件名中添加一个增量名称。这可以通过在文件名中使用日期和时间戳来实现,确保每次保存都有一个唯一的文件名。

下面是一个示例代码,演示了如何复制并保存工作簿:

代码语言:txt
复制
Sub SaveWorkbookWithIncrementalName()
    Dim originalWorkbook As Workbook
    Dim newWorkbook As Workbook
    Dim savePath As String
    Dim fileName As String
    
    ' 获取当前工作簿的引用
    Set originalWorkbook = ThisWorkbook
    
    ' 设置保存路径和文件名
    savePath = "C:\Path\To\Save"
    fileName = "Workbook_" & Format(Now, "yyyymmdd_hhmmss") & ".xlsx"
    
    ' 复制工作簿
    originalWorkbook.SaveCopyAs savePath & "\" & fileName
    
    ' 打开新的副本
    Set newWorkbook = Workbooks.Open(savePath & "\" & fileName)
    
    ' 在新的副本中进行操作
    ' ...
    
    ' 关闭并保存新的副本
    newWorkbook.Close SaveChanges:=True
End Sub

在这个示例代码中,savePath变量表示保存路径,你需要根据实际情况进行修改。fileName变量使用了当前日期和时间戳来生成唯一的文件名。

请注意,这只是一个示例代码,你可以根据自己的需求进行修改和扩展。

推荐的腾讯云相关产品:腾讯云对象存储(COS)

  • 概念:腾讯云对象存储(COS)是一种海量、安全、低成本、高可靠的云存储服务,适用于存储和处理任意类型的文件。
  • 优势:高可靠性、高可用性、低成本、安全性高、灵活易用。
  • 应用场景:备份与归档、静态网站托管、大规模数据处理、移动应用、多媒体共享与分发等。
  • 产品介绍链接地址:腾讯云对象存储(COS)

希望这个回答能够帮助到你!如果你有任何其他问题,请随时提问。

页面内容是否对你有帮助?
有帮助
没帮助

相关·内容

没有搜到相关的沙龙

领券