方法一: Private Sub GetSheetName() Set VBEXCEL = CreateObject("Excel.Application") VBEXCEL.Workbooks.Open CurrentProject.Path & "\表名.xls" For i = 1 To VBEXCEL.Worksheets.Count Debug.Print VBEXCEL.Worksheets(i).Name Next VBEXCEL.Quit Set VBEXCEL = Nothing End Sub 方法二: Sub Main() Dim cnn As ADODB.Connection Dim rst As ADODB.Recordset Set cnn = New ADODB.Connection cnn.Open "Driver={Microsoft Excel Driver (*.xls)};DriverId=790;Dbq=C:\Book1.xls;DefaultDir=C:\" Set rst = cnn.OpenSchema(adSchemaTables, Array(Empty, Empty, Empty, Empty)) While Not rst.EOF Debug.Print rst!TABLE_NAME rst.MoveNext Wend Set rst = Nothing Set cnn = Nothing End Sub详细内容:http://www.office-cn.net/forum.php?mod=viewthread&tid=66320 |
|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )
GMT+8, 2024-4-29 06:39 , Processed in 0.072375 second(s), 16 queries .
Powered by Discuz! X3.3
© 2001-2017 Comsenz Inc.