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

Question

如题所述

Answer 1

第一步，将txt文档合并为一个大的txt文档。
打开记事本，输入for
%%i
in
(*.txt)
do
type
%%i>>0.txt（可将该命令复制粘贴过去）
然后将文件保存到500多个txt文件所在的文件夹，文件的后缀名为.bat文件。比如保存为all.bat
在文件夹中双击运行all.bat批处理文件，将文件夹中所有txt文档合并为一个名字叫0.txt的文档。
第二步，打开excel文档，新建一个工作表，然后打开0.txt，将内容全部复制粘贴到这个新工作表的A列。
第三步，在这个新工作表的B列、C列、D列等列设置公式
根据txt文件内容的特殊字符，自动从txt中截取所需内容。

Answer 2

试试这个
------------------
Sub micro123()
directory = "C:\txtTemp" '你存放txt文件的目录
With Application.FileSearch
.LookIn = directory
.SearchSubFolders = True
.Filename = "*.txt"
If .Execute() > 0 Then
MsgBox "There were " & .FoundFiles.Count & " file(s) found."
For i = 1 To .FoundFiles.Count
Sheets.Add
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & .FoundFiles(i), Destination:=ActiveSheet.Range("A1"))

.Refresh BackgroundQuery:=False
End With
Next i
Else
MsgBox "There were no files found."
End If
End With
End Sub
-----------
你把--------------中间的代码复制，打开excel，按下alt+f11,菜单栏-插入-模块，在编辑区域粘贴代码，然后运行。（运行时如出现安全提示，可放心通过，让宏运行）
注意的是，这些代码是在2003下运行的，2007去除了FileSearch de 的支持。可以使用Dir 或 FileSystemObject来搜索...详见：http://support.microsoft.com/kb/920229/zh-cn