便于自己学习,留存下来: Sub 获取表名1() '要引用microsoft ado ext. * for ddl and security Dim shts As New ADOX.Catalog, ar() shts.ActiveConnection = "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.Path & "\客户信息.xls" ReDim ar(1 To shts.Tables.Count) For i% = 1 To shts.Tables.Count ar(i) = Left(shts.Tables(i - 1).Name, Len(shts.Tables(i - 1).Name) - 1) Next MsgBox Join(ar, " ") End Sub
Sub 获取表名2() Dim wk As Workbook, ar() Set wk = Workbooks.Open(ThisWorkbook.Path & "\客户信息.xls") ReDim ar(1 To wk.Sheets.Count) For i% = 1 To wk.Sheets.Count ar(i) = wk.Sheets(i).Name Next wk.Close False MsgBox Join(ar, " ") End Sub
|