EXCEL转换成TXT

如果需要转换的EXCEL文件不多，可以在EXCEL里面打开文件之后，菜单“文件”里面有个“另存为”，然后选择TXT格式就可以。

如果有大批文件需要转换，那么需要把刚才保存一个文件并关闭文件的操作录制为一个宏，最后把宏名字改为AUTOOPEN，这样在资源管理器里面选中要转换的文件，双击鼠标全部打开即可，系统会字段打开一个、另存为一个、关闭一个。

打开excel表 --文件--另存为 保存类型 下拉框 选择： 文本文件（制表分隔符） 就可以了

参考一下把
Option Explicit

Private Sub CommandButton1_Click() '以output打开方式
Dim s As String
Dim i%, j%, irow%, icol%
Dim FullName As String, rng As Range
Application.ScreenUpdating = False
FullName = Replace(ThisWorkbook.FullName, ".xls", ".txt")
Open FullName For Output As #1 '以读写方式打开文件，每次写内容都会覆盖原先的内容
'参考帮助，fullname为文件全名
s = s & "D:\2007.08.01新个税申报系统\个人所得税明细申报客户端软件\templates\个人所得税申报_普通算法明细数据.htm"
s = s & Chr(13) & "1.0.1" & Chr(13)
irow = [b65536].End(xlUp).Row
icol = [iv3].End(xlToLeft).Column
For i = 4 To irow
For j = 2 To icol
s = s & IIf(j = 2, "", ",") & Cells(i, j).Value
Next
Next
s = s & "47135c9de9c4b2868420bc542cd34829"
Print #1, s
Close #1 '关闭文件
Application.ScreenUpdating = True
MsgBox "数据已导入文本"
End Sub

复制粘贴不久可以么？

你先把EXCEL里面的东西 复制到 word里 把需要删除的框框都删掉

然后再复制到TXT文本里不就好了？

“文件－另存为”，输入文件名，类型选txt就行了