快速獲取Excel文件所有工作表表名

t小寶

獲取Excel工作表表名一般使用創(chuàng)建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\個(gè)人文檔\報(bào)名表.xls"
   
10.    
    
11.     ' 把Excel文件當(dāng)作數(shù)據(jù)庫用dao打開
    
12.     Set dbs = OpenDatabase(sFileName, False, False, "Excel 8.0;")
    
13.    
    
14.     '循環(huán)所有表
    
15.     For Each tbf In dbs.TableDefs
    
16.         sSheetName = tbf.Name
    
17.         
    
18.         ' 如果表名是數(shù)字，兩邊會加上單引號，這里去掉
    
19.         If sSheetName Like "'*'" Then
    
20.             sSheetName = Mid(sSheetName, 2, Len(sSheetName) - 2)
    
21.         End If
    
22.         
    
23.         '可能會返回很多表，但只有最后一個(gè)字符為$的表是可用和可見的，是我們需要的
    
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

復(fù)制代碼

admin

好方法，的確比打開EXCEL快

輕風(fēng)

學(xué)習(xí)了

purplerose

這個(gè)問題也是有些人常問的問題了，小寶好樣的