如何從excel 2007（* .xlsx）使用vb.net或c獲取工作表名稱

Question

我嘗試使用vb.net從文件excel中獲取工作表名稱並將它們顯示到文本框中。我使用此代碼嘗試：

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 

該代碼是爲檔案工作出色的* .xls，在文本框中顯示錶從文件TEST.XLS名稱

Sheet1 
Sheet2 
Sheet3 

但是當我嘗試用2007的Excel（ * .xlsx），然後顯示像這樣的錯誤消息。

我該怎麼辦？你能幫我嗎。

Answer 1

試試這個代碼：

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 

Answer 2

處理xlsx文件的優秀庫是EPPlus。

這裏是一個示例代碼：

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); 
} 

，你可以在這裏找到：http://epplus.codeplex.com/

Answer 3

嘗試使用

For Each ews In ewb.Sheets 
    ExcelSheetName += ews.Name & vbNewLine 
Next ews