首先制作exceL模板：
1.设计EXCEL模板格式.
2 .把你想写数据的单元格命上名字，即EXCEL的命名，最好和数据库中的字段对应起来，有一定的规律性如 XML_+数据库字段名。
3.然后往里面输上数据，谁便什么都可以但是一定要符合你单元格的格式，如字符型就要输字符，数字型就输数字.
这一步骤只是为了往EXCEL中查数据，因为EXCEL生成的XML数据在Data这个节点下，你不先写数据就没有这个节点。 (因为现在还没有找到可以直接往EXCEL生成的XML文件中填写数据的方法,只能通过它的名字查找DATA节点来写入数据.)
4.用记事本打开，然后把你写的那些数据替换为空(这是为了清空数据,生成模板.)
5. 保存为ＸＭＬ文件，点击令存为，保存为ｘｍｌ文件。
1 mports System.Xml
2 Imports System.Data
3 Partial Class ScrbClass Scrb
4 Inherits System.Web.UI.Page
5
6 Protected Sub form1_Load()Sub form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles form1.Load
7 Dim dateselect As String = String.Empty
8 Dim rpttype As String = String.Empty
9 Dim filepath As String = String.Empty
10 If Request.QueryString("qdate") IsNot Nothing Then
11 dateselect = (Request.QueryString("qdate")).Trim()
12 Else
13 dateselect = System.DateTime.Today.AddDays(-1).ToString("yyyy-MM-dd")
14 End If
15
16 filepath = Server.MapPath("report报表.xml")//在这里即是前面所生成的模版的地址。
17 Dim xmldoc As XmlDocument = New XmlDocument()
18 xmldoc.Load(filepath)
19 '添加命名空间注意：必须添加命名空间否则SelectSingleNode(xmlpath, manager)函数就会出错。
20 Dim manager As XmlNamespaceManager = New XmlNamespaceManager(xmldoc.NameTable)
21 manager.AddNamespace(String.Empty, "urn:schemas-microsoft-com:office:spreadsheet")
22 manager.AddNamespace("o", "urn:schemas-microsoft-com:office:office")
23 manager.AddNamespace("x", "urn:schemas-microsoft-com:office:excel")
24 manager.AddNamespace("html", "http://www.w3.org/TR/REC-html40")
25 manager.AddNamespace("x2", "http://schemas.microsoft.com/office/excel/2003/xml")
26 manager.AddNamespace("ss", "urn:schemas-microsoft-com:office:spreadsheet")
27 Dim root As XmlNode = xmldoc.DocumentElement '定义根节点
28 Dim pointname, xmlpath, dsvalue As String
29 Dim xmlnd As XmlNode
30
31 /这里去掉了根据前面定义的excel名称查找相应节点，把相应的值付给相应的节点。/
32
2 Imports System.Data
3 Partial Class ScrbClass Scrb
4 Inherits System.Web.UI.Page
5
6 Protected Sub form1_Load()Sub form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles form1.Load
7 Dim dateselect As String = String.Empty
8 Dim rpttype As String = String.Empty
9 Dim filepath As String = String.Empty
10 If Request.QueryString("qdate") IsNot Nothing Then
11 dateselect = (Request.QueryString("qdate")).Trim()
12 Else
13 dateselect = System.DateTime.Today.AddDays(-1).ToString("yyyy-MM-dd")
14 End If
15
16 filepath = Server.MapPath("report报表.xml")//在这里即是前面所生成的模版的地址。
17 Dim xmldoc As XmlDocument = New XmlDocument()
18 xmldoc.Load(filepath)
19 '添加命名空间注意：必须添加命名空间否则SelectSingleNode(xmlpath, manager)函数就会出错。
20 Dim manager As XmlNamespaceManager = New XmlNamespaceManager(xmldoc.NameTable)
21 manager.AddNamespace(String.Empty, "urn:schemas-microsoft-com:office:spreadsheet")
22 manager.AddNamespace("o", "urn:schemas-microsoft-com:office:office")
23 manager.AddNamespace("x", "urn:schemas-microsoft-com:office:excel")
24 manager.AddNamespace("html", "http://www.w3.org/TR/REC-html40")
25 manager.AddNamespace("x2", "http://schemas.microsoft.com/office/excel/2003/xml")
26 manager.AddNamespace("ss", "urn:schemas-microsoft-com:office:spreadsheet")
27 Dim root As XmlNode = xmldoc.DocumentElement '定义根节点
28 Dim pointname, xmlpath, dsvalue As String
29 Dim xmlnd As XmlNode
30
31 /这里去掉了根据前面定义的excel名称查找相应节点，把相应的值付给相应的节点。/
32