comment obtenir des feuilles de nom à partir d'excel 2007 (*.xlsx) à l'aide de vb.net ou c#

J'essaie d'obtenir des feuilles de nom à partir d'un fichier excel à l'aide de vb.net et de leur montrer dans la zone de texte. J'ai été essayer avec ce code:

Imports Microsoft.Office.Interop
Private Sub GetSheetsName
Dim efa As New Excel.Application
Dim ewb As Excel.Workbook
Dim ews As Excel.Worksheet
Dim fileName as string
fileName="D:\test.xls"
ewb = efa.Workbooks.Open(fileName)
For Each ews In ewb.Worksheets
   ExcelSheetName += ews.Name & vbNewLine
Next ews
TextBox1.text=ExcelSheetName
end sub

Que le code était un travail pour les fichiers excel *.xls, dans la zone de texte afficher les Feuilles de Nom de fichier test.xls

Sheet1
Sheet2
Sheet3

Mais quand j'ai essayer avec excel 2007 (*.xlsx), puis afficher un message d'erreur comme ceci.
comment obtenir des feuilles de nom à partir d'excel 2007 (*.xlsx) à l'aide de vb.net ou c#

Que dois-je faire? Pouvez-vous m'aider s'il vous plaît.

OriginalL'auteur Fauzi88 | 2012-11-29

  1. 10

    Essayez ce code:

    Private Sub GetExcelSheetNames(ByVal fileName As String)
    Dim strconn As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & 
          fileName & ";Extended Properties=""Excel 12.0 Xml;HDR=YES"";"
    Dim conn As New OleDbConnection(strconn)

    conn.Open()

    Dim dtSheets As DataTable = 
              conn.GetOleDbSchemaTable(OleDbSchemaGuid.Tables, Nothing)
    Dim listSheet As New List(Of String)
    Dim drSheet As DataRow

    For Each drSheet In dtSheets.Rows
        listSheet.Add(drSheet("TABLE_NAME").ToString())
    Next

    //show sheetname in textbox where multiline is true
    For Each sheet As String In listSheet
        TextBox1.Text = TextBox1.Text & sheet & vbNewLine
    Next

    conn.Close()

End Sub
    Je vais essayer ce code...
    ce code a été travail, merci à vous
    Ce code fonctionne. Mais encore prend du temps si le fichier excel a un grand nombre de lignes >60000. Est-il possible d'obtenir les noms de feuilles rapidement

    OriginalL'auteur JokoSumanto

  2. 0

    Une excellente bibliothèque pour gérer les fichiers xlsx est EPPlus.

    voici un exemple de code:

    var existingFile = new FileInfo(path);
var sheets = new List<string>();
using (var package = new ExcelPackage(existingFile))
{
    sheets.AddRange(from worksheet in package.Workbook.Worksheets where worksheet.Dimension != null select worksheet.Name);
}

    vous pouvez le trouver ici: http://epplus.codeplex.com/

    Je vais essayer ce code.

    OriginalL'auteur Thomas C

  3. 0

    essayez d'utiliser 

    For Each ews In ewb.Sheets
   ExcelSheetName += ews.Name & vbNewLine
Next ews
    encore une erreur,

    OriginalL'auteur Jayant Varshney