Как экспортировать лист с динамическим именем листа

#excel #vba #export

#преуспеть #vba #экспорт

Вопрос:

Я пытаюсь экспортировать лист с именем 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 " amp; Format(myDate, "mm.dd.yyyy")

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

ChDir "C:UsersUserDesktopJohnsonsParallel"
ActiveWorkbook.SaveAs Filename:= _
"C:UsersUserDesktopJohnsonsParallelLValue.xlsx", FileFormat:= _
    xlOpenXMLWorkbook, CreateBackup:=False

 End Sub
  

Ответ №1:

Вам нужно объединить переменную, сейчас это просто строка, которая совпадает с переменной.

 "C:UsersUserDesktopJohnsonsParallel" amp; LValue amp; ".xlsx"
  

Может не понравиться, что ваши даты отформатированы с помощью «.»