使用vba实现批量打印文件夹中的Excel (工作簿设置有密码和打印指定工作表名称的情况)

Question

如题所述

Answer 1

实现批量打印文件夹中Excel文件的VBA代码，针对工作簿设置有密码和打印指定工作表名称的情况如下：

定义变量：

folderPath为文件夹路径，例如："C:\Users\admin\Desktop\"，请更改为你的文件夹路径。

fileName通过"Dir"函数搜索文件夹路径下的所有.xls和.xlsx文件。

sheetName为需要打印的工作表名称，例如："sheet1"。

password为工作簿密码，例如："123456"。

关闭屏幕更新功能，开始处理每个文件：

通过循环，使用"Dir"函数获取每个文件，然后使用"Workbooks.Open"函数打开文件，参数设置为ReadOnly为True和密码为password。

通过条件判断，判断当前工作表名称是否等于指定的工作表名称，如果相等，执行打印操作。

使用"wb.Close"函数关闭文件，参数SaveChanges设置为False以避免保存更改。

将wb对象设为无以释放内存资源。

循环获取下一个文件，直到文件列表为空。

最后恢复屏幕更新功能。