就要绝望了,跪求一段代码~~~~~~~~~~~~~~~

[Allan168]

//txtData为文本控件名

txtData.Value =
"<?xml version=\"1.0\" encoding=\"GB2312\"?>
<ICBCACSS>
<result>
<FCode>0204</FCode>
<TM>20060811130542271602</TM>
<MaxNo>4</MaxNo>
<RetCode>0</RetCode>
<RetMsg>处理成功！</RetMsg>
</result>
<resultset>
<result>
<AREANAME>北京市</AREANAME>
<INDICATORNAME>城市年末实有房屋建筑面积</INDICATORNAME>
<DATA>43121.5</DATA>
<DATE>20030101</DATE>
<UNIT>万平方米</UNIT>
</result>
<result>
<AREANAME>北京市</AREANAME>
<INDICATORNAME>城市市区人口密度</INDICATORNAME>
<DATA>2128</DATA>
<DATE>20030101</DATE>
<UNIT>人/平方公里</UNIT>
</result>
<result>
<AREANAME>全国</AREANAME>
<INDICATORNAME>城市年末实有房屋建筑面积</INDICATORNAME>
<DATA>1409091.4</DATA>
<DATE>20030101</DATE>
<UNIT>万平方米</UNIT>
</result>
<result>
<AREANAME>全国</AREANAME>
<INDICATORNAME>城市市区人口密度</INDICATORNAME>
<DATA>847</DATA>
<DATE>20030101</DATE>
<UNIT>人/平方公里</UNIT>
</result>
</resultset>
</ICBCACSS>"


现在上面的数据可以取到.
问题:我怎么把上面xml文件数据导出到Excel
请帖出代码

搞了很久,不能实现,最好在你的机器上实现再发上来~~~~~

[Allan168]

XmlDataDocument datadoc = new XmlDataDocument();
datadoc.LoadXml(txtData.Value);
XmlNodeReader reader = new XmlNodeReader(datadoc);
DataSet ds = new DataSet();
ds.ReadXml(reader);


请大家在你的机器上调试后再发上来,不是我偷懒,
我做到上面的地方都应该是正确的,但就是导不出到Excel~~~
实在没办法了~~~~~

[Allan168]

可以参考:
http://home.msuniversity.edu.cn/members/ChallengeGroup/m_Article/Detail.aspx?id=401

[softfire007]

http://home.msuniversity.edu.cn/members/ChallengeGroup/m_Article/Detail.aspx?id=401
楼上的对

[qzh1119]

up

[lubosun]

帮顶

[Allan168]

资料看的太多,基本都不行~~~~~

我要代码啊~~~~~~~

[coolstarhty]

增加导入：
Imports System.IO
Imports System.Text

代码：
Private Sub Export_To_Excel(ByRef Table As DataTable, ByRef file_name As String)
Dim File As System.IO.File
Dim Mstr_now As String
If File.Exists(file_name) Then
File.Delete(file_name)
End If

Dim Mobj_Writer As StreamWriter
Mobj_Writer = New StreamWriter(file_name, False, Encoding.Unicode)

Dim Mstrb_write As New StringBuilder(500)
Dim i As Integer
For i = 0 To Table.Columns.Count - 1
Mstrb_write.Append(Table.Columns(i).ColumnName)
Mstrb_write.Append(Chr(9))
Next
Dim Mstr_head As String = Mstrb_write.ToString
Mobj_Writer.WriteLine(Mstr_head)
Dim Row As DataRow
For Each Row In Table.Rows
Mstrb_write = New StringBuilder(1000)
For i = 0 To Table.Columns.Count - 1
Mstrb_write.Append(Row(i))
Mstrb_write.Append(Chr(9))
Next
Mobj_Writer.WriteLine(Mstrb_write)
Next
Mobj_Writer.Close()
End Sub

调用：
Export_To_Excel(ds.Tables(0), "abc.xls")

[Allan168]

看不懂vb的啊~~~~~~~~~~~~~~~~``

[lxcbb]

短期软件开发项目人员招聘需求

我公司的项目[业务管理系统]目前已进入开发编码阶段，由于项目紧迫，我们急需3名擅长.NET平台BS和CS结构的开发人员参与一个半月左右的全职项目开发，希望能保证工作时间并符合以下要求的尽快与我们联系,录用者我们会为您提供优厚的报酬。
项目情况: [业务管理系统]的相关网站使用.NET平台,SQL SERVER数据库开发，使用了ASP.NET 2.0及Winform相关技术，网页表现层使用了Ajax提供更好的用户感受，子系统间使用WEBService通信。
一.网页设计美工
1.熟练手写html代码，并熟悉相关设计工具。
2.熟悉CSS及Web设计标准,能使用DIV+CSS的方式设计页面。
3.有网站及web应用开发经验，并具备一定美术功底。
二..NET软件程师
1.有较好的需求理解和沟通能力，工作认真负责，具备团队合作精神，并能遵守项目开发规范。
2.熟悉.NET平台,并有一年以上.NET平台使用经验
3.有良好的数据结构和算法功底,熟悉SQL语言和SQL SERVER数据库。
4.有WinForm和WEB应用程序开发经验，能够按需求快速完成开发。
5.熟悉报表开发，并了解相关报表开发工具,如(crystal report)
6.非常熟悉ASP.NET/HTML和CSS,能熟练使用JavaScript和DOM进行编程。
7.熟练使用WebService和XML编程。


有意者请将个人人简历发送到: [e-mail] 信中请注明:”应聘短期项目开发人员”

[Allan168]

昏死,通宵等~~~~

[shalen520]

回去帮你看

[孟子E章]

<%@ Page Language="C#" %>

<script runat="server">

protected void Page_Load(object sender, EventArgs e)
{
string txtData = @"<?xml version='1.0' encoding='GB2312'?>
<ICBCACSS>
<result>
<FCode>0204</FCode>
<TM>20060811130542271602</TM>
<MaxNo>4</MaxNo>
<RetCode>0</RetCode>
<RetMsg>处理成功！</RetMsg>
</result>
<resultset>
<result>
<AREANAME>北京市</AREANAME>
<INDICATORNAME>城市年末实有房屋建筑面积</INDICATORNAME>
<DATA>43121.5</DATA>
<DATE>20030101</DATE>
<UNIT>万平方米</UNIT>
</result>
<result>
<AREANAME>北京市</AREANAME>
<INDICATORNAME>城市市区人口密度</INDICATORNAME>
<DATA>2128</DATA>
<DATE>20030101</DATE>
<UNIT>人/平方公里</UNIT>
</result>
<result>
<AREANAME>全国</AREANAME>
<INDICATORNAME>城市年末实有房屋建筑面积</INDICATORNAME>
<DATA>1409091.4</DATA>
<DATE>20030101</DATE>
<UNIT>万平方米</UNIT>
</result>
<result>
<AREANAME>全国</AREANAME>
<INDICATORNAME>城市市区人口密度</INDICATORNAME>
<DATA>847</DATA>
<DATE>20030101</DATE>
<UNIT>人/平方公里</UNIT>
</result>
</resultset>
</ICBCACSS>";

System.Xml.XmlDataDocument datadoc = new System.Xml.XmlDataDocument();
datadoc.LoadXml(txtData);
//如果需要过滤节点，请在这里处理
System.Xml.XmlNodeReader reader = new System.Xml.XmlNodeReader(datadoc);
System.Data.DataSet ds = new System.Data.DataSet();
ds.ReadXml(reader);
DataGrid1.DataSource = ds.Tables[0].DefaultView;
DataGrid1.DataBind();
Response.Clear();
Response.Buffer = true;
Response.Charset = "UTF-8";
Response.AppendHeader("Content-Disposition", "attachment;filename=FileName.xls");
Response.ContentEncoding = System.Text.Encoding.GetEncoding("UTF-8");//设置输出流为简体中文
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();


}
</script>

<html>
<body>
<form id="Form1" runat="server">

<asp:DataGrid ID="DataGrid1" runat="server"></asp:DataGrid>
</form>
</body>
</html>

[孟子E章]

<%@ Page Language="C#" %>

<script runat="server">

protected void Page_Load(object sender, EventArgs e)
{
string txtData = @"<?xml version='1.0' encoding='GB2312'?>
<ICBCACSS>
<result>
<FCode>0204</FCode>
<TM>20060811130542271602</TM>
<MaxNo>4</MaxNo>
<RetCode>0</RetCode>
<RetMsg>处理成功！</RetMsg>
</result>
<resultset>
<result>
<AREANAME>北京市</AREANAME>
<INDICATORNAME>城市年末实有房屋建筑面积</INDICATORNAME>
<DATA>43121.5</DATA>
<DATE>20030101</DATE>
<UNIT>万平方米</UNIT>
</result>
<result>
<AREANAME>北京市</AREANAME>
<INDICATORNAME>城市市区人口密度</INDICATORNAME>
<DATA>2128</DATA>
<DATE>20030101</DATE>
<UNIT>人/平方公里</UNIT>
</result>
<result>
<AREANAME>全国</AREANAME>
<INDICATORNAME>城市年末实有房屋建筑面积</INDICATORNAME>
<DATA>1409091.4</DATA>
<DATE>20030101</DATE>
<UNIT>万平方米</UNIT>
</result>
<result>
<AREANAME>全国</AREANAME>
<INDICATORNAME>城市市区人口密度</INDICATORNAME>
<DATA>847</DATA>
<DATE>20030101</DATE>
<UNIT>人/平方公里</UNIT>
</result>
</resultset>
</ICBCACSS>";

System.Xml.XmlDataDocument datadoc = new System.Xml.XmlDataDocument();
datadoc.LoadXml(txtData);
//如果需要过滤节点，请在这里处理
System.Xml.XmlNode node = datadoc.SelectSingleNode("/ICBCACSS/resultset");
System.Xml.XmlNodeReader reader = new System.Xml.XmlNodeReader(node);
System.Data.DataSet ds = new System.Data.DataSet();
ds.ReadXml(reader);
DataGrid1.DataSource = ds.Tables[0].DefaultView;
DataGrid1.DataBind();


}

protected void Button1_Click(object sender, EventArgs e)
{
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";
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();
}
</script>

<html>
<body>
<form id="Form1" runat="server">
<asp:DataGrid ID="DataGrid1" runat="server" AutoGenerateColumns="false" ShowHeader="true">
<Columns>
<asp:TemplateColumn HeaderText="地区">
<ItemTemplate><%#DataBinder.Eval(Container.DataItem,"AREANAME")%></ItemTemplate>
</asp:TemplateColumn>
<asp:TemplateColumn HeaderText="人口">
<ItemTemplate><%#DataBinder.Eval(Container.DataItem,"INDICATORNAME")%></ItemTemplate>
</asp:TemplateColumn>
<asp:TemplateColumn HeaderText="数据">
<ItemTemplate><%#DataBinder.Eval(Container.DataItem,"DATA")%></ItemTemplate>
</asp:TemplateColumn>
<asp:TemplateColumn HeaderText="日期">
<ItemTemplate><%#DataBinder.Eval(Container.DataItem, "DATE")%></ItemTemplate>
</asp:TemplateColumn>
<asp:TemplateColumn HeaderText="单位">
<ItemTemplate><%#DataBinder.Eval(Container.DataItem, "UNIT")%></ItemTemplate>
</asp:TemplateColumn>
</Columns>
</asp:DataGrid>
<asp:Button ID="Button1" runat="server" OnClick="Button1_Click"
Text="导出" />
</form>
</body>
</html>