如何得到Excel文件的每个sheet的名称和sheet数？

我要飞

在Access数据库中导入Excel文件之前如何得到其sheet数和名称，现在导入Excel文件只有第一个sheet有数据，很不方便。目的是将整个目录的Excel文件的每个sheet导入使用。（每次目录中的文件不同，但格式相同）
请高手指教！！！

我要飞

期盼高手帮助，先谢谢了！

jcls

把源程序发过来吧。

我要飞

哪位高人遇到过类似情况，请伸出您热情的双手。

我要飞

我在ExcelHome得到了答案，应先定义Excel应用程序等变量，现在完成了，就是觉得速度很慢。谢谢各位关注！
Dim ex As Excel.Application
　　 Dim exwbook As Excel.Workbook
　　 Dim exsheet As Excel.Worksheet
　　 Dim x As String
　　 Dim shetcounts As Integer
　　 shetcounts = 0
　　 Set ex = CreateObject("Excel.Application")
　　 Set exwbook = ex.Workbooks.Open(ThisWorkbook.Path & "\Book1.xls")
For Each sheet In exwbook.Worksheets
         x = x + sheet.Name
         shetcounts = shetcounts + 1
Next
msgbox ”名称:“ & left(x,len(x)-1)  & chr(13) & "共有" & shetcounts  & "个工作簿。"