如何导出具有动态工作表名称的工作表

如何解决如何导出具有动态工作表名称的工作表

我正在尝试导出名为Baby的表以及今天的日期。但是，它被导出为LValue。我该如何解决？

Sub Export()

    nameBaby = "Baby"
    nametoday = Format(Date,"MM.DD.YYYY")
    ActiveSheet.Name = nameBaby + " " + nametoday

     Dim myDate
     myDate = Date
     Dim LValue As String
     LValue = "Baby " & Format(myDate,"mm.dd.yyyy")

     Sheets(LValue).Select
     Application.CutcopyMode = False
     Sheets(LValue).Move

ChDir "C:\Users\User\Desktop\Johnsons\Parallel"
ActiveWorkbook.SaveAs Filename:= _
"C:\Users\User\Desktop\Johnsons\Parallel\LValue.xlsx",FileFormat:= _
    xlOpenXMLWorkbook,CreateBackup:=False

 End Sub

解决方法

您需要连接变量，它现在只是一个字符串，恰好与变量相同。

"C:\Users\User\Desktop\Johnsons\Parallel\" & LValue & ".xlsx"

您的日期未必以“。”格式设置。