имя файла vba construction

Question

Мне нужна помощь с именем файла, отладка показывает некоторую ошибку (синтаксическая ошибка) в процессе сохранения, это, вероятно, конструкция файла. Буду признателен за помощь:

 Sub zapiszpdf2()
Dim DATA As String
DATA = Format(Date, "dd-mm-yyyy")

    Columns("E:F").Select
    Selection.EntireColumn.Hidden = True

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=
   ActiveWorkbook.Path & "\" & "C_a_" & DATA & ".pdf", Quality:=xlQualityStandard,
        IncludeDocProperties:=True, IgnorePrintAreas:=False, From:=1, To:=1, OpenAfterPublish:=True, OpenAfterPublish:= _
        True

    Columns("D:G").Select

    Selection.EntireColumn.Hidden = False

End Sub

---

Нашел это! Дополнительный «,» и двойной «открыть после», как вы сказали. Я также избавляюсь от «выбора». Большое спасибо.

 Sub zapiszpdf2()
Dim DATA As String
DATA = Format(Date, "dd-mm-yyyy")

Columns("E:F").EntireColumn.Hidden = True

 ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
       ActiveWorkbook.Path & "C_a_" & DATA & ".pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, From:=1, To:=1, OpenAfterPublish:=True


Columns("D:G").EntireColumn.Hidden = False

End sub

Answer 1

я вижу две проблемы

сначала у вас есть OpenAfterPublish: = True дважды, просто удалите один

а во-вторых, я не выбираю "активный лист"

попробуйте поместить листов ("NAME_OF_SHEET"). Выберите перед экспортом в PDF

спасибо

Answer 2

В вашем коде «OpenAfterPublish: = True» было написано дважды, и вы можете просто удалить один.

 Sub zapiszpdf2()
Dim DATA As String
DATA = Format(Date, "dd-mm-yyyy")

Columns("E:F").Select
Selection.EntireColumn.Hidden = True

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=
   ActiveWorkbook.Path & "\" & "C_a_" & DATA & ".pdf", Quality:=xlQualityStandard,
        IncludeDocProperties:=True, IgnorePrintAreas:=False, From:=1, To:=1, OpenAfterPublish:=True

Columns("D:G").Select

Selection.EntireColumn.Hidden = False

End Sub

Надеюсь, это поможет!