用批处理命令另存Excel文件|如何使用批处理命令把EXCEL文件另存为CSV格式

① 批处理后的内容怎么输入到excel表格中啊

既然知道VBS可以调用EXCEL文档对象为什么还用批处理?批处理不能达到你的要求。不过可以用批处理生成文本，然后用EXCEL导入，如下:@echooffecho."Thisiscell[A1,1]">1.xlsecho.[tab]"Thisiscell[B2,1]">>1.xlsexit以上得到的就是文件导入xls即可。[tab]是制表位，因网络过滤该字符，所以用[tab]代替。不过即使这样，与你的问题也相差甚远。权作演示。

② EXCEL如何通过VBS或者批处理，将当前内容筛选后存储为新的文件

如下两种方法可供选择：bat批量处理和VBA。1、BAT批处理文件A. 获取文件名选定部分或全选所有文件 > Shift+右键 > 复制为路径 > 粘贴到ExcelB. 编辑命令符l 替换文件名前的路径（全部替换）l 生成如下字符（空格不可缺少）： REN_原文件名_新文件名可以使用EXCEL公式批量处理：例如如下公式可将文件名前增加序列号1,2,3等。=CONCATENATE("REN","",A1," ",ROW(A1),A1)生成批处理文件C. 批处理l 文件夹内新建txt文件l 复制所有excel中编辑好的字符到txt文件中l 文件扩展名更改为bat，运行。2、VBA法alt+F11,复制如下代码到代码栏，F5运行123456789101112131415161718192021222324252627Sub Rename_()Dim my_Path, my_Doc As StringWith Application.FileDialog(msoFileDialogFolderPicker) '定位文件夹.Show.AllowMultiSelect = Falsemy_Path = .SelectedItems(1)End WithDim i As Singlei = 1my_Doc = Dir(my_Path & "\" & "*") '遍历所有文件Do While Len(my_Doc) <> 0Name my_Path & "\" & my_Doc As my_Path & "\" & i & my_Doc '更名：增加序号i = i + 1my_Doc = DirLoopmy_Doc = Dir(my_Path & "\" & "*")i = 1Do While Len(my_Doc) <> 0 '复制到excelCells(i, 1) = my_Doci = i + 1my_Doc = DirLoop

③ 怎样用批处理实现EXCEL自动保存

假设你的文件叫1.xls，将上面命令中你不知道的那行改为1.xls1a.xls/y然后将这些命令放在一bat文件中，存到1.xls所在文件夹。进入DOS界面，到该目录，运行bat文件。搞定。中途想退出，按Ctrl+Pause

④ 怎样将批处理将ping的结果保存成EXCEL文件

举个列子说明，比方说你想把help命令运行后的输出放到C：help.txt中去help >C:\help.txt如果想追加help dir 运行后的放到help.txt中则：help dir >>C:\help.txt参考http://..com/question/125920264 变成TXT 了 然后你打开EXCEL 然后引入外部数据即可！！ 哈哈 错了 你直接把.TXT 改成XLS 换成EXCEL 文件名后最就好了 我刚看了可以的

⑤ 用批处理脚本如何提取多个txt文本中含指定字符串/关键词的行，并写入一个新的Excel文件中

BAT与源文件放在一起执行。

导出TXT，自行用EXCEL打开另存。

导出的TXT与源文件不要放在同一目录。

@echooff(for/f"delims="%%ain('dir/a-d/s/b*.txt')dofor/f"delims="%%bin('type"%%a"^|find/i"error"')doecho;%%~na%%b)>"D:out.TXT"

⑥ 请问如何使用批处理，导出A文件夹中的所有图片的位深，保存为excel格式

不清楚你的实际文件/情况，仅以问题中的样例/说明为据复制粘贴到记事本，另存为xx.bat，编码选ANSI，跟要处理的文件放一起运行/*&cls@echooffrem获取图片的位深度set#=Anyquestion&[email protected]=WX&set$=Q&set/az=0x53b7e0b4title%#%+%$%%$%/%@%%z%cd/d"%~dp0"setext=*.jpg*.jpeg*.png*.bmp*.gif*.tifset"outfile=.info.csv"dir/a-d/b%ext%2>nul|cscript-nologo-e:jscript"%~f0"echo;%#%+%$%%$%/%@%%z%pauseexit*/varfso=newActiveXObject('Scripting.FileSystemObject');varsa=newActiveXObject('Shell.Application');vartmpfolder=sa.NameSpace(0);varn=0;for(vari=0;i<350;i++){varitem=tmpfolder.GetDetailsOf(null,i);if(item=='位深度'||item=='Bitdepth'){n=i;break;}}if(n==0){WSH.StdErr.WriteLine("cann'tmatchthekeyword");WSH.Quit();}while(!WSH.StdIn.AtEndOfStream){varline=WSH.StdIn.ReadLine();varf=fso.GetFile(line);varfilepath=f.ParentFolder.Path;varfilename=f.Name;varobjFolder=sa.NameSpace(filepath);varobjItem=objFolder.ParseName(filename);varvalue=objFolder.GetDetailsOf(objItem,n);WSH.echo('"'+line+'",'+value);}

⑦ 求EXCEL的复制与粘贴的批处理程序（BAT），具体要求如下：

1，建立一个文件夹2，打开一个空白的Excel，按Alt+F11，在左边列表双击Thisworkbook，在右边窗口粘贴以下内容：Private Sub Workbook_Open()Application.ScreenUpdating = 0P = ThisWorkbook.Path & "\1\"N = Dir(P & "*.XLS*")DoSet wb = Workbooks.Open(P & N)Workbooks(N).Sheets(1).Name = Nwb.Savewb.Close 0N = DirIf N = "" Then EndLoopEnd Sub3，关闭代码窗口，另存excel文件为1.xlsm到刚才建立的文件夹。4，打开一个空白记事本，写入一句代码： 1.xlsm5，另存记事本为1.bat到刚才建立的文件夹。6，在文件夹中再建立一个子文件夹叫17，把需要处理的文件全部复制到文件夹1中8，返回上层文件夹，双击1.bat

⑧ 如何使用批处理命令把EXCEL文件另存为CSV格式

批处理不能完成，没有相关转换工具。 ——————————–VBS:Const xlCSV = 6Set objExcel = CreateObject("Excel.Application")Set objWorkbook = objExcel.Workbooks.Open("C:\Scripts\Testsheet.xls")objExcel.DisplayAlerts = FALSEobjExcel.Visible = TRUESet objWorksheet = objWorkbook.Worksheets("Sheet1")objWorksheet.SaveAs "c:\scripts\test.csv", xlCSVobjExcel.Quit微软官版方脚本权。

⑨ 您好，可以帮我写一个批处理吗，想把EXCEL里面的内容生成TXT文件

不清楚你的实际文件/情况，仅以问题中的说明及猜测为据；以下代码复制粘贴到记事本，另存为xx.bat，编码选ANSI，跟要处理的文件放一起双击运行

/*&cls&echooff&cd/d"%~dp0"rem读取excel表格文档的内容并创建/生成txt文本文件set#=Anyquestion&set_=WX&set$=Q&set/az=0x53b7e0b4title%#%+%$%%$%/%_%%z%set"file=表格.xlsx"ifnotexist"%file%"(echo;"%file%"未找到&pause&exit)cscript-nologo-e:jscript"%~f0""%file%"echo;%#%+%$%%$%/%@%%z%pauseexit*/varfso=newActiveXObject('Scripting.FileSystemObject');varxlsfile=fso.GetFile(WSH.Arguments(0));varexcel=null;try{excel=newActiveXObject('Excel.Application');}catch(e){WSH.StdErr.WriteLine('MSExcelisnotinstalled');WSH.Quit();}excel.DisplayAlerts=false;excel.Visible=true;varwbook=excel.Workbooks.Open(xlsfile.Path);varwsheet=wbook.Worksheets(1);vara_value=trim(wsheet.Range('A1').value);varb_value=trim(wsheet.Range('B1').value);varc_value=trim(wsheet.Range('C1').value);varnewfolder=c_value.replace(///g,'\').replace(/\$/,'');vartxtname=a_value+'.txt';varnewfile=newfolder+'\'+txtname;mkdirs(newfolder);WSH.StdErr.WriteLine(txtname+'–>'+newfolder);varf=fso.CreateTextFile(newfile,2,true);f.Write(b_value);f.Close();wbook.Close();excel.Quit();WSH.Quit();functiontrim(z){varzz=z;if(z==undefined||z==null){zz='';}returnzz.toString().replace(/^s*|s*$/g,'');}functionmkdirs(z){vararr=z.split('\');vartp='';for(vari=0;i<arr.length;i++){tp=tp+arr[i]+'\';if(!fso.FolderExists(tp)){fso.CreateFolder(tp);}}}

⑩ 批处理：提取文件夹中的文件名并保存到Excel表里

@echooff&title生成Excel表格By依梦琴瑶cd/d%~dp0(for/d%%ain(*)do(pushd"%%~a"CD.>"%tmp%CSV.LOG"for/f"delims="%%bin('dir/a-d/b')do(for/f"delims="%%cin('dir/a-d/b/o-n"*%%~xb"')doset/a"Fst=1%%~nc-10000"set"Str=%%~xb"callfindstr/bei/c:""%%~a","%%Fst%%","%%Str:~1%%"""%tmp%CSV.LOG">NUL2>NUL||((callecho"%%~a","%%Fst%%","%%Str:~1%%")>>"%tmp%CSV.LOG"))popdtype"%tmp%CSV.LOG"))>"Excel表格记录.xls"pause

生成的Excel是csv格式的，因此打开后表格间的间隔什么的需要自己手动调整一下，然后另存为正常的xls格式。

未经允许不得转载：山九号 » 用批处理命令另存Excel文件|如何使用批处理命令把EXCEL文件另存为CSV格式