STEP 1

在要抓工作表的檔案中開一個新的工作表

STEP 2

在新的工作表的畫面,按 Alt + F11 叫出VBA編輯器

STEP 3

工作列[插入]→[模組](Office 2013的情況)
複製貼上以下VBA程式碼

Private Sub CommandButton1_Click()
For i = 1 To Worksheets.Count
Cells(i, 1) = Sheets(i).Name
Next i
End Sub 

STEP 4

然後按F5或工作列上的play圖示執行,即在當前的工作表得到所有工作表名稱。

Comments

comments powered by Disqus