带点的 ExportAsFixedFormat PDF答案

【问题标题】：ExportAsFixedFormat PDF with dots带点的 ExportAsFixedFormat PDF
【发布时间】：2014-10-07 13:24:58
【问题描述】：

我正在尝试使用 VBA 将 excel 文件导出为 PDF。导出功能工作正常，但我无法成功地将点/句点添加到文件名中。

当我对 Excel 电子表格使用 SaveAs 功能时，文件名会正确保存。例如： “（M.003）比尔·约翰逊.xlsx”

但是当我尝试将文件导出为 pdf 时，文件名不包括 "." 之后的 "path_id" 部分；例如：“（M Bill Johnson.pdf”

我在运行 10.9.5 的 Macbook Pro 上使用 Excel 2011。

这是代码的相关部分：

'Save file
Dim sheet_name As String
Dim path_id As String

sheet_name = Application.Index(table_mlm.ListColumns("Full Name").DataBodyRange, _
                      Application.Match(consultant_id, table_mlm.ListColumns("Consultant ID").DataBodyRange, 0))

consultant_id = "M.001"

path_id = folder & "September:" & "(" & consultant_id & ")"

wb_report.Sheets(1).Name = sheet_name

wb_report.SaveAs path_id & " " & sheet_name & ".xlsx"

wb_report.ExportAsFixedFormat _
    Type:=xlTypePDF, _
    Filename:=path_id & sheet_name & ".pdf", _
    Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, 
    OpenAfterPublish:=False

谢谢！

【问题讨论】：

标签： excel vba pdf export

【解决方案1】：

您能否尝试使用 CHR 方法并为“点”调用适当的 ASCII 值。试试这个：

consultant_id = "M" & Chr(46) & "001"

【讨论】：