保存为PDF和Excel 2016复制在从单元格值创建的文件夹和文件名中

Question

我正在使用Excel 2016，我创建了一个带有主要表格（G-Card）的模板，以下3张表格从第一张表格中获取信息。

我有一个宏，允许我将所有4张纸保存为PDF，在特定位置创建文件夹，并使用单元格值将其保存在该文件夹下。我还设法将工作簿保存为同一文件夹中相同文件夹下的副本，但它表示它不兼容或扩展错误。

似乎有效的唯一扩展是.xlm。我需要能够将模板保存为PDF和Excel文件保存在同一文件夹中，包括2016版本中的宏。请帮助..这是我的代码：

Sub NewFolder_SaveasPDF_CLICK()  

Dim strFilename As String 

Dim FldrName As String
On Error Resume Next

Set rngRANGE = Worksheets("G-Card").Range("U3")

FldrName = Worksheets("G-Card").Range("O4").Value

strFilename = rngRANGE.Value & " "  

MkDir "Q:\Green Cards & Acknowledgement\Green Cards & Acknowledgement\2017 Orders\" & FldrName

Sheets(Array("G-Card", "P-AKG", "W-AKG", "Y-AKG")).Select Sheets("G-Card").Activate

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _ 
"Q:\Green Cards & Acknowledgement\Green Cards & Acknowledgement\2017 Orders\" & FldrName & "\" & strFilename & Worksheets("G-Card").Range("O4").Value & ".pdf" _ 
, QUALITY:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=True _

Dim ExcelWork As String  

ExcelWork = strFilename & FldrName

ActiveWorkbook.SaveAs FileName:="Q:\Green Cards & Acknowledgement\Green Cards & Acknowledgement\2017 Orders\" & FldrName & "\" & ExcelWork & ".xlm", _ 
FileFormat:=xlNormal, Password:="", _ 
WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False  

End Sub