使用变量名保存Excel VBA

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

最终我希望它成为Week#m-d-yy Site.xlsm e、 i第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

---

你用错函数了。请尝试

工作表函数.ISOWeekNum（日期）

<不需要代码>dDate<代码>Wb未使用

MyFile

命名错误：应该是

MyFileName

，因为

MyFile

是一个对象。我通常使用

Fn

，因为

FileName:=Fn

足够清晰。观察为命名属性赋值时所需的

：=

组合。感谢您的出色工作，非常感谢。