文件名 vba 构造答案

【问题标题】：file name vba construction文件名 vba 构造
【发布时间】：2018-08-30 07:23:51
【问题描述】：

我需要文件名方面的帮助，调试时在保存过程中显示一些错误（语法错误），这可能是文件名构造。我会很感激一些帮助：

 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

结束子

【问题讨论】：

有什么问题？ :)
错误信息是什么，在哪一行？
您有两次OpenAfterPublish:=True 与ExportAsFixedFormat 一致
平常的avoid Select
下一步是避免implicit references

标签： vba excel filenames

【解决方案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

希望有帮助！

【讨论】：

我的错 - 我已经删除了第二个“打开之后”，但仍然存在语法错误：ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= ActiveWorkbook.Path & "\" & "C_a_ " & DATA & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, From:=1, To:=1, OpenAfterPublish:=True

【解决方案2】：

我发现两个问题

首先你有两次OpenAfterPublish:=True，删除一次

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

尝试在导出为 PDF 之前放置 Sheets("NAME_OF_SHEET").Select

谢谢

【讨论】：