VBA- รหัสดำเนินการและสร้างผลที่ต้องการ แต่แล้วเกิดข้อผิดพลาดในบรรทัด Exportasfixedformat

ฉันมีมาโครสำหรับส่งออกเวิร์กชีททั้งหมดเพื่อแยกไฟล์ PDF ในโฟลเดอร์ย่อยที่ระบุ เมื่อฉันรันมันจะสร้างไฟล์ PDF ในตำแหน่งที่ถูกต้องและมีชื่อว่า apporproately แต่แล้วข้อผิดพลาด - ข้อผิดพลาด 5 การเรียกขั้นตอนหรืออาร์กิวเมนต์ที่ไม่ถูกต้อง - มีแนวคิดใดบ้าง

    Sub SaveWorkshetAsPDF()
Application.ScreenUpdating = False

Dim ws As Worksheet
Dim path As String
Dim fol As String
Dim name As String
Dim concat As String
Dim fdObj As Object


path = ActiveWorkbook.path
fol = "\PDFs\"
Set fdObj = CreateObject("Scripting.FileSystemObject")
If fdObj.FolderExists(path & fol) Then
MsgBox "Found it", vbInformation
Else
fdObj.createfolder (path & fol)
MsgBox "folder created", vbInformation
End If

For Each ws In Worksheets


    name = ws.name
    concat = path & fol & name

    With ws.PageSetup
        .Orientation = xlLandscape
        .FitToPagesWide = 1
        .FitToPagesTall = False
        .PaperSize = xlPaperA3
    End With
    ws.ExportAsFixedFormat xlTypePDF, fileName:=concat
Next ws

Application.ScreenUpdating = True

End Sub

เพิ่มนามสกุลไฟล์และ ActiveWorkBook

For Each ws In Worksheets


name = ws.name
concat = path & fol & name & ".pdf"

With ws.PageSetup
    .Orientation = xlLandscape
    .FitToPagesWide = 1
    .FitToPagesTall = False
    .PaperSize = xlPaperA3
End With
ActiveWorkbook.ExportAsFixedFormat xlTypePDF, Filename:=concat
Next ws