ExportAsFixedFormat PDF с точками

Question

Я пытаюсь экспортировать Excel файлы в PDF с помощью VBA. Функция экспорта работает нормально, но я не могу успешно добавить точки/периоды в имя файла.

Когда я использую функцию SaveAs для таблицы Excel, имя файла сохраняется правильно. Например: "(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"