Question

怎么将Excel文件批量转化成txt格式？大量文件，在线等！求解

有大量的Excel文件存储的数据需要转化为txt格式，才能导入到系统中。数据在Excel中是这样保存的。





Answer 1

随便写个宏批量另存为txt格式就行了，如果文件名很有规律，直接写循环，如果没啥规律就遍历文件夹。

Workbooks(1).SaveAs Filename:="C:\1.txt", FileFormat:=xlUnicodeText, CreateBackup:=False

追问

谢谢，对VB完全不懂啊，文件名没用规律，求详解

追答

完全不懂…… 那还是有点麻烦，我给你代码也得你自己调试修改啊。
不然你去下个xls2csv吧，csv也算是txt格式的，只是有逗号分割而已。
xls2csv可以将xls转成csv格式，利用windows批处理命令for即可实现批量转换。
命令如下：
@echo off
rem 放在xls目录外面，将在xls目录下生成对应的csv文件
rem xls2cvs工具所在的目录
set XLS2CSV_HOME=E:\setup\xls2csv
for /r %%i in (*.xls) do @%XLS2CSV_HOME%\xls2csv.exe %%i gbk
pause

Answer 2

先将EXCEL文件导入ACCESS，然后再从ACCESS中导出为文本文件

追问

请问，可以批量导入么？我需要Excel文件和转化后的txt对应着

追答

这个得搞VBA代码才能实现了，再找高手吧，不过貌似网上有类似写好的代码，你需要按照导入导入文件的地址修改一些参数，自己从网上找吧。

追问

谢谢

Answer 3

修改倒数第3、4行代码为：
ActiveWorkbook.SaveAs Filename:=s2 & "\" & s3 & ".txt", FileFormat:= _
xlText, CreateBackup:=False
ActiveWindow.Close savechanges:=False

追问

修改哪里的代码？

追答

方法一：
先选定一整行或是一整列，如果是要整个工作表成为文本，可以点一下右上角的一个灰色方块选定整个工作表→点击右键→设置单元格格式→数字选项卡→文本→确定

方法二：
可以用常用工具栏上的“格式刷”