一堆excel檔案里，自由選擇要列印的檔案？？？-有解無憂

       遍歷檔案夾內所有檔案，然后批量列印，我可以辦到。比如檔案夾中有  檔案A、檔案B、檔案C、檔案D、檔案E、檔案F，我可能這次選擇列印檔案A、檔案B，或者都列印，這種情況代碼如何寫呢？

這是excel列印范圍，列印機選擇默認
Range("A1:Z33").Select
    Selection.PrintOut Copies:=1, Collate:=True
    Sheets("定位測量驗收記錄").Select
    Range("A1:Z29").Select
    Selection.PrintOut Copies:=1, Collate:=True
    Sheets("成果表").Select
    Range("A1:L16").Select
    Selection.PrintOut Copies:=1, Collate:=True
    Sheets("樓層軸線復測").Select
    Range("A1:AM23").Select
    Selection.PrintOut Copies:=1, Collate:=True
    Sheets("交接記錄").Select
    Range("A1:L29").Select
    Selection.PrintOut Copies:=1, Collate:=True

uj5u.com熱心網友回復：

你之前做到的是遍歷所有檔案，然后搜索到一個檔案打一個吧。
稍微改改，遍歷所有檔案，把所有檔案的路徑和檔案名放到一個list或者listview或者干脆扔到一個sheet里面，反正就是一個可以進行勾選的串列。然后由操作人員勾選想要列印的檔案。接下來遍歷串列中被勾選的檔案列印。
和你之前的差異僅僅是遍歷出來的檔案需要進行二次確認而已

uj5u.com熱心網友回復：

Quote: 參考 1 樓脆皮大雪糕的回復:

首先非常感謝你的回復，不過這個“可進行勾選”的代碼可以給一個示例嗎？

uj5u.com熱心網友回復：
【管理員】DTer | 系統自動發言請勿回復 2019/4/22 15:47:34
checkbox？？？
uj5u.com熱心網友回復：
新建表單，放一個listbox ,粘貼以下代碼
表單啟動以后串列中羅列檔案，選擇勾選檔案，然后點擊表單任意位置。立即表單中顯示你勾選的檔案
Private Sub UserForm_Initialize()

    

    Dim strTmp As String

    Me.ListBox1.ListStyle = fmListStyleOption

    Me.ListBox1.MultiSelect = fmMultiSelectMulti

    

    strTmp = Dir("C:\Windows\")

    Do While strTmp <> ""

        ListBox1.AddItem strTmp

        strTmp = Dir

    Loop

End Sub







Private Sub UserForm_Click()

    Dim i As Integer

    For i = 0 To Me.ListBox1.ListCount - 1

        If ListBox1.Selected(i) Then Debug.Print ListBox1.List(i)

    Next

End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/35162.html
標籤：VBA

上一篇：VBA
下一篇：在VB.net中用select陳述句選擇資料顯示在datagridview中。結果搜索datagridview中沒有資料。編程小白，求解