Excel数据导出到txt文档

因工作需要，需要txt文档的每一项后增加lang3选项。txt文档格式如下：

如果一个一个添加将会非常麻烦，在师傅的指导下，利用excel轻松的完成了。

首先将txt文档内容整理到excel中，格式如下：

然后，增加一列lang3

利用excel的vba按照指定格式导出到txt文档中。

很简单的完成了本来费劲的工作，看来学会用好工具和归档如此重要。

贴出程序和一个很好的excel网站：http://club.excelhome.net/forum.php

 test()
    Dim arr, fn$, s$
    arr = Range("a1").CurrentRegion
    On Error Resume Next
    fn = "C:\数据.txt"
    Kill fn
    Open fn For Output As #1
    For i = 2 To UBound(arr)
        s = ""
        For j = 1 To UBound(arr, 2)
           s = s & arr(1, j) & " " & arr(i, j) & Chr(10)
        Next
        Print #1, Mid(s, 2)
    Next
    Close #1
    MsgBox "文件保存成功!"
End Sub