Office中国论坛/Access中国论坛

标题: 快速获取Excel文件所有工作表表名 [打印本页]

---

作者: t小宝    时间: 2013-8-6 15:26
标题: 快速获取Excel文件所有工作表表名
获取Excel工作表表名一般使用创建Excel.Application对象的方法，但速度比较慢。
使用dao的方法则可以快速获取，代码如下：

1. '获取Excel文件所有工作表名称的过程
   
2. Public Sub GetExcelSheetName()
   
3. 
   
4.     Dim dbs As DAO.Database
   
5.     Dim tbf As DAO.TableDef
   
6.     Dim sSheetName As String
   
7.    
   
8.     Dim sFileName As String
   
9.     sFileName = "d:\My Documents\个人文档\报名表.xls"
   
10.    
    
11.     ' 把Excel文件当作数据库用dao打开
    
12.     Set dbs = OpenDatabase(sFileName, False, False, "Excel 8.0;")
    
13.    
    
14.     '循环所有表
    
15.     For Each tbf In dbs.TableDefs
    
16.         sSheetName = tbf.Name
    
17.         
    
18.         ' 如果表名是数字，两边会加上单引号，这里去掉
    
19.         If sSheetName Like "'*'" Then
    
20.             sSheetName = Mid(sSheetName, 2, Len(sSheetName) - 2)
    
21.         End If
    
22.         
    
23.         '可能会返回很多表，但只有最后一个字符为$的表是可用和可见的，是我们需要的
    
24.         If Right(sSheetName, 1) = "$" Then
    
25.             sSheetName = Mid(sSheetName, 1, Len(sSheetName) - 1)
    
26.             Debug.Print sSheetName
    
27.         End If
    
28.     Next
    
29. 
    
30. End Sub

复制代码

---

作者: admin    时间: 2013-8-6 15:32
好方法，的确比打开EXCEL快

---

作者: 轻风    时间: 2013-8-6 15:39
学习了

---

作者: purplerose    时间: 2016-3-18 16:22
这个问题也是有些人常问的问题了，小宝好样的

---

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)

Powered by Discuz! X3.3