设为首页收藏本站
切换到宽版

 找回密码
 注册
搜索
批处理之家»论坛 › 批处理专区: BAT CMD DOS › BAT求助&讨论 › 【已解决】批处理怎样把多个txt导入Excel？ ...
[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发新帖
查看: 33669|回复: 7

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

[复制链接]
wenlishasha
发表于 2014-6-10 21:00:38 | 显示全部楼层 |阅读模式
本帖最后由 wenlishasha 于 2014-6-11 19:50 编辑

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

评分

参与人数 1PB +2 收起 理由
Batcher + 2 感谢给帖子标题标注[已解决]字样

查看全部评分

回复

举报

522235677
发表于 2014-6-10 21:54:22 | 显示全部楼层
  1. for /f "delims=" %%a in (1.txt) do >>1.csv echo %%a
复制代码
回复

举报

wenlishasha
 楼主| 发表于 2014-6-10 22:15:54 | 显示全部楼层
回复 2# 522235677


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

举报

522235677
发表于 2014-6-11 09:27:22 | 显示全部楼层
回复 3# wenlishasha
你是要一个txt缩成一行然后放在一个单元格里？
  1. @echo off
  2. for /f "delims=" %%a in ('dir /b *.txt') do (
  3.         (for /f "delims=" %%b in (%%a) do <nul set /p=%%b)>>1.csv
  4.         echo.>>1.csv
  5. )
  6. pause
复制代码
回复

举报

DAIC
发表于 2014-6-11 10:36:23 | 显示全部楼层
回复 4# 522235677


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

举报

522235677
发表于 2014-6-11 10:50:09 | 显示全部楼层
回复 5# DAIC


    恩，你有啥办法没有
回复

举报

apang
发表于 2014-6-11 11:42:41 | 显示全部楼层
  1. @set @n=0; /* & echo off
  2. dir /b *.txt | cscript -nologo -e:jscript "%~0" "%~dp0"
  3. pause & exit/b & rem */

  5. var fso = new ActiveXObject("Scripting.FileSystemObject");
  6. var oExcel = new ActiveXObject("Excel.Application");
  7. oExcel.Visible = false
  8. var oBook = oExcel.WorkBooks.Add(); i=1;
  9. while (!WScript.StdIn.AtEndOfStream) {
  10.     var f = WScript.StdIn.ReadLine();
  11.     var txt = fso.OpenTextFile(f).ReadAll();
  12.     var ar = txt.replace(/\r?\n/g,"\n").split("\n");
  13.     for (var j=0; j<ar.length; j++) {
  14.         oExcel.Cells(i,j+1) = ar[j];
  15.     }
  16.     i+=1;
  17. }
  18. oBook.SaveAs(WScript.Arguments(0) + "Result.xls");
  19. oExcel.WorkBooks.Close();
  20. oExcel.Quit();
  21. fso = null; oExcel = null; oBook = null
复制代码

评分

参与人数 1技术 +1 收起 理由
wenlishasha + 1 谢谢帮助！！

查看全部评分

回复

举报

522235677
发表于 2014-6-11 20:02:02 | 显示全部楼层
  1. @echo off
  2. for /f "delims=" %%a in ('dir /b *.txt') do (
  3.         (for /f "delims=" %%b in (%%~sa) do <nul set /p=%%b,)>>1.csv
  4.         echo.>>1.csv
  5. )
  6. pause
复制代码
看了三遍才把你的意思看明白了

评分

参与人数 1技术 +1 收起 理由
wenlishasha + 1 谢谢热情帮助！！

查看全部评分

回复

举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|小黑屋|批处理之家 ( 渝ICP备10000708号 )

GMT+8, 2026-3-17 07:08 , Processed in 0.020926 second(s), 8 queries , File On.

Powered by Discuz! X3.5

© 2001-2026 Discuz! Team.

快速回复 返回顶部 返回列表