电脑桌面
添加小米粒文库到电脑桌面
安装后可以在桌面快捷访问

用vba批量转换ecel工作簿为pdf

用vba批量转换ecel工作簿为pdf_第1页
1/3
用vba批量转换ecel工作簿为pdf_第2页
2/3
用vba批量转换ecel工作簿为pdf_第3页
3/3
Excel 2024 和 Excel 2024 可以将 Excel 工作簿另存为 PDF 格式文件,但手工的方法每次只能转换一个工作簿,要转换多个工作簿就显得有些繁琐。假如没有批量转换软件,在 Excel 2024 和 Excel 2024 中,利用 VBA 代码也可以轻松实现将 Excel 工作簿批量转换为 PDF,方法如下: 1.按 Alt+F11,打开 VBA 编辑器。 2.在右侧代码窗口中输入下列代码:Sub BatchConvertWorkBookToPDF() = False = False Dim fDialog As FileDialog Set fDialog = (msoFileDialogFilePicker) Dim vrtSelectedItem As Variant Dim wkBook As Workbook Dim showFolder As Boolean showFolder = False With fDialog . "Excel 文件", "*.xls; *.xlsx; *.xlsm", 1 If .Show = -1 Then For Each vrtSelectedItem In .SelectedItems '假如选择了本工作簿则跳过 If InStrRev(vrtSelectedItem, = 0 Then On Error Resume Next Set wkBook = ReadOnly:=True, Password:="") '跳过设置打开密码的工作簿 If Not wkBook Is Nothing Then '跳过隐藏的工作簿 If Windows.Visible = True Then showFolder = True '转换开始 Type:=xlTypePDF, Filename:= _ Left(vrtSelectedItem, InStrRev(vrtSelectedItem, ".") - 1) & ".pdf" _ , Quality:=xlQualityMinimum, IncludeDocProperties:=False, IgnorePrintAreas _ :=True, OpenAfterPublish:=False , savechanges = False Else , savechanges = False End If End If End If Next vrtSelectedItem If showFolder Then Call Shell(" " & Left(1), _ InStrRev(1), "\")), vbMaximizedFocus) End If End With Set fDialog = Nothing = True = TrueEnd Sub 3.将需要转换的 Excel 工作簿复制到某个文件夹中。 4.关闭 VBA 编辑器返回 Excel 界面。按 Alt+F8 打开“宏”对话框,执行“BatchConvertWorkBookToPDF”宏。 5.在弹出的“浏览”对话框中选择包含要转换工作簿的文件夹,选择所有要转换的工作簿,单击“打开”按钮即可开始转换。 说明: 1.已转换的 PDF 文件位于原工作簿所在的文件夹中,转换完成后会自动打开该文件夹。 2.不能转换设置了打开密码的工作簿、隐藏的工作簿、隐藏的工作表和包含上述 VBA 代码的工作簿。 3.转换的文件类型为“*.xls”、“*.xlsx”、“*.xlsm”。假如要转换其他类型的工作簿,可在代码中添加文件类型。 4.假如要转换的工作簿具有相同的名称和不同的后缀,如“”和“”,则先转换的 PDF 文件会被覆盖。 必需安装用于 2024 Microsoft Office system 的“另存为 PDF 或 XPS”加载项

1、当您付费下载文档后,您只拥有了使用权限,并不意味着购买了版权,文档只能用于自身使用,不得用于其他商业用途(如 [转卖]进行直接盈利或[编辑后售卖]进行间接盈利)。
2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。
3、如文档内容存在违规,或者侵犯商业秘密、侵犯著作权等,请点击“违规举报”。

碎片内容

用vba批量转换ecel工作簿为pdf

确认删除?
VIP
微信客服
  • 扫码咨询
会员Q群
  • 会员专属群点击这里加入QQ群
客服邮箱
回到顶部