本文目录一览：

如何批量将txt文件导入EXCEL？

'VBA代码放在"模块"里

Sub 提取记事本内容()

Dim strGetFile$, strPath$, i, j

strPath = "K:/程序设计/VBA/EXCEL-VBA/批量TXT导入"

ThisWorkbook.Activate

strGetFile = Dir(strPath "/*.txt")

If strGetFile = "" Then Exit Sub

j = 1

Do While Len(strGetFile) 0

Workbooks.Open strPath "/" strGetFile

If ActiveWorkbook.Name ThisWorkbook.Name Then

Sheets(1).Activate

Columns(1).Copy ThisWorkbook.Sheets("提取记事本内容").Cells(1, j)

j = j + 1

ActiveWorkbook.Close

End If

strGetFile = Dir

Loop

End Sub

如何将多个txt文件批量导入一个excel文件

第一步，将txt文档合并为一个大的txt文档。

打开记事本，输入for

%%i

in

(*.txt)

do

type

%%i0.txt（可将该命令复制粘贴过去）

然后将文件保存到500多个txt文件所在的文件夹，文件的后缀名为.bat文件。比如保存为all.bat

在文件夹中双击运行all.bat批处理文件，将文件夹中所有txt文档合并为一个名字叫0.txt的文档。

第二步，打开excel文档，新建一个工作表，然后打开0.txt，将内容全部复制粘贴到这个新工作表的A列。

第三步，在这个新工作表的B列、C列、D列等列设置公式

根据txt文件内容的特殊字符，自动从txt中截取所需内容。

或者将txt文件合并粘贴到新工作表后，将文件发我Q：1055581074

如何在excel中一次性导入多个txt文件？

具体操作步骤如下：

1、先全选需要导入EXCEL的TXT文件；

2、把选择好的TXT文件添加到压缩文件，注意，设置压缩方式的时候选“存储”；

3、把压缩好的RAR文件扩展名改为TXT（会提示更改扩展名文件不可用，不管它，点确定就好）；

4、打开刚刚改了名字的TXT文件，全选里面的内容，然后复制到EXCEL里，再把文件首的乱码删了就完成了。

批量导入txt到excel

可这么操作：

1、在EXCEL空白表，点选“数据/导入外部数据/导入数据”，在目录中点选已经保存的txt格式文件名，点“打开”按钮；

2、在“导入文本向导”界面，选“分隔符号/下一步/分隔符号/空格/下一步/完成”；

3、在“导入数据”界面，选“现有工作表”，确定，即可将txt格式文件全部数据导进现有空白EXCEL工作表中光标所在处。

txt数据如何批量导入excel

使用专门的脚本工具软件“无敌点击狗”即可，你能轻松快捷地做这些批量提取，自动导入的功能。

而且无敌点击狗软件支持多种数据录入，自动鼠标点击，键盘按键模拟，能帮你解决日常的各类办公自动化需求。