excel - 使用变量名称保存 Excel VBA

Question

Soo....在保存excel时遇到问题，我希望它生成的名称..它一直保存为“FALSE”...据我所知，我一切都正确。由于目录将是一个变量，我宁愿将它保存在当前文件夹中。

最终我希望它作为第 # md-yy Site.xlsm ei 第 36 周 9-5-20 第 41 周 HMU

Sub SaveWorkBook()


    Dim wb As Workbook
    Dim myFile As String
    Dim dDate As Date
    Dim sSite As String

    dDate = Date 'Todays date
    sSite = Range("Q10").Value 'Site Name
    
    myFile = "Week " & WorksheetFunction.WeekNum(dDate, 2) & Format(dDate, "m-d-yy") & " " & sSite & ".xlsm"
    
    Application.DisplayAlerts = False
        
    ActiveWorkbook.SaveAs FileName = myFile
  
End Sub

标签： excelvba