![](https://img.51dongshi.com/20250105/wz/18512397952.jpg)
生成“個人宏工作簿”為了使“目錄”按鈕對所有工作簿都有效,我們需要將其保存在“個人宏工作簿”中。首次使用“宏”功能時,需先讓軟件生成一個隱藏的“個人宏工作簿”。執行“工具→宏→錄制新宏”命令,點擊“保存在”右側下拉按鈕,選擇“個人宏工作簿”,點擊“確定”以進入“宏”錄制狀態。無需進行任何操作,直接單擊“宏”工具條中的“停止錄制”按鈕,軟件將自動生成一個隱藏的“個人宏工作簿”。以后如需在“個人宏工作簿”中編輯宏,無需再次執行此步驟。編輯制作“目錄”宏執行“工具→宏→VisualBasic編輯器”命令,進入VBA編輯狀態。在左側“工程資源管理器”中展開“VBAProject(PERSONAL.XLSB)”選項,雙擊“模塊1”,輸入下述代碼替換編輯區原有代碼:Subml() OnErrorResumeNext; Subml() OnErrorResumeNext'如果出現錯誤,繼續運行下面的代碼以下代碼將在A1、B1、C1單元格中輸入列標題文本內容,分別為“序號”、“文件名稱”、“文件類型”。聲明一個變量wj,用Dir函數瀏覽選定文件夾中的所有文件,進行循環,依次在A列、C列、B列輸入行序號、文件擴展名、文件名稱。完成循環后,將列設置為最適列寬及水平居中格式,保存目錄文檔,并關閉當前文檔窗口。啟動Excel2003,執行“工具→宏→宏”命令,雙擊上面制作的宏,選中需要制作目錄的文件夾,確定,即可制作出一個目錄文件。點擊文件名稱,就能快速打開相應的文檔進行瀏覽。以上步驟可以快速實現新建多個文件夾,文件夾名稱存放在一個Excel表格中的需求。通過使用“個人宏工作簿”和VBA代碼,可以自動化生成目錄文件,提高工作效率。需要注意的是,在編輯宏時,確保代碼無誤,避免出現錯誤。希望以上信息對你有所幫助。