从.csv文件转换为.xlsx excel文件

嗨我正在使用ASP.NET应用程序并在Excel页面中以.csv扩展名生成报告。不过，我想用.xlsx etension生成它。我目前正在使用的代码如下：保护小组btnSubmit_Click（BYVAL发件人为对象，BYVALË作为EventArgs的）把手btnSubmit.Click从.csv文件转换为.xlsx excel文件

Dim sql As String 
    Dim strLine As String = "" 
    Dim attachment As String = "attachment; filename=PTW.csv" 

    m_sBranch = ddlBranches.SelectedValue 
    m_sRegion = ddlAreas.SelectedValue 

    Dim cnn As SqlConnection = New SqlConnection("Server=XYZ;Database=abc;Trusted_Connection=yes;") 

    HttpContext.Current.Response.AddHeader("content-disposition", attachment) 
    HttpContext.Current.Response.ContentType = "text/csv" 

    cnn.Open() 

    sql = GetReportSql(m_sBranch, m_sRegion) 

    Dim cmd As SqlCommand = New SqlCommand(sql, cnn) 
    Dim dr As SqlDataReader 
    dr = cmd.ExecuteReader() 

    HttpContext.Current.Response.Write("PTW JOBS - EXPORTED ON " + DateTime.Now) 

    For i = 0 To dr.FieldCount - 1 
     strLine = strLine & dr.GetName(i).ToString & "," 
    Next 
    HttpContext.Current.Response.Write(strLine) 

    Dim sb As StringBuilder = New StringBuilder() 
    Dim temp As String = "" 
    While dr.Read() 
     For i = 0 To dr.FieldCount - 1 
      temp = temp & dr.GetValue(i) 
      temp = temp.Replace(",", " ") 
      sb.Append(temp & ",") 
      temp = "" 
     Next 
     sb.AppendLine() 
     strLine = ""        
    End While 

    HttpContext.Current.Response.Write(sb.ToString()) 

End Sub

任何帮助将高度赞赏。谢谢。

来源

2011-02-25 Shariful

查看内容标题列表。有xslx的文档类型。另一个选择，因为你似乎与Excel 2007或更高版本一起工作是看看openxml格式。自从我使用任何打开的XML之后已经过去了几个月，但是一旦你开始使用，它就变得非常简单，并且你将能够生成正确的Excel 2007文档。如果您不知道此更改为.zip的xlsx文件扩展名，并且您将能够打开包含组成xslx – Andrew 2011-02-25 14:09:29

看看OpenXML SDK：据我所知，我的示例不会转换.csv文件，但它会引导您朝着正确的方向前进。 http://msdn.microsoft.com/en-us/library/bb448854(office.14).aspx

我用它在asp.net到动态创建的xlsx文件，直接传输到Web客户端：

public static System.IO.MemoryStream ConvertToExcel(DataSet ds) 
     { 
      System.IO.MemoryStream stream = new System.IO.MemoryStream(); 
      using (SpreadsheetDocument package = SpreadsheetDocument.Create(stream, SpreadsheetDocumentType.Workbook, true)) 
      { 
       package.AddWorkbookPart(); 
       package.WorkbookPart.Workbook = new Workbook(); 
       package.WorkbookPart.AddNewPart<WorksheetPart>(); 

       if (ds.Tables.Count > 0 && ds.Tables[0].Rows.Count > 0) 
       { 
        DataTable tbl = ds.Tables[0]; 
        SheetData xlSheetData = new SheetData(); 
        foreach (DataRow row in tbl.Rows) 
        { 
         Row xlRow = new Row(); 
         foreach (DataColumn col in tbl.Columns) 
         { 
          object cellData = row[col]; 
          Cell xlCell = null; 
          if (cellData != null) 
          { 
           xlCell = new Cell(new InlineString(new DocumentFormat.OpenXml.Spreadsheet.Text(cellData.ToString()))) { DataType = CellValues.InlineString }; 
          } 
          else 
          { 
           xlCell = new Cell(new InlineString(new DocumentFormat.OpenXml.Spreadsheet.Text(String.Empty))) { DataType = CellValues.InlineString }; 
          } 
          xlRow.Append(xlCell); 
         } 
         xlSheetData.Append(xlRow); 
        } 

        package.WorkbookPart.WorksheetParts.First().Worksheet = new Worksheet(xlSheetData); 
        package.WorkbookPart.WorksheetParts.First().Worksheet.Save(); 

        // create the worksheet to workbook relation 
        package.WorkbookPart.Workbook.AppendChild(new Sheets()); 
        package.WorkbookPart.Workbook.GetFirstChild<Sheets>().AppendChild(new Sheet() 
        { 
         Id = package.WorkbookPart.GetIdOfPart(package.WorkbookPart.WorksheetParts.First()), 

         SheetId = 1, 

         Name = "Sheet1" 

        }); 

        package.WorkbookPart.Workbook.Save(); 

       } 
      } 
      return stream; 
     }

来源

2011-02-25 14:15:09

Dave的所有xml组件部分的zip文件，非常感谢您将它放在正确的方向上。现在，我设法在Excel表格中打开文档。但是，在excel中显示文档之前，代码不会显示带有选项“打开/保存/取消”的“下载文件”弹出窗口。任何帮助。 – Shariful 2011-02-28 16:59:01

Shariful，从我读过（没有尝试过），我相信最好的方法是设置您的HTTP响应标头为here.

简而言之，关键似乎是将content-disposition标头设置为“attachment”。

例如为：

Content-Disposition: attachment; filename=<file name.ext>

对不起，我没有测试过这一点，但我在寻找的东西密切相关，几乎每到一个地方我就建议，以迫使下载对话框中使用此方法。

来源

2012-04-12 16:48:12 user1276260

从.csv文件转换为.xlsx excel文件

回答

相关问题