使用Excel OleDb在SHEET ORDER中获取工作表名称


103

我正在使用OleDb从具有很多工作表的excel工作簿中阅读。

我需要阅读工作表名称,但需要按照电子表格中定义的顺序进行操作;所以如果我有一个看起来像这样的文件;

|_____|_____|____|____|____|____|____|____|____|
|_____|_____|____|____|____|____|____|____|____|
|_____|_____|____|____|____|____|____|____|____|
\__GERMANY__/\__UK__/\__IRELAND__/

那我要拿字典

1="GERMANY", 
2="UK", 
3="IRELAND"

我尝试使用OleDbConnection.GetOleDbSchemaTable(),这会给我提供名称列表,但是会按字母顺序对它们进行排序。alpha排序表示我不知道特定名称对应的工作表编号。所以我得到了;

GERMANY, IRELAND, UK

更改了UK和的顺序IRELAND

我需要对它进行排序的原因是,我必须让用户按名称或索引选择数据范围。他们可以要求“从德国到爱尔兰的所有数据”或“从表1到表3的数据”。

任何想法将不胜感激。

如果我可以使用office互操作类,这将很简单。不幸的是,我不能,因为互操作类在非交互式环境(例如Windows服务和ASP.NET站点)中无法可靠地工作,因此我需要使用OLEDB。


您正在阅读什么版本的Excel文件?
yamen 2012年

30
哇你是怎么绘制和你是怎么有耐心绘制
升--''''''---------“”“”“”“”“”“”

4
@АртёмЦарионов-它们是表格的竖线(|)和下划线(_),以及制表符的正斜杠(\ /)行。将其复制到文本编辑器中,您将看到。
西德·霍兰德

Answers:



75

您是否可以仅从0到名称计数-1循环浏览?这样,您应该以正确的顺序获取它们。

编辑

通过评论,我注意到使用Interop类检索工作表名称存在很多问题。因此,以下是使用OLEDB检索它们的示例:

/// <summary>
/// This method retrieves the excel sheet names from 
/// an excel workbook.
/// </summary>
/// <param name="excelFile">The excel file.</param>
/// <returns>String[]</returns>
private String[] GetExcelSheetNames(string excelFile)
{
    OleDbConnection objConn = null;
    System.Data.DataTable dt = null;

    try
    {
        // Connection String. Change the excel file to the file you
        // will search.
        String connString = "Provider=Microsoft.Jet.OLEDB.4.0;" + 
          "Data Source=" + excelFile + ";Extended Properties=Excel 8.0;";
        // Create connection object by using the preceding connection string.
        objConn = new OleDbConnection(connString);
        // Open connection with the database.
        objConn.Open();
        // Get the data table containg the schema guid.
        dt = objConn.GetOleDbSchemaTable(OleDbSchemaGuid.Tables, null);

        if(dt == null)
        {
           return null;
        }

        String[] excelSheets = new String[dt.Rows.Count];
        int i = 0;

        // Add the sheet name to the string array.
        foreach(DataRow row in dt.Rows)
        {
           excelSheets[i] = row["TABLE_NAME"].ToString();
           i++;
        }

        // Loop through all of the sheets if you want too...
        for(int j=0; j < excelSheets.Length; j++)
        {
            // Query each excel sheet.
        }

        return excelSheets;
   }
   catch(Exception ex)
   {
       return null;
   }
   finally
   {
      // Clean up.
      if(objConn != null)
      {
          objConn.Close();
          objConn.Dispose();
      }
      if(dt != null)
      {
          dt.Dispose();
      }
   }
}

摘自CodeProject上的Article


我想看看那是代码!如何查询“第N张”和张数?
史蒂夫·库珀

13
嗨,詹姆斯。这几乎是我的原始问题-虽然GetOleDbSchemaTable()方法获取名称,但行号与工作簿表号不对应。因此,如果第4页在字母表中排在第一位,则它将是第0行。
史蒂夫·库珀

23
不回答张贴者的问题(他希望按Excel中出现的顺序进行回答)
Andrew White

7
@Samuel我认为它不能直接解决OP的问题,但是,它似乎可以帮助很多其他人解决类似的问题。
詹姆斯

1
无法解决OP的问题,这就是我要寻找的问题。(我总是发表拒绝投票的理由。)
Phil Nicholas

23

由于以上代码未涵盖提取Excel 2007的工作表名称列表的过程,因此以下代码也适用于Excel(97-2003)和Excel 2007:

public List<string> ListSheetInExcel(string filePath)
{
   OleDbConnectionStringBuilder sbConnection = new OleDbConnectionStringBuilder();
   String strExtendedProperties = String.Empty;
   sbConnection.DataSource = filePath;
   if (Path.GetExtension(filePath).Equals(".xls"))//for 97-03 Excel file
   {
      sbConnection.Provider = "Microsoft.Jet.OLEDB.4.0";
      strExtendedProperties = "Excel 8.0;HDR=Yes;IMEX=1";//HDR=ColumnHeader,IMEX=InterMixed
   }
   else if (Path.GetExtension(filePath).Equals(".xlsx"))  //for 2007 Excel file
   {
      sbConnection.Provider = "Microsoft.ACE.OLEDB.12.0";
      strExtendedProperties = "Excel 12.0;HDR=Yes;IMEX=1";
   }
   sbConnection.Add("Extended Properties",strExtendedProperties);
   List<string> listSheet = new List<string>();
   using (OleDbConnection conn = new OleDbConnection(sbConnection.ToString()))
   {
     conn.Open();
     DataTable dtSheet = conn.GetOleDbSchemaTable(OleDbSchemaGuid.Tables, null);         
     foreach (DataRow drSheet in dtSheet.Rows)
     {
        if (drSheet["TABLE_NAME"].ToString().Contains("$"))//checks whether row contains '_xlnm#_FilterDatabase' or sheet name(i.e. sheet name always ends with $ sign)
        {
             listSheet.Add(drSheet["TABLE_NAME"].ToString());
        } 
     }
  }
 return listSheet;
}

上面的函数返回两种Excel类型的表格(特别是Excel文件)(97,2003,2007)。


11
此代码不会在它们出现在Excel中的顺序返回表
安德鲁·怀特

10

这是简短,快速,安全且可用的...

public static List<string> ToExcelsSheetList(string excelFilePath)
{
    List<string> sheets = new List<string>();
    using (OleDbConnection connection = 
            new OleDbConnection((excelFilePath.TrimEnd().ToLower().EndsWith("x")) 
            ? "Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" + excelFilePath + "';" + "Extended Properties='Excel 12.0 Xml;HDR=YES;'"
            : "provider=Microsoft.Jet.OLEDB.4.0;Data Source='" + excelFilePath + "';Extended Properties=Excel 8.0;"))
    {
        connection.Open();
        DataTable dt = connection.GetOleDbSchemaTable(OleDbSchemaGuid.Tables, null);
        foreach (DataRow drSheet in dt.Rows)
            if (drSheet["TABLE_NAME"].ToString().Contains("$"))
            {
                string s = drSheet["TABLE_NAME"].ToString();
                sheets.Add(s.StartsWith("'")?s.Substring(1, s.Length - 3): s.Substring(0, s.Length - 1));
            }
        connection.Close();
    }
    return sheets;
}

开箱即用不起作用。exceladdress- 这是什么?
Michael Hutter

8

其他方式:

xls(x)文件只是存储在* .zip容器中的* .xml文件的集合。将文件“ app.xml”解压缩到docProps文件夹中。

<?xml version="1.0" encoding="UTF-8" standalone="true"?>
-<Properties xmlns:vt="http://schemas.openxmlformats.org/officeDocument/2006/docPropsVTypes" xmlns="http://schemas.openxmlformats.org/officeDocument/2006/extended-properties">
<TotalTime>0</TotalTime>
<Application>Microsoft Excel</Application>
<DocSecurity>0</DocSecurity>
<ScaleCrop>false</ScaleCrop>
-<HeadingPairs>
  -<vt:vector baseType="variant" size="2">
    -<vt:variant>
      <vt:lpstr>Arbeitsblätter</vt:lpstr>
    </vt:variant>
    -<vt:variant>
      <vt:i4>4</vt:i4>
    </vt:variant>
  </vt:vector>
</HeadingPairs>
-<TitlesOfParts>
  -<vt:vector baseType="lpstr" size="4">
    <vt:lpstr>Tabelle3</vt:lpstr>
    <vt:lpstr>Tabelle4</vt:lpstr>
    <vt:lpstr>Tabelle1</vt:lpstr>
    <vt:lpstr>Tabelle2</vt:lpstr>
  </vt:vector>
</TitlesOfParts>
<Company/>
<LinksUpToDate>false</LinksUpToDate>
<SharedDoc>false</SharedDoc>
<HyperlinksChanged>false</HyperlinksChanged>
<AppVersion>14.0300</AppVersion>
</Properties>

该文件是德语文件(Arbeitsblätter=工作表)。表名(Tabelle3等)的顺序正确。您只需要阅读这些标签;)

问候


1
这适用于xlsx文件,但不适用于xls文件。他们没有相同的结构。您知道如何从xls文件中提取相同的数据吗?
rdans 2014年

6

我使用@kraeppy(https://stackoverflow.com/a/19930386/2617732)答案中提供的信息创建了以下函数。这要求使用.net Framework v4.5,并且需要引用System.IO.Compression。这仅适用于xlsx文件,不适用于较早的xls文件。

    using System.IO.Compression;
    using System.Xml;
    using System.Xml.Linq;

    static IEnumerable<string> GetWorksheetNamesOrdered(string fileName)
    {
        //open the excel file
        using (FileStream data = new FileStream(fileName, FileMode.Open))
        {
            //unzip
            ZipArchive archive = new ZipArchive(data);

            //select the correct file from the archive
            ZipArchiveEntry appxmlFile = archive.Entries.SingleOrDefault(e => e.FullName == "docProps/app.xml");

            //read the xml
            XDocument xdoc = XDocument.Load(appxmlFile.Open());

            //find the titles element
            XElement titlesElement = xdoc.Descendants().Where(e => e.Name.LocalName == "TitlesOfParts").Single();

            //extract the worksheet names
            return titlesElement
                .Elements().Where(e => e.Name.LocalName == "vector").Single()
                .Elements().Where(e => e.Name.LocalName == "lpstr")
                .Select(e => e.Value);
        }
    }

2

我喜欢@deathApril的想法,将工作表命名为1_Germany,2_UK,3_IRELAND。我也遇到了您的问题,需要为数百张纸重新命名。如果您在重命名工作表名称时没有问题,则可以使用此宏为您完成。重命名所有工作表名称将花费不到几秒钟的时间。不幸的是,ODBC,OLEDB由asc返回工作表名称顺序。没有替代品。您必须使用COM或重命名您的名称才能按顺序排列。

Sub Macro1()
'
' Macro1 Macro
'

'
Dim i As Integer
For i = 1 To Sheets.Count
 Dim prefix As String
 prefix = i
 If Len(prefix) < 4 Then
  prefix = "000"
 ElseIf Len(prefix) < 3 Then
  prefix = "00"
 ElseIf Len(prefix) < 2 Then
  prefix = "0"
 End If
 Dim sheetName As String
 sheetName = Sheets(i).Name
 Dim names
 names = Split(sheetName, "-")
 If (UBound(names) > 0) And IsNumeric(names(0)) Then
  'do nothing
 Else
  Sheets(i).Name = prefix & i & "-" & Sheets(i).Name
 End If
Next

End Sub

更新:阅读@SidHoland关于BIFF的评论后,一个想法浮现了。以下步骤可以通过代码完成。不知道您是否真的想按相同的顺序获取工作表名称。让我知道您是否需要帮助才能通过代码完成此操作。

1. Consider XLSX as a zip file. Rename *.xlsx into *.zip
2. Unzip
3. Go to unzipped folder root and open /docprops/app.xml
4. This xml contains the sheet name in the same order of what you see.
5. Parse the xml and get the sheet names

更新:另一个解决方案-NPOI在这里可能会有所帮助 http://npoi.codeplex.com/

 FileStream file = new FileStream(@"yourexcelfilename", FileMode.Open, FileAccess.Read);

      HSSFWorkbook  hssfworkbook = new HSSFWorkbook(file);
        for (int i = 0; i < hssfworkbook.NumberOfSheets; i++)
        {
            Console.WriteLine(hssfworkbook.GetSheetName(i));
        }
        file.Close();

此解决方案适用于xls。我没有尝试xlsx。

谢谢,

埃森


1
你不具备重命名表或只使用COM,因为我的回答表明,你可以使用DAO。我认为可能还可以通过阅读BIFF来检索它们,但我仍在对此进行调查。
西德·荷兰

1
@SidHolland:DAO是一个COM组件。在Server 2008中使用COM组件是一个问题,因此Steve使用ADO.NET
Esen,

尽管必须将DAO添加为COM引用才能使用,但我的大脑并没有想过DAO是COM组件。感谢您的更正。您添加的内容(重命名为zip并阅读XML)是天才。我不知道那行得通。到目前为止,这是唯一一种无需使用COM即可按顺序显示工作表的方法。+1!
西德·荷兰

1

这对我有用。从这里偷来的:您如何获得excel工作簿首页的名称?

object opt = System.Reflection.Missing.Value;
Excel.Application app = new Microsoft.Office.Interop.Excel.Application();
Excel.Workbook workbook = app.Workbooks.Open(WorkBookToOpen,
                                         opt, opt, opt, opt, opt, opt, opt,
                                         opt, opt, opt, opt, opt, opt, opt);
Excel.Worksheet worksheet = workbook.Worksheets[1] as Microsoft.Office.Interop.Excel.Worksheet;
string firstSheetName = worksheet.Name;

2
你好 很高兴您有可用的代码,但是使用了Interop类,并且它们在服务器上无法可靠地工作;您不能在Windows Server 2008上运行此代码。因此,不能在Web应用程序或服务器端代码中使用它。这就是为什么我选择oledb而不是Interop的原因。
史蒂夫·库珀

1

试试这个。这是按顺序获取工作表名称的代码。

private Dictionary<int, string> GetExcelSheetNames(string fileName)
{
    Excel.Application _excel = null;
    Excel.Workbook _workBook = null;
    Dictionary<int, string> excelSheets = new Dictionary<int, string>();
    try
    {
        object missing = Type.Missing;
        object readOnly = true;
        Excel.XlFileFormat.xlWorkbookNormal
        _excel = new Excel.ApplicationClass();
        _excel.Visible = false;
        _workBook = _excel.Workbooks.Open(fileName, 0, readOnly, 5, missing,
            missing, true, Excel.XlPlatform.xlWindows, "\\t", false, false, 0, true, true, missing);
        if (_workBook != null)
        {
            int index = 0;
            foreach (Excel.Worksheet sheet in _workBook.Sheets)
            {
                // Can get sheet names in order they are in workbook
                excelSheets.Add(++index, sheet.Name);
            }
        }
    }
    catch (Exception e)
    {
        return null;
    }
    finally
    {
        if (_excel != null)
        {

            if (_workBook != null)
                _workBook.Close(false, Type.Missing, Type.Missing);
            _excel.Application.Quit();
        }
        _excel = null;
        _workBook = null;
    }
    return excelSheets;
}

Ist nicht malcompilierfähig!(Zeile Excel.XlFileFormat.xlWorkbookNormal
Michael Hutter

0

根据MSDN,对于Excel内的电子表格,它可能无法正常工作,因为Excel文件不是真实的数据库。因此,您将无法在工作簿中按工作表的可视化顺序获取工作表名称。

使用互操作根据表的外观获取代码名称:

添加对Microsoft Excel 12.0对象库的引用。

下面的代码将按工作簿中存储的实际顺序给出工作表名称,而不是排序后的名称。

样例代码:

using Microsoft.Office.Interop.Excel;

string filename = "C:\\romil.xlsx";

object missing = System.Reflection.Missing.Value;

Microsoft.Office.Interop.Excel.Application excel = new Microsoft.Office.Interop.Excel.Application();

Microsoft.Office.Interop.Excel.Workbook wb =excel.Workbooks.Open(filename,  missing,  missing,  missing,  missing,missing,  missing,  missing,  missing,  missing,  missing,  missing,  missing,  missing,  missing);

ArrayList sheetname = new ArrayList();

foreach (Microsoft.Office.Interop.Excel.Worksheet  sheet in wb.Sheets)
{
    sheetname.Add(sheet.Name);
}

0

我看不到任何文档说app.xml中的顺序保证是图纸的顺序。它可能是,但不是按照OOXML规范。

另一方面,workbook.xml文件包含sheetId属性,该属性确定顺序-从1到工作表的数量。这是根据OOXML规范。workbook.xml被描述为保留图纸顺序的地方。

因此,建议从XLSX中提取workbook.xml后再阅读。不是app.xml。代替docProps / app.xml,使用xl / workbook.xml并查看元素,如下所示-

`

<workbook xmlns="http://schemas.openxmlformats.org/spreadsheetml/2006/main" xmlns:r="http://schemas.openxmlformats.org/officeDocument/2006/relationships">
  <fileVersion appName="xl" lastEdited="5" lowestEdited="5" rupBuild="9303" /> 
  <workbookPr defaultThemeVersion="124226" /> 
- <bookViews>
  <workbookView xWindow="120" yWindow="135" windowWidth="19035" windowHeight="8445" /> 
  </bookViews>
- <sheets>
  <sheet name="By song" sheetId="1" r:id="rId1" /> 
  <sheet name="By actors" sheetId="2" r:id="rId2" /> 
  <sheet name="By pit" sheetId="3" r:id="rId3" /> 
  </sheets>
- <definedNames>
  <definedName name="_xlnm._FilterDatabase" localSheetId="0" hidden="1">'By song'!$A$1:$O$59</definedName> 
  </definedNames>
  <calcPr calcId="145621" /> 
  </workbook>

`

By using our site, you acknowledge that you have read and understand our Cookie Policy and Privacy Policy.
Licensed under cc by-sa 3.0 with attribution required.