求助使用sql如何获得全部excel sheet名字

梦天龙 · 发表于 2006-7-12 15:01

在其他程序用sql连接查询excel表格时sheet的名字随文件不同而不同，有什么方法可以查到所有sheet的名字吗？谢谢

nawong · 发表于 2006-7-12 15:27

Set rstcom = conn.OpenSchema(adSchemaTables)

northwolves · 发表于 2006-7-12 15:53

引用 ADOX(Microsoft ADO Ext 2.X DDL and Security )

Sub xxx()
Dim mycat As New ADOX.Catalog, i As Integer, msg As String
mycat.ActiveConnection = "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.FullName
For i = 1 To mycat.Tables.Count
msg = msg & mycat.Tables(i - 1).Name & vbCrLf
Next
MsgBox msg
End Sub

		自动登录	找回密码
密码			免费注册