Office中国论坛/Access中国论坛

标题: 利用ADO如何获取工作薄里的所有工作表名称？（已解决） [打印本页]

作者: zhidao 时间: 2015-6-15 15:09
标题: 利用ADO如何获取工作薄里的所有工作表名称？（已解决）
本帖最后由 zhidao 于 2015-7-12 08:28 编辑

如题，知道的能否给说一下

作者: 盗梦 时间: 2015-6-15 15:15
用ADOX获取吧

作者: zhidao 时间: 2015-6-15 15:17

盗梦发表于 2015-6-15 15:15
用ADOX获取吧

有实例参考一下吗？

作者: 盗梦 时间: 2015-6-15 15:23
本帖最后由盗梦于 2015-6-15 15:24 编辑

zhidao 发表于 2015-6-15 15:17
有实例参考一下吗？

刚刚百度查了一下，ADO也可以：百度文库

或者你直接用ADO读取 Access的系统表 "MsysObjects" 里面有存放所有表，窗体等信息

至于ADOX，只要你打开 ADOX.Catalog 遍历其中的Tables集合即可

作者: todaynew 时间: 2015-6-15 16:06
本帖最后由 todaynew 于 2015-6-15 16:07 编辑

参见：http://www.office-cn.net/forum.p ... BB%B4%F2%BF%AAExcel

Function GetSheetName(filepath As String, n As Integer) As String
'功能：返回标签名称
'引用：Mocrosoft ADO Ext 2.8 for DDL and Securty
'参数：filepath--Excel文件名，n--标签序号（从1开始）
Dim conn As New ADODB.Connection
Dim cat As New ADOX.Catalog
Dim sheetname As String
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & filepath & ";Extended Properties=Excel 8.0;"
conn.Open
Set cat.ActiveConnection = conn
sheetname = cat.Tables(n - 1).Name

conn.Close
Set cat = Nothing
Set cnn = Nothing
GetSheetName = sheetname
End Function

作者: zhidao 时间: 2015-6-15 17:22

盗梦发表于 2015-6-15 15:23
刚刚百度查了一下，ADO也可以：百度文库

或者你直接用ADO读取 Access的系统表 "MsysObjects" 里面有存 ...

谢谢你的帮助，辛苦了，

作者: zhidao 时间: 2015-6-16 20:50

todaynew 发表于 2015-6-15 16:06
参见：http://www.office-cn.net/forum.p ... BB%B4%F2%BF%AAExcel

Function GetSheetName(filepath As ...

正在学习中，谢谢帮助

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)