DataTable to File

Question

Sub DataTable2CSV(ByVal table As DataTable, ByVal filename As String) 
DataTable2CSV(table, filename, vbTab) 
End Sub 

Sub DataTable2CSV(ByVal table As DataTable, ByVal filename As String, _ 
ByVal sepChar As String) 
Dim writer As System.IO.StreamWriter 
Try 
    writer = New System.IO.StreamWriter(filename) 

    ' first write a line with the columns name 
    Dim sep As String = "" 
    Dim builder As New System.Text.StringBuilder 
    For Each col As DataColumn In table.Columns 
     builder.Append(sep).Append(col.ColumnName) 
     sep = sepChar 
    Next 
    writer.WriteLine(builder.ToString()) 

    ' then write all the rows 
    For Each row As DataRow In table.Rows 
     sep = "" 
     builder = New System.Text.StringBuilder 

     For Each col As DataColumn In table.Columns 
      builder.Append(sep).Append(row(col.ColumnName)) 
      sep = sepChar 
     Next 
     writer.WriteLine(builder.ToString()) 
    Next 
Finally 
    If Not writer Is Nothing Then writer.Close() 
End Try 
End Sub 

在搜索「DataTable to File VB.net」後，我在網上找到了這段代碼。我想要做的是在文件流中輸出它，是否可以設置響應輸出流？由於

編輯：爲了澄清（更改了）這裏就是我與現在的工作：

Protected Sub DoExportFinancials() 
    Dim ef As New ExportFinancials() 
    ef.Behavior = ExportFinancials.ObjectBehavior.Export 
    If ef.Load() = True Then 

     Me.GridView4.DataSource = ef.DT 
     Me.GridView4.DataBind() 

     Response.ContentType = "application/vnd.openxmlformats-officedocument.spreadsheetml.sheet" 
     Response.AddHeader("content-disposition", "attachment;filename=FileName.xls") 
     ' Response.Charset = "" 
     'Response.Cache.SetCacheability(HttpCacheability.NoCache) 
     Dim stringWrite As StringWriter = New StringWriter 
     Dim htmlWrite As HtmlTextWriter = New HtmlTextWriter(stringWrite) 
     GridView4.RenderControl(htmlWrite) 
     Response.Write(stringWrite.ToString()) 
     Response.End() 

    End If 

Answer 1

下面應該工作，

Dim FilePath As String = serverPath & "\App_Data\" & FileName 
    Response.Clear() 
    Response.ContentType = "text/csv" 
    Response.AddHeader("Content-Disposition", "attachment; filename=" & FileName) 
    Response.TransmitFile(FilePath) 
    Response.End() 

編輯：基於問題的更多細節， [更改]：如何將DataTable作爲CSV/Excel文件傳遞給響應流，而無需將其寫入服務器上的磁盤。上述完成的

的一種方法是首先要綁定的DataTable到GridView，然後GridView控件的內容，可以使用下面的傳遞到響應流，

Response.ContentType = "application/vnd.openxmlformats-officedocument.spreadsheetml.sheet" 
Response.AddHeader("content-disposition", "attachment;filename=FileName.xls") 
Response.Charset = "" Response.Cache.SetCacheability(HttpCacheability.NoCache) 
Dim stringWrite As StringWriter = New StringWriter 
Dim htmlWrite As HtmlTextWriter = New HtmlTextWriter(stringWrite) 
grid.RenderControl(htmlWrite) Response.Write(stringWrite.ToString()) 
Response.End()