#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"
Может не понравиться, что ваши даты отформатированы с помощью «.»