主页 / 问题 / 954761
Accepted
2b4fITin
Asked:2020-03-11 00:37:54 +0000 UTC2020-03-11 00:37:54 +0000 UTC

关闭文件时将文件保存到“..\Version\..”文件夹

  • 772

同事！有一个代码：

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.DisplayAlerts = False
    Call ThisWorkbook.SaveAs("C:\_Temp\Test2\Version\Test2_" & Format(Now(), "DDMMYY") & "_" & Format(Time(), "hhmmss"), xlWorkbookDefault)
    Application.DisplayAlerts = True
End Sub

我非常希望自动执行此操作，而不是硬编码路径“C:_Temp\Test2\Version\Test2_”（可能以某种方式使用 ThisWorkbook.Path），因此此代码对于任何需要保存的新书都是通用的关闭文件时复制到指定的文件夹（复制此通用代码+创建了该文件所在的文件夹“..\Version..”，仅此而已）。也就是说，在文件夹“..\Version..”中，您将获得类似日志的内容...

你想要更优雅的代码 -)

还有一件事：现在 .xlsx 分辨率的文件被保存到“..\Version..”文件夹中，但必须使用 .xlsm 分辨率

vba

1 个回答

  1. Best Answer

    在“本书”模块中

    Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim sFldr As String, sFName As String
    sFldr = ThisWorkbook.Path & "\Version\" ' путь к папке для сохранения'
    If Dir(sFldr, vbDirectory) = "" Then MkDir sFldr ' создаем, если нет'

    sFName = Replace(ThisWorkbook.Name, ".xlsm", "") & _
                    "_" & Format(Now(), "ddMM_hhmmss") ' имя back-up'

    Application.DisplayAlerts = False
    ThisWorkbook.Save ' если нужно сохранить и рабочую версию'
    ThisWorkbook.SaveAs Filename:=sFldr & sFName & ".xlsm", _
                    FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
    Application.DisplayAlerts = True
End Sub
    • 0

相关问题