如何節約

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失敗 繼續/結束/調試/幫助

...