Vba 在文件夹中另存为PDF和Excel 2016副本，并根据单元格值创建文件名

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

我有一个宏，允许我将所有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

---

你到底想用复制部分实现什么？我知道您在某个时候将文件导出为PDF，但以下部分的问题在哪里？当它保存为Excel文件时，它会不断询问兼容错误，而当我打开Excel副本时，它会不断说格式有错误，我想继续吗？这就是每次打开Excel副本时出现的问题：文件格式和X的扩展名不匹配。文件可能已损坏或不安全。除非你相信它的来源，否则不要打开它。是否要以任何方式打开它？这样，当您以.xlsm结尾保存excel文件时，不会出现任何问题？请尝试使用FileFormat:=52而不是FileFormat:=xlnormal使用复制部分究竟要实现什么？我知道您在某个时候将文件导出为PDF，但以下部分的问题在哪里？当它保存为Excel文件时，它会不断询问兼容错误，而当我打开Excel副本时，它会不断说格式有错误，我想继续吗？这就是每次打开Excel副本时出现的问题：文件格式和X的扩展名不匹配。文件可能已损坏或不安全。除非你相信它的来源，否则不要打开它。是否要以任何方式打开它？这样，当以.xlsm结尾保存excel文件时，不会出现问题？请尝试使用FileFormat:=52而不是FileFormat:=xlNormal