一个可以从excel中读取数据并生成xml的vba程序
NND EXCEL2007，让老子找了半天才把button添加上去。
Sub 按钮1_Click()
Dim sFileName As String
Dim ws As Worksheet '存储文件路径名和文件名的工作表
Set ws = Worksheets("english") '设置工作表
sFileName = "d:\text.xml"
Set fso = CreateObject("Scripting.FileSystemObject")
Set orgFile = fso.OpenTextFile(sFileName, 2, True, -1)
'dim head and tail
Dim headline1, headline2, tailline, span_bef_english, span_aft_english, span_bef_foreign, span_aft_foreign
headline1 = "<?xml version=""1.0\"" encoding=""utf-8\""?>"
headline2 = "<systems>"
tailline = "</systems>"
'dim span before english
span_bef_english = "<setting id=""id_xx"">" & Chr$(13) & "<content_en>"
'dim span after english
span_aft_english = "</content_en>"
'dim span before foreign language
span_bef_foreign = "<content_fgn>"
'dim span after forergn language
span_aft_foreign = "</content_fgn>" & Chr$(13) & "</setting>"
'write_x
相关文档：
在很多研讨会和培训班上我遇到过许多人，他们还不明白为什么要使用XML也不知道如何在他们的应用中使用XML。一些来自诸如Gartner公司的报告建议说，商业公司不能再做局外人了，不能对XML置之不理。如果你还不清楚XML到底有什么好处的话，你并不是唯一的人。
我决定把与人们和媒体关于XML话题的交谈整理成文，列出XML在应用� ......
是否厌倦了用xml文件来做Magento的页面布局，是的话来试试下面这种方式，把布局代码写到controller 里面
public function mycoolAction()
{
/* ... Some code ...*/
$update = $this->getLayout()->getUpdate();
/* ... Some code ...*/
$this->addActionLayoutHandles();
/* ... Some code ...*/
......
前面文章中提到 xml节点的删除
“删除 <book genre="fantasy" ISBN="2-3631-4">节点的genre属性，删除 <book genre="update陶维佳" ISBN="2-3631-4">节点。”
代码：
XmlNodeList xnl=xmlDoc.SelectSingleNode("bookstore").ChildNodes;
foreach(XmlNode&nbs ......
using System;
using System.Data;
using System.Configuration;
using System.Web;
using System.Web.Security;
using System.Web.UI;
using System.Web.UI.WebControls;
using System.Web.UI.WebControls.WebParts;
using System.Web.UI.HtmlControls;
using System.IO;
using System.Xml;
using System.Text; ......
