标题: 如何得到Excel文件的每个sheet的名称和sheet数？ [打印本页] 作者: 我要飞 时间: 2003-7-14 16:56 标题: 如何得到Excel文件的每个sheet的名称和sheet数？ 在Access数据库中导入Excel文件之前如何得到其sheet数和名称，现在导入Excel文件只有第一个sheet有数据，很不方便。目的是将整个目录的Excel文件的每个sheet导入使用。（每次目录中的文件不同，但格式相同）
请高手指教！！！作者: 我要飞 时间: 2003-7-15 04:23
期盼高手帮助，先谢谢了！ 作者: jcls 时间: 2003-7-15 04:29
把源程序发过来吧。作者: 我要飞 时间: 2003-7-16 04:11
哪位高人遇到过类似情况，请伸出您热情的双手。作者: 我要飞 时间: 2003-7-17 02:52
我在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 & "个工作簿。"