Comment récupérer des noms d'onglet à partir d'une feuille Excel en utilisant OpenXML

J'ai un document de feuille de calcul qui a 182 colonnes. J'ai besoin de placer les données de feuille de calcul dans une table de données, onglet par onglet, mais j'ai besoin de savoir que je suis en ajoutant les données de chaque onglet, quel est le nom de l'onglet, et ajouter le nom de l'onglet à une colonne dans la table de données.

C'est la façon dont j'ai créé la table de données.

J'ai ensuite une boucle dans le classeur et de forage vers le bas pour le sheetData objet et de marcher à travers chaque ligne et chaque colonne, l'obtention de données de la cellule.

DataTable dt = new DataTable();
for (int i = 0; i <= col.GetUpperBound(0); i++)
{
    try
    {
        dt.Columns.Add(new DataColumn(col[i].ToString(), typeof(string)));
    }
    catch (Exception e)
    {
        MessageBox.Show("Uploader  Error" + e.ToString());
        return null;
    }
}

dt.Columns.Add(new DataColumn("SheetName", typeof(string)));

Toutefois, à la fin de la chaîne de tableau que j'utilise pour le Tableau de Données, j'ai besoin d'ajouter le nom de l'onglet. Comment puis-je connaître le nom de l'onglet que je suis en boucle dans la feuille Open XML?

Voici mon code pour l'instant:

using (SpreadsheetDocument spreadSheetDocument = 
           SpreadsheetDocument.Open(Destination, false))
{
    WorkbookPart workbookPart = spreadSheetDocument.WorkbookPart;
    Workbook workbook = spreadSheetDocument.WorkbookPart.Workbook;

    Sheets sheets = 
        spreadSheetDocument
            .WorkbookPart
            .Workbook
            .GetFirstChild<DocumentFormat.OpenXml.Spreadsheet.Sheets>();

    OpenXmlElementList list = sheets.ChildElements;

    foreach (WorksheetPart worksheetpart in workbook.WorkbookPart.WorksheetParts)
    {
        Worksheet worksheet = worksheetpart.Worksheet;

        foreach (SheetData sheetData in worksheet.Elements<SheetData>())
        {
            foreach (Row row in sheetData.Elements())
            {
                string[] thisarr = new string[183];
                int index = 0;
                foreach (Cell cell in row.Elements())
                {
                    thisarr[(index)] = GetCellValue(spreadSheetDocument, cell);
                    index++;
                }
                thisarr[182] = ""; //need to add tabname here
                if (thisarr[0].ToString() != "")
                {
                    dt.Rows.Add(thisarr);
                }
            }
        }
    }
}

return dt;

Juste une remarque: je l'ai fait précédemment obtenir les noms des onglets de la propriété InnerXML de "la liste" dans

OpenXmlElementList list = sheets.ChildElements;

cependant, j'ai remarqué que je suis en boucle dans la feuille de calcul, il n'obtient pas les noms des onglets dans le bon ordre.

source d'informationauteur Kwalke001

.net c#excel openxml openxml-sdk

La feuille les noms sont stockés dans le WorkbookPart dans un Sheets élément qui a des enfants de l'élément Sheet qui correspond à chaque feuille de calcul dans le fichier Excel. Tout ce que vous avez à faire est de saisir le bon indice de ce Sheets élément et qui sera le Sheet vous êtes dans votre boucle. J'ai ajouté un extrait de code ci-dessous pour faire ce que vous voulez.

int sheetIndex = 0;
foreach (WorksheetPart worksheetpart in workbook.WorkbookPart.WorksheetParts)
{                     
    Worksheet worksheet = worksheetpart.Worksheet;

    //Grab the sheet name each time through your loop
    string sheetName = workbookPart.Workbook.Descendants<Sheet>().ElementAt(sheetIndex).Name;

    foreach (SheetData sheetData in worksheet.Elements<SheetData>())
    {

       ...
    }
    sheetIndex++;
}

Ici est une pratique méthode d'assistance pour obtenir la Fiche correspondant à un WorksheetPart:

public static Sheet GetSheetFromWorkSheet
    (WorkbookPart workbookPart, WorksheetPart worksheetPart)
{
    string relationshipId = workbookPart.GetIdOfPart(worksheetPart);
    IEnumerable<Sheet> sheets = workbookPart.Workbook.Sheets.Elements<Sheet>();
    return sheets.FirstOrDefault(s => s.Id.HasValue && s.Id.Value == relationshipId);
}

Ensuite, vous pouvez obtenir le nom à partir de feuilles de Nom de la propriété:

Sheet sheet = GetSheetFromWorkSheet(myWorkbookPart, myWorksheetPart);
string sheetName = sheet.Name;

...ce sera le "nom de l'onglet" OP visée.

Pour l'enregistrement à l'opposé de la méthode ressemblerait à:

public static Worksheet GetWorkSheetFromSheet(WorkbookPart workbookPart, Sheet sheet)
{
    var worksheetPart = (WorksheetPart)workbookPart.GetPartById(sheet.Id);
    return worksheetPart.Worksheet;
}

...et avec qui nous pouvons également ajouter la méthode suivante:

public static IEnumerable<KeyValuePair<string, Worksheet>> GetNamedWorksheets
    (WorkbookPart workbookPart)
{
    return workbookPart.Workbook.Sheets.Elements<Sheet>()
        .Select(sheet => new KeyValuePair<string, Worksheet>
            (sheet.Name, GetWorkSheetFromSheet(workbookPart, sheet)));
}

Maintenant, vous pouvez facilement énumérer toutes les Feuilles de calcul, y compris leur nom.

Jeter le tout dans un dictionnaire pour le nom de la base de recherche si vous préférez que:

IDictionary<string, WorkSheet> wsDict = GetNamedWorksheets(myWorkbookPart)
    .ToDictionary(kvp => kvp.Key, kvp => kvp.Value);

...ou si vous souhaitez simplement une fiche spécifique par nom:

public static Sheet GetSheetFromName(WorkbookPart workbookPart, string sheetName)
{
    return workbookPart.Workbook.Sheets.Elements<Sheet>()
        .FirstOrDefault(s => s.Name.HasValue && s.Name.Value == sheetName);
}

(Alors appel GetWorkSheetFromSheet correspondant à l'Feuille de calcul.)

    Using spreadsheetDocument As SpreadsheetDocument = spreadsheetDocument.Open("D:\Libro1.xlsx", True)

        Dim workbookPart As WorkbookPart = spreadsheetDocument.WorkbookPart

        workbookPart.Workbook.Descendants(Of Sheet)()



        Dim worksheetPart As WorksheetPart = workbookPart.WorksheetParts.Last
        Dim text As String



        For Each Sheet As Sheet In spreadsheetDocument.WorkbookPart.Workbook.Sheets
            Dim sName As String = Sheet.Name
            Dim sID As String = Sheet.Id

            Dim part As WorksheetPart = workbookPart.GetPartById(sID)
            Dim actualSheet As Worksheet = part.Worksheet

            Dim sheetData As SheetData = part.Worksheet.Elements(Of SheetData)().First

            For Each r As Row In sheetData.Elements(Of Row)()
                For Each c As Cell In r.Elements(Of Cell)()
                    text = c.CellValue.Text
                    Console.Write(text & " ")
                Next
            Next
        Next

    End Using

    Console.Read()

0
```
worksheet.GetAttribute("name","").Value
```

Vous devez vous connecter pour publier un commentaire.