[文件操作] 【已解决】批处理怎样把多个txt导入Excel？

wenlishasha

求助论坛高手，有没有办法批量把多个txt导入到excel中，要求：
1个txt做一行（每个txt可能有多行，每行做excel的一个单元格）

522235677

for /f "delims=" %%a in (1.txt) do >>1.csv echo %%a
复制代码

wenlishasha

回复 2# 522235677


    谢谢！
但一次只能导入一个txt
而且一个txt导进去了成为了多行

522235677

回复 3# wenlishasha
你是要一个txt缩成一行然后放在一个单元格里？

@echo off
for /f "delims=" %%a in ('dir /b *.txt') do (
	(for /f "delims=" %%b in (%%a) do <nul set /p=%%b)>>1.csv
	echo.>>1.csv
)
pause
复制代码

DAIC

回复 4# 522235677


    文本内容有逗号就会出问题吧

522235677

回复 5# DAIC


    恩，你有啥办法没有

apang

@set @n=0; /* & echo off
dir /b *.txt | cscript -nologo -e:jscript "%~0" "%~dp0"
pause & exit/b & rem */

var fso = new ActiveXObject("Scripting.FileSystemObject");
var oExcel = new ActiveXObject("Excel.Application");
oExcel.Visible = false
var oBook = oExcel.WorkBooks.Add(); i=1;
while (!WScript.StdIn.AtEndOfStream) {
    var f = WScript.StdIn.ReadLine();
    var txt = fso.OpenTextFile(f).ReadAll();
    var ar = txt.replace(/\r?\n/g,"\n").split("\n");
    for (var j=0; j<ar.length; j++) {
        oExcel.Cells(i,j+1) = ar[j];
    }
    i+=1;
}
oBook.SaveAs(WScript.Arguments(0) + "Result.xls");
oExcel.WorkBooks.Close();
oExcel.Quit();
fso = null; oExcel = null; oBook = null
复制代码

522235677

@echo off
for /f "delims=" %%a in ('dir /b *.txt') do (
        (for /f "delims=" %%b in (%%~sa) do <nul set /p=%%b,)>>1.csv
        echo.>>1.csv
)
pause
复制代码

看了三遍才把你的意思看明白了