三言兩語VBA能做些什麼？
太多了！
比如，提取所有工作表名。
讓我們從一條小故事開始講起！
某日，
阿呆一邊複製粘貼一邊向小花嘟囔
「哎呦，一個一個複製，好累啊！」
小花轉頭看了看這位"同桌"，
原來，他的Excel工作簿包含了30多張SHEET表，
這會兒正按領導要求製作目錄呢！
小花：你這是要提取所有工作表名吧？
阿呆：是啊，只能逐一複製粘貼了嗎？大神，你有什麼好方法嗎？
小花：當然了，給你一句VBA吧，一鍵搞定！
阿呆：哇塞，什麼神器，秒殺啊！！！你是這麼辦到的！
小花：這只是VBA的基本操作，就這簡單的幾行代碼而已！
Sub 一鍵提取表名()
Dim i As Integer
For i = 2 To Worksheets.Count
Sheets("目錄").Range("A" & i) = Worksheets(i).Name
Next i
End Sub
阿呆：這幾句話就能實現這麼強大的功能？VBA好強大。快告訴我怎麼用這些語句？
小花：很簡單的，就兩步。
Step1: 新建一個工作簿，按Alt+F11，打開VBE窗口，插入模塊，在代碼窗口插入代碼；
Step2: 將工作簿另存為.xlsm（啟用宏的工作簿）格式。以後每次通過開發工具-宏或快捷鍵方式就可以啟用宏。也可以像小花這樣，右鍵某一對象（圖形、圖片都可以）上，再菜單中選擇指定宏，將對象關聯宏，以後就可以通過點擊對象啟用宏了。
具體操作實例請參考《挑戰100+指定名稱工作薄，你敢嗎？》一文。
阿呆：OK，很簡單嘛！代碼我是不會寫，但會用就足夠了！小花老師以後要多多分享這些實用的簡單VBA給我哈，省時省力，按時下班，哈哈哈！
小花：沒問題！
————THE END