Код |
---|
Sub PDF_Name_Only() If Application.PathSeparator = "\" Then sep = "\" Else sep = "/" End If ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & sep & _ ActiveSheet.Name, openafterpublish:=False End Sub |
На винде работает без проблем. На маке если делать вручную - тоже работает без ошибок.