一个可以从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