Asp.net 在vb.net中将数据导出到excel

Asp.net 在vb.net中将数据导出到excel,asp.net,vb.net,export-to-excel,Asp.net,Vb.net,Export To Excel,我无法将数据导出到excel中。 我尝试过S/O的建议,但没有任何运气 Dim sqlString As String = "spExportRateProfile" & Session("OfficeNumber") & "," & Session("SalesRepID") Dim conn As SqlConnection = New SqlConnection(Utils.GetConfigKey("ConnectionString

我无法将数据导出到excel中。
我尝试过S/O的建议,但没有任何运气

        Dim sqlString As String = "spExportRateProfile" & Session("OfficeNumber") & "," & Session("SalesRepID")
        Dim conn As SqlConnection = New SqlConnection(Utils.GetConfigKey("ConnectionStringVimas"))
        conn.Open()
        Dim dt As DataTable = New DataTable()
        Dim da As SqlDataAdapter = New SqlDataAdapter(sqlString, conn)
        da.Fill(dt)

        Response.AddHeader("content-disposition", "attachment;filename=ReportExport.xlsx")
        Response.ContentType = "application/vnd.ms-excel"  

在此之后,我需要做什么才能将数据导出到excel?

一旦您有了数据表
dt
,您就应该这样做(C#-刚刚从Internet复制)

这里是类
exportxmlcv
的方法
ToCSV
(C#-刚刚从互联网上复制)


刚刚从这里复制的所有内容:您应该可以进行一些转换练习C#->VB.NET;-)

一旦你有了数据表
dt
在这里,你应该这样做(C#-刚刚从互联网上复制)

这里是类
exportxmlcv
的方法
ToCSV
(C#-刚刚从互联网上复制)


刚刚从这里复制的所有内容:您应该可以进行一些转换练习C#->VB.NET;-)

您可以使用类似(GPL)的ExcelLibrary,我可以热情推荐

然后,从DataTable创建Excel文件并将其写入响应就很容易了:

Dim pck = New ExcelPackage()
Dim ws = pck.Workbook.Worksheets.Add("Worksheet-Name")
ws.Cells("A1").LoadFromDataTable(dt, True, OfficeOpenXml.Table.TableStyles.Medium1)
Response.Clear()
Response.ContentType = "application/vnd.openxmlformats-officedocument.spreadsheetml.sheet"
Response.AddHeader("content-disposition", "attachment;  filename=ExcelFileName.xlsx")
Response.BinaryWrite(pck.GetAsByteArray())

这里是另一个例子:

您可以使用类似(GPL)的ExcelLibrary,我可以热情推荐它

然后,从DataTable创建Excel文件并将其写入响应就很容易了:

Dim pck = New ExcelPackage()
Dim ws = pck.Workbook.Worksheets.Add("Worksheet-Name")
ws.Cells("A1").LoadFromDataTable(dt, True, OfficeOpenXml.Table.TableStyles.Medium1)
Response.Clear()
Response.ContentType = "application/vnd.openxmlformats-officedocument.spreadsheetml.sheet"
Response.AddHeader("content-disposition", "attachment;  filename=ExcelFileName.xlsx")
Response.BinaryWrite(pck.GetAsByteArray())

下面是另一个示例:

使用ExcelLibrary尝试此链接:使用ExcelLibrary尝试此链接:
Dim pck = New ExcelPackage()
Dim ws = pck.Workbook.Worksheets.Add("Worksheet-Name")
ws.Cells("A1").LoadFromDataTable(dt, True, OfficeOpenXml.Table.TableStyles.Medium1)
Response.Clear()
Response.ContentType = "application/vnd.openxmlformats-officedocument.spreadsheetml.sheet"
Response.AddHeader("content-disposition", "attachment;  filename=ExcelFileName.xlsx")
Response.BinaryWrite(pck.GetAsByteArray())