如何用SQL语句获取Excel所有表名，请指导 ！

subp

Provider=Microsoft.ACE.OLEDB.12.0; Data Source=D:\book.xls; Extended Properties=Excel 12.0;
我用ADODB连接excel后，如何用SQL语句获取表名
我就知道用SQL打开某个表的语句是：select * from [sheet1$]，但我如何能用命令取到sheet1呢（因为不是所有表名都是默认的）？
如下图，我要用SQL语句获取到 表名1、Sheet2、表3
求指导，谢谢了！！

jpj123

sheets(1).name    如此而已为何要用SQL来获取表名？

chxw68

搜一下就出来了，下面是zhaogang1960老师的代码。

1. Sub 获取工作表名称OpenSchema法()
   
2.     Dim cnn As Object, rst As Object, SQL$, Filename$, i&
   
3.     Set cnn = CreateObject("ADODB.Connection")
   
4.     Set rst = CreateObject("ADODB.Recordset")
   
5.     Filename = Application.GetOpenFilename(filefilter:="Excel文件(*.xls),*.xls", Title:="选择Excel工作簿")
   
6.     If Filename = "False" Then Exit Sub
   
7.     cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=" & Filename
   
8.     Set rst = cnn.OpenSchema(20) 'adSchemaTables=20
   
9.     i = 1
   
10.     Cells(i, 1) = "指定工作簿的工作表名称："
    
11.     i = i + 1
    
12.     Do Until rst.EOF
    
13.         If rst.Fields("TABLE_TYPE") = "TABLE" Then
    
14.             s = Replace(rst("TABLE_NAME").Value, "'", "") '表名含有“1月”等时有多余的单引号
    
15.             If Right(s, 1) = "$" Then  '排除无效表名
    
16.                 Cells(i, 1) = s
    
17.                 i = i + 1
    
18.             End If
    
19.         End If
    
20.         rst.MoveNext
    
21.     Loop
    
22.     rst.Close
    
23.     Set rst = Nothing
    
24.     cnn.Close
    
25.     Set cnn = Nothing
    
26. End Sub

复制代码

subp

chxw68 发表于 2015-4-23 22:22
搜一下就出来了，下面是zhaogang1960老师的代码。

这个帖子我也搜到看过，我不懂VBA，我是其它编程语言，希望知道SQL语句查表名的方法，谢谢！！

自然秋儿

Sub 按钮1_Click()

    Dim CDLG As Object, ADOX As Object, TableName As String, dbFile As String, strProvider As String, i
    Set CDLG = CreateObject("MSComDlg.CommonDialog") '控件提供一组标准的操作对话框，进行诸如打开和保存文件，设置打印选项，以及选择颜色和字体等操作。
    Set ADOX = CreateObject("ADOX.Catalog")  'Catalog它是ADOX的对象，包含数据源模式目录的集合
    With CDLG
        .DialogTitle = "查代EXCEL文件"
        .Filter = _
        "Excel File|*.xls"
        .ShowOpen
        dbFile = .Filename
    End With
    strProvider = "Driver={Microsoft Excel Driver (*.xls)}; DBQ=" & dbFile & ";"
    With ADOX
        .ActiveConnection = strProvider
        For i = 0 To .Tables.Count - 1   'Tables表示数据库表，包含列、索引和关键字
            TableName = .Tables(i).Name
            If Right$(TableName, 1) = "$" Then
              MsgBox "工作表名:" & Left$(TableName, Len(TableName) - 1)
            End If
        Next i
    End With
    Set CDLG = Nothing
    Set ADOX = Nothing

End Sub

zhaogang1960

楼主良好的愿望，坐等高人解答，帮顶一下

subp

不好意思，主要是我没看懂VBA，其实重要在这一句代码上，谢谢各位，问题已解决.
Set rs=objconn.OpenSchema(querytype,criteria,schemaid)

定义和用法 (此段内容取自w3school)
OpenSchema 方法可返回 Recordset 对象，该对象包含有关数据源的模式信息。举例，schema 信息可包括表的名称，表中的列名，每列的数据类型。Recordset 将以只读、静态游标模式打开。

LMY123

SQL提取工作表名称

ning84

chxw68 发表于 2015-4-23 22:22
搜一下就出来了，下面是zhaogang1960老师的代码。

不明白cnn.OpenSchema(20)，遍历Sheet不更简单吗？

chxw68

ning84 发表于 2023-4-18 06:04
不明白cnn.OpenSchema(20)，遍历Sheet不更简单吗？

这个问题得问楼主，他要求用SQL。