將數據表導出到Excel文件（.XLSX）

Question

我使用此代碼將數據表導出到Excel文件（.xlsx）

Dim attachment As String = "attachment; filename=Excel.xlsx"
    Response.ClearContent()
    Response.AddHeader("content-disposition", attachment)
    Response.ContentType = "application/vnd.ms-excel"
    Dim tab As String = ""
    For Each dc As DataColumn In dt.Columns
        Response.Write(tab + dc.ColumnName)
        tab = vbTab
    Next
    Response.Write(vbLf)

    Dim i As Integer
    For Each dr As DataRow In dt.Rows
        tab = ""
        For i = 0 To dt.Columns.Count - 1
            Response.Write(tab & dr(i).ToString())
            tab = vbTab
        Next
        Response.Write(vbLf)
    Next
    Response.End()

當我下載文件時，我收到此消息：

“ Excel無法打開文件'Excel.xlsx'，因為文件格式或文件擴展名無效”

我使用Excel 2010

任何想法為什么？！

Answer 1

您正在創建TSV-制表符分隔的值。 而是.xlsx嘗試使用.tsv

Answer 2

如果要導出為ex​​cel，也許可以通過第三方lib NPOI來制作excel對象。