如何将excel表格转换成txt格式
发布网友
发布时间：2022-04-25 14:23
我来回答
共2个回答
热心网友
时间：2022-06-20 23:05
不清楚你的实际文件/情况，仅以问题中的说明及猜测为据；以下代码复制粘贴到记事本，另存为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();
热心网友
时间：2022-06-20 23:05
首先将表格另存为".csv"的格式，然后用记事本打开，或者将此文件的后缀名.csv改为.txt再打开
