Question

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

当我使用excel电子表格的SaveAs功能时，文件名保存正确。例如：＆＃34;（M.003）Bill Johnson.xlsx＆＃34;

但是当我尝试将文件导出为pdf时，文件名将排除＆＃34; path_id＆＃34;的部分。在＆＃34;之后出现。＆＃34 ;;例如：＆＃34;（M Bill Johnson.pdf＆＃34;

我在运行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

谢谢！

Answer 1

您是否可以尝试使用CHR方法并为＆＃34; dot＆＃34;调用适当的ASCII值。试试这个：

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

ExportAsFixedFormat PDF带点

1 个答案: