Excel单元格按列导出到TXT

Excel单元格按列导出到TXT
我在网上找了一段VBA程序，确实能按列将单元格数据导出到不同的TXT文件中。
为了让所有数据能够连接起来，我将程序中原来的 Print #2, Replace(oJs.codeobject.clr(Join(Application.Transpose(Application.Index(Arr, , icl)), " ")), " ", VbCrLf)换成了 Print #2, Replace(oJs.codeobject.clr(Join(Application.Transpose(Application.Index(Arr, , icl)), " ")), " ", "")，也就是取掉了换行符，这样所有数据就连成一行了。但还有一个问题，我每一个TXT文档都要有一个标题（存在EXEECL表格中的第一行），需要和文档中其它内容断开，我试着改这段代码没有成功，我想原理是应该先在循环外先把第一行写入，再进入循环将2行至第N行数据写入。
有哪位大虾懂VBA，出手帮小弟一把啊，谢谢啦！

Sub ExportTxt()
Dim Arr, icl%, oJs As Object

Set oJs = CreateObject("ScriptControl"): oJs.Language = "JScript"
oJs.eval "function clr(str){return str.replace(/\s+/g,' ')}"
Arr = [A2].CurrentRegion
For icl = 11 To UBound(Arr, 2)
Open ThisWorkbook.Path & "\" & icl & ".flt" For Output As #2
Print #2, Replace(oJs.codeobject.clr(Join(Application.Transpose(Application.Index(Arr, , icl)), " ")), " ", "")
Reset
Next
Set oJs = Nothing
End Sub

加我看看。最好截图说明你的表格格式，以及生成的文本文件的格式。
987122817