我正在尝试创建一个宏,它将根据在几个单元格中输入的条件选择工作表 .
具体来说,我有一个表格,列出了每个工作表的名称:
1x服务
农药通知
准备通知
放弃
学校发布
所有者免责声明
它旁边的列用于在需要选择并打印为 single pdf document 的纸张上标记"x" .
这是我目前用来保存主表的代码 . 其他工作表将有条件地添加到此工作表中,但这个工作表将始终包含在内并始终是第一个:
Dim MyDocumentsFolder As String
MyDocumentsFolder = Get_SpecialFolderPath("MyDocuments")
ActiveWorkbook.SaveAs Filename:=MyDocumentsFolder & "\" & Range("A1").Value
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Range("A1").Value, Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True