Question

如何利用VBA将一个Excel中的每一个工作表都保存为一个PDF文件，文件名为工作表的名字？

Answer 1

1、在需要单独保存的工作表上右键，弹出菜单选择移动或复制工作表
2、在第一个里选择新工作薄然后确定
3、然后会出现新的excel文件，接着保存下来
然后每个文件做成PDF文件
推荐下面免费的方法转成PDF试试：
方法一：使用虚拟打印机pdf factory即可，而且其他格式文件只要是能够打印，选择这个虚拟打印机，都可以做成PDF文件，很简单实用；最简单而且实用的使用虚拟打印机pdf factory即可，可以把任意只要能够打印的格式文件都可以做成PDF文件，并且可以把多个文件通过打印之后合成一个PDF文件。
pdfFactory Pro(虚拟打印机)是一个无须 Acrobat 创建 Adobe PDF 文件的打印机驱动程序。pdfFactory Pro(虚拟打印机)提供的创建 PDF 文件的方法比其他方法更方便和高效。 功能包括: 多个文档整合到一个 PDF 文件中; 内嵌字体; 通过 E-mail 发送; 预览; 自动压缩优化。
PDF Factory是pdf虚拟打印机软件，下载安装好PDF Factory后，我们在打印机控制面板中就可以找到一台由pdf Factory虚拟出来的打印机，可以把任何可以打印的文件转换成pdf文件。用任何可以支持打印输出的软件，把需要处理的文件逐个打印到这个虚拟打印机，全部打印完成后可把结果保存成一个pdf文件。甚至可以把不同软件格式的文件，如word、excel、photoshop等任何可以支持打印的文件，打印到同一个pdf文件。
在打印之前，在PDF Factory Pro里面设置一下PDF的打开、打印等权限即可实现加密等目的；
在打印之前，在设置里面，就把加载所有的系统字体选中。
在打印界面出来后，可以在左侧设置水印。然后再保存PDF文件。
打印完毕后，下载一个Adobe Reader,然后安装，可以很流畅的阅读PDF文件。
方法二：使用专门的转换软件，把文件转成PDF文件；
方法三：用其他虚拟打印机转成PDF文件。
方法四：用WPS本身自带的转换功能转成PDF文件。
方法五：其他例如在线转换的方法等；

Answer 2

如果要每个SHEET存一个文件，需要循环把每个SHEET先移出来，再另存为PDF。
代码如下，供参考。
Sub 折表存PDF()
Dim MyWork
Dim MySheet
Dim MyPath
MyWork = ActiveWorkbook.Name
MyPath = ActiveWorkbook.Path
For Each MySheet In Sheets
MySheet.Copy
ChDir MyPath
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=MySheet.Name & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
ActiveWindow.Close False
Windows(MyWork).Activate
Next
End Sub

追问

请问mysheet怎么定义的?