请教如何把excel格式转换成txt格式,急

发布网友发布时间：2022-04-23 04:02

共5个回答

热心网友时间：2023-10-18 09:57

最自动化的方法，不懂的可以问我
Option Explicit

Sub tansTXT()
Dim s As String, name As String
Dim i%, j%, irow%, icol%
Dim X As Integer
Dim FullName As String, rng As Range

irow = [a65536].End(xlUp).Row
icol = [iv3].End(xlToLeft).Column

For i = 2 To Sheet1.[a65536].End(xlUp).Row
Cells(i, 4) = CStr(Trim(Cells(i, 1))) & "|" & CStr(Trim(Cells(i, 2))) & "|" & CStr(Trim(Cells(i, 3)))
Next

Columns("A:C").Select
Selection.Delete Shift:=xlToLeft

FullName = Replace(ThisWorkbook.FullName, ".xls", ".txt")
Open FullName For Output As #1
For i = 1 To irow
For j = 1 To icol
s = s & Cells(i, j).Value & vbCrLf
Next
Next
Print #1, s
Close #1
s = ""

End Sub

热心网友时间：2023-10-18 09:58

可以的，但最好是纯文字和表格的，不要带图。
EXCEL2003的话，点文件---另存为，在跳出的对话框里，最下面的“保存类型”里选择*.TXT即可。
EXCEL2007的话，点文件--另存为---其他格式，在跳出的对话框里，最下面的“保存类型”里选择*.TXT即可。
EXCEL2010。。。。。这个计算机上没装，晚上帮你看看，估计和2007一样的方法。

热心网友时间：2023-10-18 09:58

新建一个a.txt文件，直接将Excel全选(Ctrl+A)复制(Ctrl+C)，用记事本打开a.txt粘贴(Ctrl+V)到文件中,按Ctrl+H，将记事本中的Tab字符（“ ”）替换成“|”即可。

热心网友时间：2023-10-18 09:59

三个办法：
1、文件，另存为，文本文件。
2、用word打开，将表格转换成文本，
用替换功能，将空格替成|，存成文本文本就行了
3、直接用记事本处理。

热心网友时间：2023-10-18 09:59

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

热心网友时间：2023-10-18 09:57

热心网友时间：2023-10-18 09:58

新建一个a.txt文件，直接将Excel全选(Ctrl+A)复制(Ctrl+C)，用记事本打开a.txt粘贴(Ctrl+V)到文件中,按Ctrl+H，将记事本中的Tab字符（“ ”）替换成“|”即可。

热心网友时间：2023-10-18 09:59

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