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