excel文件转换为txt文本文件实例代码。将xls文件的内容写入文本文件，带上分隔符。现在写出初码。

Sub exportTxt() ‘写入文本文件
Dim fs
Path1 = ThisWorkbook.Path
TPath = Path1 & “\” & “tmp.txt”
Set fs = CreateObject(“scripting.filesystemobject”)
Set f = fs.opentextfile(TPath, 8, True, TristateTrue)
lastrow = ThisWorkbook.Sheets(“sheet1″).UsedRange.Rows.Count
lastcol = ThisWorkbook.Sheets(“sheet1″).UsedRange.Columns.Count

For i = 1 To lastrow
For j = 1 To lastcol
tmp = ThisWorkbook.Sheets(“sheet1″).Cells(i, j).Value
If tmp = “” Then Exit For
f.write tmp
f.write “,”
Next j
f.writeline
Next i
f.Close
End Sub

参阅资料：

http://www.amhl.net/wenzhang/office/20101201/128700.html

通过Excel操作记事本，极其方便，可以很方便的为我们提取部分数据。
本文，与您分享通过VBA，如何创建、将数据写入记事本TXT文件。
代码如下：
Dim fs, f, a, s, i
Set fs = CreateObject(“Scripting.FileSystemObject”)
Set f = fs.OpenTextFile(“c:\123.txt”, 8, True)
f.writeline Target.Row
‘f.write Target.Row
f.Close
代码解释：
f.writeline 代表写入数据的时候换行写入；f.write 代表写入数据的时候不换行，都在同一行接着写入。
Set f = fs.OpenTextFile(“c:\123.txt”, 8, True)，含意是：打开c:\123.txt文件；8代表从文件的末尾开始接着写入数据；True代表，如果c:\123.txt文件不存在，则创建此文件；
fs.OpenTextFile()包含四个参数，即fs.OpenTextFile(参数1，参数2，参数3，参数4)，下面，分别针对此四个参数做介绍。
①参数1
指明要打开文件的字符串表达式，也就是要打开的记事本文件的路径。
②参数2
1代表以只读方式打开文件。 不能写这个文件。
2以写方式打开文件
8 打开文件并从文件末尾开始写。
③参数3
指明当指定的 filename 不存在时是否创建新文件。
如果创建新文件则值为 True ，如果不创建则为 False 。 如果忽略，则不创建新文件。
④参数4
TristateTrue 以 Unicode 格式打开文件。
TristateFalse 以 ASCII 格式打开文件。
TristateUseDefault 使用系统默认值打开文件。
一般情况下，不用填写这个参数。使用缺省即可。