关于数据导出excel的问题

Question

我想在服务器上先建一个excel模板，然后用户在客户端点击生成数据按钮后，服务器往excel模板里写数据（具体数据是从数据库中查询出来的），数据写完后提示客户端下载该文件最好在服务器端不要安装office，客户端已经安装office

Answer 1

//设置输出类型是Excel
Response.AppendHeader("content-disposition", "filename=output.xls");
Response.ContentType = "application/vnd.ms-excel"; //将表格内容作为Excel输出
System.IO.StringWriter sw=new System.IO.StringWriter();
HtmlTextWriter htwVehicleList=new HtmlTextWriter(sw);
this.Page.RenderControl(htwVehicleList);
Response.Write(sw.ToString());
Response.End();

Answer 2

参考
http://www.cnblogs.com/lovecherry/archive/2005/03/25/125519.html
可能不一定能达到你的要求

Answer 3

上面那个也不行，我有excel 模板了，就是把数据库里的数据写到excel模板中

Answer 4

写入模板我没有做过
你可以参考
http://www.cnblogs.com/huobazi/archive/2004/04/27/7771.aspx

Answer 5

1. 从数据库里取数据，保存在DataSet,DataTable, etc.
2. 将模版文件复制成新的用户Download文件，可以采用SessionId + 系统时间，以保证生成文件的唯一。
3. 对生成文件进行操作,将数据从DataSet等导入Excel.
4. 打开新的页面，将临时文件"写"到客户端.
第一步，略
第二，三步：
    Public Shared Function MakeExcel(ByVal sessionId As String, ByRef sltReport As String, ByVal sltData As String) As String
        'Public Shared Function MakeExcel(ByVal sessionId As String, ByVal sltReport As String, ByVal sltData As String, ByVal rootPath As String) As String
        ' New the web service.
        Dim BSvc As BusinessWebService.BusinessWebSvc = New BusinessWebService.BusinessWebSvc
        '1. From db to string
        '2. Set string to clipboard
        '3. New a excel file by copy from template file
        '4. Open the excel file, paste data to excel
        '5. Format the excel file then close it        Dim destFilePath As String = System.Configuration.ConfigurationSettings.AppSettings("workDir")
        Dim templateFilePath As String = System.Configuration.ConfigurationSettings.AppSettings("templateDir")
        'Dim destFilePath As String = rootPath & System.Configuration.ConfigurationSettings.AppSettings("workDir")
        'Dim templateFilePath As String = rootPath & System.Configuration.ConfigurationSettings.AppSettings("templateDir")
        Dim stringData As String
        Dim templateFileName As String        Dim pasteCells As String()
        Try
            Select Case sltReport
                Case "2"    '損益予算申請総括表(損予№1)_PF0010
                    sltReport = "損益予算申請総括表(損予№1)_PF0010.xls"
                    templateFileName = System.Configuration.ConfigurationSettings.AppSettings("PF0010")
                    Dim cells As String() = {""}
                    pasteCells = cells
                    stringData = DoPF0010(BSvc)
                Case "3"    '損益予算実施状況_PF0020
                    sltReport = "PF0020.xls"
                    templateFileName = System.Configuration.ConfigurationSettings.AppSettings("PF0020")
                    Dim cells As String() = {"E5", "E7", "E22"}
                    pasteCells = cells
                    stringData = DoPF0020(BSvc)
                Case "4"    '委託費期末予想調書_PF0030
                    sltReport = "PF0030.xls"
                    templateFileName = System.Configuration.ConfigurationSettings.AppSettings("PF0030")
                    Dim cells As String() = {"E5", "E7", "E22"}
                    pasteCells = cells
                    stringData = DoPF0030(BSvc)
            End Select            Select Case sltData
                Case "2"    
                Case "3"    
                Case "4"    
            End Select            templateFilePath = templateFilePath & "\" & templateFileName
            destFilePath = destFilePath & "\" & sessionId & DateTime.Now.ToString("hhmmss") & ".xls"            CopyFromTemplate(destFilePath, templateFilePath)            ClipboardToExcel(destFilePath, stringData, pasteCells)        Catch ex As Exception
            Throw ex
        End Try
        Return destFilePath
    End Function第四步：
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            If Not Page.IsPostBack Then
            Dim FilePath As String = Session("FilePath").ToString()
            If FilePath Is Nothing Then
                Response.Write("<h1>Server is unusable!</h1>")
            Else
                Try
                    Dim saveAsFileName As String = Session("SaveAsFileName").ToString()
                    'Dim fs As System.IO.FileStream = System.IO.File.OpenRead(FilePath)
                    'Dim FileData(fs.Length) As Byte
                    'fs.Read(FileData, 0, CType(fs.Length, Integer))
                    'fs.Close()
                    'Session.Clear()
                    Response.AddHeader("Content-Type", "application/vnd.ms-excel")                    Dim str As String = saveAsFileName
                    str = HttpUtility.UrlEncode(saveAsFileName, System.Text.Encoding.UTF8)                    Response.AddHeader("Content-Disposition", "inline;filename=" & str)
                    'Response.AddHeader("Content-Length", FileData.Length.ToString())
                    'Response.BinaryWrite(FileData)
                    Response.WriteFile(FilePath)
                Catch ex As Exception
                    Response.Write("<h1>Server is unusable!</h1>")
                End Try
                Response.End()
                '    'Dim xlFileName As String = FilePath.Substring(FilePath.LastIndexOf("\"))
                '    'Response.Redirect("../Excel/work" & xlFileName)            End If
        End If
    End Sub

Answer 6

上面那个不太理解，可能也不行，
我的要求其实很简单:就是我有excel 模板了，就是把数据库里的数据写到excel模板中不知道能不能通过owc解决,我通过owc能够生成excel,但是就是不能打开excel 模板,再对模板进行操作还望高手指点,救急啊

Answer 7

http://community.csdn.net/Expert/topic/3877/3877428.xml?temp=.2681543

Answer 8

是基于web的,不是winform的 高手帮帮忙啊

Answer 9

把取出的数据先保存到DataGrid中,然后用这个方法就可以导到Excel中了
Response.Clear(); 
Response.Buffer= true;
Response.Charset="GB2312";
Response.AppendHeader("Content-Disposition","attachment;filename=FileName.xls");
Response.ContentEncoding=System.Text.Encoding.GetEncoding("GB2312");
//设置输出流为简体中文
Response.ContentType = "application/ms-excel";
//设置输出文件类型为excel文件。
this.EnableViewState = false;
System.Globalization.CultureInfo myCItrad = new System.Globalization.CultureInfo("ZH-CN",true);
System.IO.StringWriter oStringWriter = new System.IO.StringWriter(myCItrad);
System.Web.UI.HtmlTextWriter oHtmlTextWriter = new System.Web.UI.HtmlTextWriter(oStringWriter);
this.DataGrid1.RenderControl(oHtmlTextWriter);
Response.Write(oStringWriter.ToString());
Response.End();

Answer 10

服务器端肯定需要安装excel吧

Answer 11

同意楼上，服务器端要装excel，否则没有办法解决这个问题！

Answer 12

安装office也可以，怎么才能够在打开我的excel模板，在往该模板中写数据看来这个问题还真不好解决啊，高手开来啊

Answer 13

在VS.net里添加Excel引用，然后用类似VBA的方法打开模板往里面填数据库，最后另存为结果保存。

Answer 14

我也遇到相关的问题：想把页面上的部分内容写入到服务器上的已存在的EXCEL模板的相应的单元格中，然后在客户端打开这个EXCEL文件，但我希望客户端直接打开，而不用提示下载，怎么做？这个问题在VB6 C/S结构时很容易，到了DOT NET时代反而不好做了。

Answer 15

其实已经把方法写给你了，只是自己不去试。哎~~~~
private void MakeExcel(string strData, string destFilePath)
{
Excel.Workbook xlWorkbook;
Excel.Worksheet xlWorksheet;
Excel.Range xlCell; if( xlApp == null )
xlApp = new Excel.ApplicationClass();
xlApp.Visible = true;
object objNull = System.Reflection.Missing.Value;
xlWorkbook = xlApp.Workbooks.Open( destFilePath, objNull, objNull, 
                       objNull, objNull, objNull, 
                       objNull, objNull, objNull, 
                       objNull, objNull, objNull, 
                       objNull );
this.Application.Lock();
System.Windows.Forms.Clipboard.SetDataObject(strData);
xlWorksheet = (Excel.Worksheet)xlWorkbook.Worksheets[1];
xlCell = (Excel.Range)xlWorksheet.Cells[2,1];
xlCell.Select();
xlWorksheet.Paste(objNull,objNull);
System.Windows.Forms.Clipboard.SetDataObject("");
this.Application.UnLock();

int intEndColumn = xlWorksheet.UsedRange.Columns.Count;
int intEndRow = xlWorksheet.UsedRange.Rows.Count;
 
Excel.Range xlRange=xlWorksheet.Cells.get_Range(xlWorksheet.Cells[2,1],xlWorksheet.Cells[intEndRow,intEndColumn]); SetExcelBorderStyle( xlRange.Borders.get_Item(Excel.XlBordersIndex.xlEdgeLeft) );
SetExcelBorderStyle( xlRange.Borders.get_Item(Excel.XlBordersIndex.xlEdgeRight) );
SetExcelBorderStyle( xlRange.Borders.get_Item(Excel.XlBordersIndex.xlEdgeTop) );
SetExcelBorderStyle( xlRange.Borders.get_Item(Excel.XlBordersIndex.xlEdgeBottom) );
SetExcelBorderStyle( xlRange.Borders.get_Item(Excel.XlBordersIndex.xlInsideHorizontal) );
SetExcelBorderStyle( xlRange.Borders.get_Item(Excel.XlBordersIndex.xlInsideVertical) ); xlWorkbook.Close(Excel.XlSaveAction.xlSaveChanges , destFilePath, objNull);
xlApp.Quit();
System.Runtime.InteropServices.Marshal.ReleaseComObject(xlApp);
GC.Collect();
}

Answer 16

我要的是在web应用上实现的代码啊，不知道fangxinggood(JustACoder) 可不可以，还有项目中要添加什么组件