如何节约

Question

这里的时候，我强制使用模板的文件名是什么，我需要做的：

• 保存具有特定格式的Excel文件：CompagnyName_YYYYMMDD_Employe.xlsm

• 我会喜欢保持弹出窗口，要求我的路径，因为我需要它是操作系统 - Windows兼容，

这将使我的一天。

如果这是不可能的，我想反正知道:)

Answer 1

试试这个宏：

Sub CustomSave() 
    Dim NewFileName As String 
    NewFileName = "CompanyName_" & Format(Now, "YYYYMMDD") & "_Employee.xlsm" 
    NewFileName = Application.GetSaveAsFilename(NewFileName, "Excel Macro Enabled Workbook (*.xlsm), *.xlsm") 
    Call ActiveWorkbook.SaveAs(NewFileName, xlOpenXMLWorkbookMacroEnabled) 
End Sub 

或者用它来覆盖保存事件：

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) 
    Cancel = True 
    Dim NewFileName As String 
    NewFileName = "CompanyName_" & Format(Now, "YYYYMMDD") & "_Employee.xlsm" 
    ChosenFileName = Application.GetSaveAsFilename(NewFileName, "Excel Macro Enabled Workbook (*.xlsm), *.xlsm") 
    If ChosenFileName <> False Then 
     Application.EnableEvents = False 
     Call ActiveWorkbook.SaveAs(ChosenFileName, xlOpenXMLWorkbookMacroEnabled) 
     Application.EnableEvents = True 
    End If 
End Sub 

Answer 2

看来，MAC用户遇到问题：

运行时错误：1004 方法GetSaveAs文件名FO对象_Application失败 继续/结束/调试/帮助

...