excel表转换为TXT格式

Question

您好，我们单位是要这种格式
1|1|0|603123018200066134|8856.85||||工资||
2|2|0|603123018200066159|7650.00||||工资||
3|3|0|603123018200066167|1338.23||||工资||
4|4|0|603123018200066175|1612.85||||工资||
5|5|0|603123018200066183|1600.91||||工资||
6|6|0|603123018200066191|4518.30||||工资||
7|7|0|603123018200066206|2356.83||||工资||
应该怎么办内？

Answer 1

excel转换成txt的操作方法：

不同版本的Excel操作略有不同，但大同小异。

1.先将Excel表格“文件”→另存为，然后选择“CSV”格式；然后将“CSV”格式文件用“记事本”来打开，打开后效果如下图。

2.打开后将文件另存为“TXT”格式即可。

Answer 2

把excel文件另存为csv文件，然后用记事本打开，把“,”都替换成“|"，在保存，就行了！本回答被网友采纳

Answer 3

完善下森林浴1 的代码,按ALT+F11,菜单-插入-模块-右边空白处粘贴以下代码，按F5执行，代码如下：
Sub DOIT()
For k = 1 To 5
For i = 1 To 5
If Cells(i, k) <> "" Then
a = Mid(Cells(i, k), 4, 2)
b = Mid(Cells(i, k), 1, 2)
c = Mid(Cells(i, k), 7, 4)
Cells(i, k) = a & "/" & b & "/" & c
Cells(i, k).NumberFormatLocal = "mm/dd/yyyy"
End If
Next i
Next k
End Sub

其中For k = 1 To 5
For i = 1 To 5
第一句指的1到5列
第二句指的1到5行
你可以根据自己的实际数据范围进行适当更改。
如你的数据区域为A1:F8的话，就应写为：
For k = 1 To 6
For i = 1 To 8
其余不变。
你可以给该宏指定一个快捷键，以后用快捷键就行。
祝你成功！

Answer 4

下载个格式工厂，基本格式都可以转得,TXT不用说

Answer 5

复制，粘贴，试一下

Answer 6

把excel文件另存为csv文件，然后用记事本打开，把“,”都替换成“|"，在保存，就行了！本回答被网友采纳

Answer 7

完善下森林浴1 的代码,按ALT+F11,菜单-插入-模块-右边空白处粘贴以下代码，按F5执行，代码如下：
Sub DOIT()
For k = 1 To 5
For i = 1 To 5
If Cells(i, k) <> "" Then
a = Mid(Cells(i, k), 4, 2)
b = Mid(Cells(i, k), 1, 2)
c = Mid(Cells(i, k), 7, 4)
Cells(i, k) = a & "/" & b & "/" & c
Cells(i, k).NumberFormatLocal = "mm/dd/yyyy"
End If
Next i
Next k
End Sub

其中For k = 1 To 5
For i = 1 To 5
第一句指的1到5列
第二句指的1到5行
你可以根据自己的实际数据范围进行适当更改。
如你的数据区域为A1:F8的话，就应写为：
For k = 1 To 6
For i = 1 To 8
其余不变。
你可以给该宏指定一个快捷键，以后用快捷键就行。
祝你成功！

Answer 8

下载个格式工厂，基本格式都可以转得,TXT不用说

Answer 9

复制，粘贴，试一下