作者：乔山办公网日期：
返回目录：excel表格制作
操作步骤 1、打开Excel2010，点击“数据”选项卡，然后在最左边的“获取外部数据”菜单中选择“自文本百”度选项。 2、在“导入文本文件”窗口中选择需要导入的文件。按“导入”按钮。 3、打开“文本导入向导-步骤之1(共知3步)”对话框中并选择“分隔符号”选项。点击“下一步”。 4、打开“文本导入向导-步骤之2”对话框，并添加分列线，点击道“下一步”按钮。 5、打开“文本导入向导-步骤之3”对话框，在“列数据格式”组合框中选中“文本”，然后点击“完成内”按钮。 6、此时会弹出一个“导入数据容”窗口，在中选择“新工作表”，按“确定”按钮即可。 7、返回到Excel工作表，就可以看到数据导入成功了，而且排列整齐。
数据，导入
文本文件，然后找到txt文件，导入
设置放置区域
即可将txt文件导入excel
试试这个
------------------
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,菜单栏-插入-模块，在编辑区域粘贴代码，然后运行。7a686964616fe59b9ee7ad94339（运行时如出现安全提示，可放心通过，让宏运行）
注意的是，这些代码是在2003下运行的，2007去除了FileSearch de 的支持。可以使用Dir 或 FileSystemObject来搜索...详见：http://support.microsoft.com/kb/920229/zh-cn
用：数据-》导入外部数据-》导入数据-》选择TXT 文档-》打开-》根据提示导入