ExportAsFixedFormat带点的PDF

Question

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

当我为Excel电子表格使用SaveAs功能时，文件名保存正确。例如： “（M.003）Bill Johnson.xlsx”

但是，当我尝试将文件导出到pdf时，文件名不包括“。”后面的“path_id”部分。例如： “（M比尔Johnson.pdf”

我用Excel 2011在我的MacBook Pro运行10.9.5

下面的代码的相关部分。

'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 

谢谢！

Answer 1

你能尝试使用CHR方法和调用一个“点”适当的ASCII值试试这个：

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