cl h2 您好

感谢您在Microsoft社区发帖。

目前Excel无法使用内置模块实现您的效果。

通常实现此类效果，需要创建VBA或者使用EXCEL插件。

以下是一个简单的VBA宏示例，可以遍历指定文件夹下的所有Excel文件并打印它们的所有工作表。

Sub PrintAllWorksheetsInFolder()

Dim folderPath As String

Dim file As String

Dim wb As Workbook

Dim ws As Worksheet

' 设置要处理的文件夹路径

folderPath = "C:\YourFolderPath\" ' 替换为你的文件夹路径

' 获取文件夹下所有的Excel文件

file = Dir(folderPath & "*.xlsx")

' 遍历每个Excel文件

Do While file <> ""

' 打开工作簿

Set wb = Workbooks.Open(folderPath & file)

' 打印每个工作表

For Each ws In wb.Worksheets

ws.PrintOut

Next ws

' 关闭工作簿

wb.Close SaveChanges:=False

' 继续处理下一个文件

file = Dir

Loop

End Sub

在这个示例中，我们首先设置了要处理的文件夹路径，然后使用Dir函数获取该文件夹下的所有Excel文件。接着，我们遍历每个Excel文件，打开工作簿并打印每个工作表，最后关闭工作簿。

在实际使用时，你需要将上述VBA宏粘贴到Excel的VBA编辑器中（按Alt + F11打开VBA编辑器），然后修改folderPath为你实际的文件夹路径。之后你可以手动运行该宏，或者将其与Excel文件一起保存，以便在需要时随时运行。

希望这个示例能够帮助你实现批量打印Excel文件的所有工作表！

希望以上信息可以帮助到您。

Best Wish

Shawn Z | Microsoft Community Support Specialist