文件名vba构造

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

结束子

Answer 1

在您的代码中，'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

希望有所帮助！

Answer 2

我看到两个问题

首先你有OpenAfterPublish：= True两次，只需删除一个

第二我很厚你没有选择“活动表”

尝试放置表格（“NAME_OF_SHEET”）。在导出为PDF之前选择

谢谢