无法使用GetOleSchemaTable（）获得工作表名称
||
我正在使用一些代码，这些代码使用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$\"
schemaTable.Rows[0][\"TABLE_NAME\"].ToString()
没有找到相关结果
已邀请:
2 个回复
稍惮
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 FunctionDim 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吞睫素
，并抓取所有工作表名称来自“ 5”节点。