1、開啟事先準備好的Excel檔案
2、工具欄/開發工具/Visual Basic，開啟Microsoft Visual Basic,也可使用快捷鍵Alt+F11，
3、然後，選擇VBAProject/Microsoft Excel 物件/sheet1（sheet1），在右邊視窗輸入以下程式： Sub 根據工作表建立目錄() Dim i As Integer, Biao As Worksheet i = 2 For Each Biao In Worksheets Cells(i, "A") = Biao.Name i = i + 1 Next Biao End Sub 程式已經編制完成！
4、最後，工具欄/開發工具/宏（快捷鍵Alt+F8），檢視宏，選擇已編制好的宏“根據工作表建立目錄”，執行，就會根據工作表建立對應目錄。也可直接在Microsoft Visual Basic中執行，工具欄/執行/執行子過程/使用者窗體，或者直接點選選單欄中類似於三角形的按鍵。
1、開啟事先準備好的Excel檔案
2、工具欄/開發工具/Visual Basic，開啟Microsoft Visual Basic,也可使用快捷鍵Alt+F11，
3、然後，選擇VBAProject/Microsoft Excel 物件/sheet1（sheet1），在右邊視窗輸入以下程式： Sub 根據工作表建立目錄() Dim i As Integer, Biao As Worksheet i = 2 For Each Biao In Worksheets Cells(i, "A") = Biao.Name i = i + 1 Next Biao End Sub 程式已經編制完成！
4、最後，工具欄/開發工具/宏（快捷鍵Alt+F8），檢視宏，選擇已編制好的宏“根據工作表建立目錄”，執行，就會根據工作表建立對應目錄。也可直接在Microsoft Visual Basic中執行，工具欄/執行/執行子過程/使用者窗體，或者直接點選選單欄中類似於三角形的按鍵。