同一文件夾下如何批量列印所有EXCEL工作簿中的指定的幾個工作表？

01-29

我有一個文件夾下有幾十個EXCEL表格，每個表格中有兩個固定的SHEET需要列印（所有EXCEL表格中兩個固定SHEET的名字相同）。因為經常需要這樣列印，每次打開這麼多表格一個個列印很繁瑣，是否可以幫忙介紹方法可以直接列印這個文件夾下所有EXCEL表中這兩個固定的SHEET內容。

下面的VBA代碼應該可以滿足你的需求。在此基礎上可以根據需要修改，使之靈活（比如更方便的指定目錄名和工作表名稱、列印任意工作表等等）。

Option Explicit


Public Sub printAll()
    Dim file$, folder$, wb As Workbook

    folder = "d:vbademo"

    file = Dir(folder  "*.xlsx")    
    Do While file &<&> ""

        Set wb = GetObject(folder  file)

        wb.Worksheets("表1名稱").PrintOut

        wb.Worksheets("表2名稱").PrintOut

        wb.Close

        file = Dir

    Loop

End Sub

解決的思路：

新建個excel文件，寫上要列印文件夾位置，要列印工作表名稱，添加一個按鈕控制項，在控制項單擊事件寫入vba代碼。先遍歷文件，然後控制列印。

模擬的界面（為了偷懶沒有做目錄的選取功能，我是直接從資源管理器里複製的目錄名稱）

輸入代碼後綁定到表單按鈕控制項上（選擇的是默認印表機、各工作表默認列印參數）

如果覺得還不夠詳細就評論，我會繼續補充截圖。

謝 @無限風光在險峰邀

第一次有人邀請我回答VBA問題，其實我學VBA也才不到一年。

我的VBA老師@楊洋的回答已經很完美了，你直接用這個代碼就可以了。

如果你沒學過VBA的話，百度一下如何在excel中運行VBA代碼。再就是注意文件的後綴名。