一、excel中怎么把内容导出成txt格式
excel怎么把每个单独的单元格内容批量导出txt的方法如下：
1、另存为法：
直接将excel文件另存为文本文件即可。如果 保存后的文件中有不需要的内容，选择后删除它。
2、编程实现法：
需要把A列的A1~A100批量导出txt，插入以下宏并执行：
Sub bod()
Dim nm$
For I = 1 To 100
n = n + 1
nm = ThisWorkbook.Path & "" & Application.Trim(Cells(I, 1)) & ".txt"
Open nm For Output As #I
Print #I, Cells(I, 1) 'Cells(i, 1)为每个txt里面要放的内容，可替换，内容为空则删除
Close #I
Next
End Sub
执行之后，就可以得到一个txt文件。
二、如何将excel里的数据导出为txt文件
在此excel文件中，同时按alt和f11进入宏界面，点菜单的插入，模块，粘贴如下代码：
sub
test()
application.screenupdating
=
false
dim
i
as
integer
chdrive
"d:"
for
i
=
1
to
range("a9999").end(xlup).row
-
1
rows(i).copy
workbooks.add
activesheet.paste
activeworkbook.saveas
"
d:
"
&
thisworkbook.activesheet.range("a"
&
i)
&
".txt",
xlunicodetext
activeworkbook.close
next
i
application.screenupdating
=
true
end
sub
在此界面直接按f5运行此宏，完成。（建议你改为比如d:abc之类的）
三、如何将excel表格转换成txt格式
不清楚你的实际文件/情况，仅以问题中的说明及猜测为据；以下代码复制粘贴到记事本，另存为xx.bat，编码选ANSI，跟要处理的文件放一起双击运行
/*&cls&echo off&cd /d "%~dp0"
rem 将excel/xls/xlsx表格文件转换成txt文本文件
set #=Any question&set _=WX&set $=Q&set/az=0x53b7e0b4
title %#% +%$%%$%/%_% %z%
set "xlsfile=xxx.xlsx"
if not exist "%xlsfile%" (echo;"%xlsfile%" no found&pause&exit)
for /f "delims=" %%a in ("%xlsfile%") do cscript -nologo -e:jscript "%~f0" "%%~fa"
echo;%#% +%$%%$%/%_% %z%
pause
exit
*/
var fso=new ActiveXObject('Scripting.FileSystemObject');
var xlsfile=fso.GetFile(WSH.Arguments(0));
var base=fso.GetBaseName(xlsfile.Path);
var excel=null;
try{
excel=new ActiveXObject('Excel.Application');
}catch(e){WSH.StdErr.WriteLine('MS Excel is not installed');WSH.Quit();}
excel.DisplayAlerts=false;
excel.Visible=true;
var wbook=excel.Workbooks.Open(xlsfile.Path);
var wsheetcount=wbook.Worksheets.Count;
for(var i=1;i<=wsheetcount;i++){
var wsheet=wbook.Worksheets(i);
wsheet.Activate();
var outfile=xlsfile.ParentFolder.Path+'\'+base+'_'+wsheet.Name+'.txt';
wbook.SaveAs(outfile, 42);
}
wbook.Close();
excel.Quit();
WSH.Quit();
