Warning: file_get_contents(/data/phpspider/zhask/data//catemap/5/excel/23.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Excel 如何导出具有动态图纸名称的图纸_Excel_Vba_Export - Fatal编程技术网

Excel 如何导出具有动态图纸名称的图纸

Excel 如何导出具有动态图纸名称的图纸,excel,vba,export,Excel,Vba,Export,我正在尝试导出名为Baby plus的表以及今天的日期。然而,它是作为左值输出的。我怎样才能解决这个问题 Sub Export() nameBaby = "Baby" nameToday = Format(Date, "MM.DD.YYYY") ActiveSheet.Name = nameBaby + " " + nameToday Dim myDate myDate = Date

我正在尝试导出名为Baby plus的表以及今天的日期。然而,它是作为左值输出的。我怎样才能解决这个问题

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"
您的日期可能不喜欢用“.”格式