无法使用 GetOleSchemaTable() 获取工作表名称

Question

我正在处理一些使用 OleDbConnection 将数据从 Excel 文件加载到 DataTable 的代码。目前它默认为第一个工作表，但使用以下代码获取它的名称：

string connectionString = @"Provider=Microsoft.ACE.OLEDB.12.0;Data Source=myFilename.xlsx;Extended Properties=""Excel 12.0 Xml;HDR=YES"""

DataTable = connection.GetOleDbSchemaTable(OleDbSchemaGuid.Tables, null);
if (schemaTable.Rows.Count > 0)
    return schemaTable.Rows[0]["TABLE_NAME"].ToString();
else
    return "Sheet1$"

直到最近 Excel 文档（我们从第三方接收）开始包含命名范围时，它一直工作正常。我找不到任何隐藏的床单。

现在

schemaTable.Rows[0]["TABLE_NAME"].ToString()

返回第一个范围的名称。

我可以对 schemaTable 对象做一些不同的事情来仅标识工作表而不是工作表中的命名范围吗？

Answer 1

是否必须使用 OleDbConnection 或者您可以切换到其他选项（例如 DAO）？

替代解决方案 1：使用互操作：

    Private Function GetSheetNames(ByVal path As String)
    Dim lst As New List(Of String)
    'Note: this will not work for Excel 2007 (.xlsx) workbooks.
    If IO.File.Exists(path) AndAlso IO.Path.GetExtension(path) = ".xls" Then
    Dim app As New Excel.Application
    Dim WB As Excel.Workbook
    Try
       WB = app.Workbooks.Open(Filename:=path)
       If WB IsNot Nothing Then
         For Each ws As Excel.Worksheet In WB.Sheets
           lst.Add(ws.Name)
         Next
         WB.Close()
         System.Runtime.InteropServices.Marshal.ReleaseComObject(WB)
         WB = Nothing
       End If
    Catch ex As Exception
       MessageBox.Show(ex.Message)
    Finally
       System.Runtime.InteropServices.Marshal.ReleaseComObject(app)
       app = Nothing
    End Try
     End If
     Return lst
End Function

来源：http://social.msdn.microsoft.com/Forums/en-US/vbgeneral/thread/21d3f77c-1d3d-44e0-9bd5-eca45a0affa6

替代解决方案 2：使用 DAO ：

Dim dao_dbE As dao.DBEngine
Dim dao_DB As dao.Database
dao_dbE = New dao.DBEngine
Dim sheetsNames As List(Of String) = New List(Of String)()
dao_DB = dao_dbE.OpenDatabase(completeFileName, False, True, "Excel 8.0;")
For i As Integer = 0 To dao_DB.TableDefs.Count - 1
    sheetsNames.Add(dao_DB.TableDefs(i).Name)
Next

Answer 2

正如@Heinzi 所悲伤的那样，您应该调查返回元数据的其他属性，这是唯一的方法。最有可能的范围将与工作表在某些属性值上有所不同。

更新：
由于此解决方案不起作用，并且如果文件采用 XSLX 格式，我认为最快、最简单的解决方案就是深入到原始 xml（记住 XLSX 只是 ZIP）myFilename.xlsx/xl/workbook.xml< /code> 使用 #ZipLib 并从中获取所有工作表名称 节点。