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

orgFile.Writeline (headline1)

orgFile.Writeline (headline2)

'write body

Dim i%, line_data, line_text

For i = 2 To 810

line_data = ws.Cells(i, 2).Value

line_text = span_bef_english & line_data & span_aft_english

orgFile.Writeline (line_text) 'write english head

line_data = ws.Cells(i, 5).Value

line_text = span_bef_foreign & line_data & span_aft_foreign

orgFile.Writeline (line_text) 'write foreign language data and tail

Next

'write_xml_tail()

orgFile.Writeline (tailline)

orgFile.Close

End Sub