獲取Excel工作表表名一般使用創(chuàng)建Excel.Application對象的方法，但速度比較慢。 使用dao的方法則可以快速獲取， 代碼 如下： '獲取Excel文件所有工作表名稱的過程 Public Sub GetExcelSheetName() Dim dbs As DAO.Database Dim tbf As DAO.TableDef Dim sSheetName As String Dim sFileName As String sFileName = "d:\My Documents\個人文檔\報名表.xls" ' 把Excel文件當(dāng)作數(shù)據(jù)庫用dao打開 Set dbs = OpenDatabase(sFileName, False, False, "Excel 8.0;") '循環(huán)所有表 For Each tbf In dbs.TableDefs sSheetName = tbf.Name ' 如果表名是數(shù)字，兩邊會加上單引號，這里去掉 If sSheetName Like "'*'" Then sSheetName = Mid(sSheetName, 2, Len(sSheetName) - 2) End If '可能會返回很多表，但只有最后一個字符為$的表是可用和可見的，是我們需要的 If Right(sSheetName, 1) = "$" Then sSheetName = Mid(sSheetName, 1, Len(sSheetName) - 1) Debug.Print sSheetName End If Next End Sub
標(biāo)簽: Excel
|站長郵箱|小黑屋|手機(jī)版|Office中國/Access中國
( 粵ICP備10043721號-1 ) 
