EXCEL宏，在这个宏运行完之后自动保存整个工作表

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Application.Path & "\" & strfilename & ".PDF", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
'我之前做的是一个sheet保存为一抄个文件，以变知量生成不同的文件名。道供你参考一下。

ActiveWorkbook.Save '保存工作簿
是想在打印之后，自动保存工作簿吗？用下面代码就可以：
sub 打印
ActiveSheet.PrintOut '打印当前表
ActiveWorkbook.Save '保存当前工作簿文档
end sub

使用Workbook.SaveAs 方法
NewBook.SaveAs Filename:=b1&c1&".xlsx"
如果百不想因为度冲突出知现提示，可道以再继续添加版以下代权码：
,ConflictResolution：=xlLocalSessionChanges