ADO查询怎样得到EXCEL表名

最新推荐文章于 2023-10-07 19:01:57 发布

原创最新推荐文章于 2023-10-07 19:01:57 发布 · 2.4k 阅读

2 ·

CC 4.0 BY-SA版权

文章标签：

#excel #dataset #string #properties #function #file

ASP.NET 专栏收录该内容

6 篇文章

订阅专栏

博客介绍采用ADO查询EXCEL时，需先确定表名，一般首个表名为“sheet1”，若有例外需先获取表名，否则会报错。还给出了获取表名并查询数据的程序代码，可返回包含查询结果的DataSet。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

采用ADO查询EXCEL，需要知道表名，一般EXCEL的第一个表名为“sheet1”，如果有例外，就需要先得到表名，否则会报错。程序如下：（其中参量file为服务器中excel文件的全路径名）

Function CreateDataSource(ByVal file As String)
        Dim strConn As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + file + ";" + "Extended Properties=Excel 8.0;"
        Dim conn As OleDbConnection = New OleDbConnection(strConn)
        Dim tablename As String = "Sheet1$"

        conn.Open()
        Dim dt As DataTable = conn.GetOleDbSchemaTable(OleDbSchemaGuid.Tables, Nothing)
        tablename = dt.Rows(0)(2).ToString()
        conn.Close()

        Dim myCommand As OleDbDataAdapter = New OleDbDataAdapter("SELECT * FROM [" + tablename + "]", strConn)
        Dim myDataSet As DataSet = New DataSet
        myCommand.Fill(myDataSet)
        Return myDataSet
    End Function