|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
在你的附件中按ALT+F11,将这段代码,复制进去按F5运行,就会将该工作表簿中的工作表转换为PDF,并保存在与该文件相同的文件下下.
你的附件中本来也有一段代码,这段里面考虑的因素多点,但无法运行.下面的代码在EXCEL2010版下测试通过
Sub 宏3()
Dim SH As Worksheet
For Each SH In Sheets
SH.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
ThisWorkbook.Path & "\" & Left(ThisWorkbook.Name, InStr(1, ThisWorkbook.Name, ".") - 1) & SH.Name, Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
Next
End Sub |
|