excel - WorksheetFunction.Month 对象错误不支持属性或方法

Question

我正在尝试将文件保存到具有动态名称的文件夹和子文件夹中。

我的文件夹和子文件夹的结构是

Shared Drive -> Main -> Year (i.e. 2018) -> Month (i.e. 09 September).

我希望保存在上个月的文件夹中，因为数据来自上个月。我想将文件名保存为 PIF_09.30.2018，因此使用上个月月底的日期。

我收到错误

object doesn't support this property or method.

Sub Save_wkb()
Dim Path As String
ActiveWorkbook.SaveAs "S:\Main\" & Format(Now(), "YYYY") & _
     Application.PathSeparator & Format(WorksheetFunction.Month(Now, -1), "MM ") & _
   Format(WorksheetFunction.Month(Now, -1), "MMMM") & _
   Application.PathSeparator & "PIF_" & _
   Format(WorksheetFunction.EoMonth(Now, -1), "MM.D.YYYY") & ".xlsx", _
   FileFormat:=51
End Sub

Answer 1

您无法使用WorksheetFunction.Month - 它不存在。

由于您要尝试减去一个月，因此可以使用 DateAdd() 函数。

Dim Path As String
Path = "S:\Main\" & Format(Now(), "YYYY") & Application.PathSeparator & _
    Format(DateAdd("m", -1, Date), "00 ") & Application.PathSeparator & _
    Format(DateAdd("m", -1, Date), "MMMM") & Application.PathSeparator & _
    "PIF_" & Format(WorksheetFunction.EoMonth(Now, -1), "M.D.YYYY") & ".xlsx"