如何用xml来传输Excel 文件？

Question

to ->qiume(杜克)
我具体怎么实现。

Answer 1

1、先把EXCEL文件化成流
2、用XmlSerializer将其序列化
3、传输

Answer 2

xml只是把excel转换成string file.把这个file编成byte[];然后用tcp/udp/http传输stream.对方进行反操作。

Answer 3

你刚才问过同样的问题
http://expert.csdn.net/Expert/topic/2911/2911566.xml?temp=.3173639
剩下的代码在这里了，我刚才贴重了，不好意思！ExcelExport.aspx.vbPublic Class ExcelExport
    Inherits System.Web.UI.Page
  Protected WithEvents DataGrid1 As System.Web.UI.WebControls.DataGrid#Region " Web 窗体设计器生成的代码 "    '该调用是 Web 窗体设计器所必需的。
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()  End Sub    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) _
     Handles MyBase.Init
        'CODEGEN: 此方法调用是 Web 窗体设计器所必需的
        '不要使用代码编辑器修改它。
        InitializeComponent()
    End Sub#End Region  Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) _
    Handles MyBase.Load
    '在此处放置初始化页的用户代码
    ' 定义是否是 SQL Server 数据库，这里为False
    Dim blnIsSQLServer As System.Boolean = False
    Dim strSQL As String
    Dim objDataset As New DataSet()
    Dim objConn As Object
    Dim strCnn As String    If blnIsSQLServer Then
      strCnn = "User ID=sa;Initial Catalog=Northwind;Data Source=.\NetSDK;"
      objConn = New System.Data.SqlClient.SqlConnection(strCnn)
      objConn.Open()
      Dim objAdapter As New System.Data.SqlClient.SqlDataAdapter()
      strSQL = "Select * from customers where country='USA'"
      objAdapter.SelectCommand = New System.Data.SqlClient.SqlCommand(strSQL, objConn)
      objAdapter.Fill(objDataset)
    Else
      strCnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Server.MapPath("Test.mdb")
      objConn = New System.Data.OleDb.OleDbConnection(strCnn)
      objConn.Open()
      Dim objAdapter As New System.Data.OleDb.OleDbDataAdapter()
      strSQL = "Select Top 10 Title From Document"
      objAdapter.SelectCommand = New System.Data.OleDb.OleDbCommand(strSQL, objConn)
      objAdapter.Fill(objDataset)
    End If
    Dim oView As New DataView(objDataset.Tables(0))
    DataGrid1.DataSource = oView
    DataGrid1.DataBind()
    objConn.Close()
    objConn.Dispose()
    objConn = Nothing
    If Request.QueryString("bExcel") = "1" Then
      Response.ContentType = "application/vnd.ms-excel"
      ' 从Content-Type header中去除charset设置
      Response.Charset = ""      ' 关闭 ViewState
      Me.EnableViewState = False
      Dim tw As New System.IO.StringWriter()
      Dim hw As New System.Web.UI.HtmlTextWriter(tw)
      ' 获取control的HTML
      DataGrid1.RenderControl(hw)
      ' 把HTML写回浏览器
      Response.Write(tw.ToString())
      Response.End()
    End If
  End Sub
End Class