將數據集導出到多個Excel工作表並使用asp.net C＃下載到一個zip文件中

Question

嗨，如何將DataSet導出到多個Excel工作表並將這些文件下載到C＃asp.net中的zip文件中？

Answer 1

堆棧溢出已經對此進行了詳細介紹。 首先，要創建您的Excel電子表格，請查看以下上一篇文章：

• 從C＃創建Excel（.XLS和.XLSX）文件

在壓縮文件的旁邊，檢查以下出色的答案：

• 如何在C＃中僅使用.NET API壓縮多個文件
• 使用PKZIP壓縮文件的C＃.net代碼
• 使用7zip壓縮文件的示例C＃.net代碼
• 這里有更多潛在答案

如果要自動將其流回用戶，請嘗試以下答案：

• 從流中創建Zip文件並下載
• 需要幫助：zip文件流
• 如何通過單擊asp.net中的圖像按鈕來流式處理zip文件？
• ASP.NET將所有文件下載為Zip

Answer 2

私有子CopySheet（）Dim cmd作為OleDbCommand Dim dt作為字符串Dim ds作為DataSet = New DataSet（）Dim connString As String =“ Provider = Microsoft.Jet.OLEDB.4.0; Data Source = E：\\ EXCEL \\ From.xls;擴展的屬性= Excel 8.0“ Dim oledbConn作為OleDbConnection =新的OleDbConnection（connString）嘗試oledbConn.Open（）對於i = 0到1如果i = 0則cmd = New OleDbCommand（” SELECT * FROM [Sheet1 $]“，oledbConn） dt =“ Sheet3”其他cmd =新OleDbCommand（“ SELECT * FROM [Sheet2 $]”，oledbConn）dt =“ Sheet4”如果Dim oleda為OleDbDataAdapter = New OleDbDataAdapter（）則結束oleda.SelectCommand = cmd oleda.Fill（ds， dt）接下來

        ExportDatasetToExcel(ds, "dd")
    Catch
    Finally
        oledbConn.Close()
    End Try
End Sub

Public Sub ExportDatasetToExcel(ByVal ds As DataSet, ByVal strExcelFile As String)

    Dim conn As New OleDbConnection(String.Format("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\EXCEL\To.xls;Extended Properties=Excel 8.0"))
    conn.Open()
    Dim strTableQ(ds.Tables.Count) As String
    Dim i As Integer = 0
    'making table query
    For i = 0 To ds.Tables.Count - 1
        strTableQ(i) = "CREATE TABLE [" & ds.Tables(i).TableName & "]("
        Dim j As Integer = 0
        For j = 0 To ds.Tables(i).Columns.Count - 1
            Dim dCol As DataColumn
            dCol = ds.Tables(i).Columns(j)
            strTableQ(i) &= " [" & dCol.ColumnName & "] varchar(255) , "
        Next
        strTableQ(i) = strTableQ(i).Substring(0, strTableQ(i).Length - 2)
        strTableQ(i) &= ")"
        Dim cmd As New OleDbCommand(strTableQ(i), conn)
        cmd.ExecuteNonQuery()
    Next
    'making insert query
    Dim strInsertQ(ds.Tables.Count - 1) As String
    For i = 0 To ds.Tables.Count - 1
        strInsertQ(i) = "Insert Into " & ds.Tables(i).TableName & " Values ("
        For k As Integer = 0 To ds.Tables(i).Columns.Count - 1
            strInsertQ(i) &= "@" & ds.Tables(i).Columns(k).ColumnName & " , "
        Next
        strInsertQ(i) = strInsertQ(i).Substring(0, strInsertQ(i).Length - 2)
        strInsertQ(i) &= ")"
    Next
    'Now inserting data
    For i = 0 To ds.Tables.Count - 1
        For j As Integer = 0 To ds.Tables(i).Rows.Count - 1
            Dim cmd As New OleDbCommand(strInsertQ(i), conn)
            For k As Integer = 0 To ds.Tables(i).Columns.Count - 1
                cmd.Parameters.AddWithValue("@" & ds.Tables(i).Columns(k).ColumnName.ToString(), ds.Tables(i).Rows(j)(k).ToString())
            Next
            cmd.ExecuteNonQuery()
            cmd.Parameters.Clear()
        Next
    Next

    conn.Close()
End Sub

Answer 3

NPoi用於導出， DotNetZip庫用於壓縮它。