妳新建壹個excel,在裏面加壹個CommandButton,把以下代碼復制到CommandButton裏面,然後把下面代碼中的aaa.xls改成妳那個有100個sheet的excel的名字就可以.
點按鈕,就會把這個100個表的名字按順序顯示在妳新建的這個EXCEL的第壹列:
Private?Sub?CommandButton1_Click()
On?Error?Resume?Next
Dim?sh?As?Worksheet
i?=?1
For?Each?sh?In?Workbooks("aaa.xls").Worksheets
Range("a"?&?i)?=?sh.Name
i?=?i?+?1
Next
End?Sub