『壹』 txt文件名和内容批量导入excel文件
工具：来Office2013方法如下：1.将当前工作簿所自在文件夹中所有txt文件导入到工作簿中，并以各自txt文件名为名新建工作表：2.打开工作簿，ALt+F11，输入代码如下：代码注释已给出。3.F5执行代码，就可以看到，工作簿中新建了与文件夹中txt一一对应的工作表，且工作表中导入了txt文件内容：
『贰』 如何将TXT文件批量导入EXCEL文件
txt文件导入excel 步骤如下：1、首先，打开excel，选择数据选项卡，自文本选项。2、在弹出的资源管理器界面选择存放好的txt文件后，点击打开按钮。3、此时弹出文本导入向导，由于我的数字是以空格为分隔字符的，所以我选择分隔符号，当然，如果你的文本是固定宽度，你可以选择第二个。然后点击下一步按钮。4、勾选空格，检验预览数据是否和自己预想的一致。一致后继续点击下一步按钮。5、查看预览效果。并选择列数据格式，此处没什么特别要求，建议选择常规，常规也是excel默认的格式。点击完成。6、在弹出的对话框中，选中要导入的数据区域，此处我要导入到当前单元格，并且从a1单元格开始，因此我选择a1单元格，多余的数据会自动以此单元格向两边张开。点击确定按钮我们的数据就算是完美的导入进来了。
『叁』 如何将txt批量导入excel（对excel宏了解的一定看过来谢谢了）有工具也行
假设你所有的文本文件都在“D:\text”目录下，我们只处理.txt文件。步骤1：导出文件列表点xp系统的开始菜单，点“运行”命令，输入cmd再回车，进入命令窗口，输入命令dirD:\text\*.txt/b/on>c:\list.txt,回车。现在在c:盘下会有个list文件，包含要处理de文件的文件名。步骤2：运行下面代码。OptionExplicitPublicConstsPathAsString="D:\text"'请改为你的txt所在的路径PublicFileName()AsString'要处理的文件名PublicMyString()AsString'从text中读取内容SubReadFile()DimgetLine'每次读取一行数据Dimi%,t%,k%i=FreeFileOpen"c:\list.txt"ForInputAs#i'打开输入文件。DoWhileNotEOF(i)Input#i,getLine'将数据读入变量。t=t+1Loopk=t-1ReDimFileName(k),MyString(k)t=0Seek#i,1'设置文件的第一条记录DoWhileNotEOF(i)Input#i,FileName(t)FileName(t)=sPath&"\"&FileName(t)t=t+1LoopClose#i'关闭文件。'读取txt内容到本excel表格Fort=0Toki=FreeFileOpenFileName(t)ForInputAs#iDoWhileNotEOF(i)Input#i,getLineMyString(t)=MyString(t)&vbNewLine&getLineLoopClose#iWithThisWorkbook.Sheets(1).Cells(t+1,1)=FileName(t).Cells(t+1,2)=Right(MyString(t),Len(MyString(t))-2)EndWithNexttEndSub
『肆』 txt数据批量导入excel中
请你打开cmd，进行txt文件所在的文件夹，执行命令：log*.txtt_log.txt即可将全部log*.txt合拼到t_log.txt中。要注意原文件的首尾连接处的回车换行问题，请编辑更正。再用excel数据导入t_log.txt文件即可全部导入文件数据。
『伍』 如何批量将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 LoopEnd Sub
『陆』 如何把若干个txt文件导入一个excel表
操作步骤1、打开excel2010，点击“数据”选项卡，然后在最左边的“获取外部数据”菜单中选择“自文本”选项。2、在“导入文本文件”窗口中选择需要导入的文件。按“导入”按钮。3、打开“文本导入向导-步骤之1(共3步)”对话框中并选择“分隔符号”选项。点击“下一步”。4、打开“文本导入向导-步骤之2”对话框，并添加分列线，点击“下一步”按钮。5、打开“文本导入向导-步骤之3”对话框，在“列数据格式”组合框中选中“文本”，然后点击“完成”按钮。6、此时会弹出一个“导入数据”窗口，在中选择“新工作表”，按“确定”按钮即可。7、返回到excel工作表，就可以看到数据导入成功了，而且排列整齐。
『柒』 如何把多个txt文档导入excel对应单元格
首先得看你的TXT文档内容之间是用空格分开的还是TAB符号分开的。如果是TAB符号分开的，可以直接将内容复制、粘贴到EXCEL中如是是空格分开的，可以把空格（也可以是其它标志符）全部替换成TAB符号，再复制、粘贴到EXCEL中或者用EXCEL直接打开TXT文档1、点EXCEL“文件”，“打开”，文件类型为“所有文件”，浏览到欲打开的TXT文档，打开2、点”下一步“3、在分隔符号中勾选”空格“，再下一步，完成即可。多个文档操作方法一样。如果内容即无空格分开，也无TAB符号分开，这个要稍麻烦一点。在此不多说。不明白请追问或私聊。
『捌』 如何将多个txt批量导入Excel并以txt文件名命名工作表名称
使用如下VBA代码实现，复制粘贴到VBA模块中运行即可（alt+F11)。Sub import_txt()On Error Resume NextDim my_Link, my_Doc As StringWith Application.FileDialog(msoFileDialogFolderPicker).Show.AllowMultiSelect = Falsemy_Link = .SelectedItems(1)End WithDim doc_Count As Singledoc_Count = 0my_Doc = Dir(my_Link & "\" & "*.txt")Do While Len(my_Doc) <> 0Worksheets.AddActiveSheet.Name = my_DocDim my_Word As StringDim i As Singlei = 1Open my_Link & "\" & my_Doc For Input As #1Do While Not EOF(1)Line Input #1, my_WordCells(i, 1) = my_Wordi = i + 1LoopClosedoc_Count = doc_Count + 1my_Doc = DirLoopMsgBox "共导入" & doc_Count & "个文件"End Sub
『玖』 如何将多个txt文件批量导入一个excel文件
可以考虑先用dos命令，合并所有txt比如说在E:\盘符下有两个文件1.txt2.txt需要合并为一个txt文件，cmd进入dos命令，E:\>1.txt+2.txtall.txt然后再把all.txt导入或直接拖入excel打开
『拾』 怎么把很多文档导入一个表格
您好，方法1、要将多个txt文本文件内容导入一个excel表格中，一般大家想到的方法就是使用vba来实现。今天，我们这里不使用vba，而是先使用dos命令来合并txt文件，再用excel数据导入功能。2、这里所有的txt文件在同一目录下，如果实际txt不在同一目录下，可以利用搜索“txt文件”功能，将所有需要的txt找到后拷贝到同一目录下，或者直接利用dos命令来实现。3、合并txt文件运行cmd，并将当前目录切换到txt文件所在目录。4、首先，利用for 命令轻松实现将所有的txt文件合并，合并生成all.txt文件并保存在上一级目录中。5、excel导入合并文件在excel数据工具栏中，点击“获取外部数据”——“自文本”，在弹出的对话框中，选择刚合并生成的all.txt文件打开。6、弹出“文本导入向导”，选择“分隔符号”，点击”下一步“。7、然后根据文本实际选择“分隔符号”，这里勾选“TAB键”和“空格”，然后点下一步。8、预览一下，看数据字段有没有正确被识别，如果不正确，重新修改分隔符，反之，点“完成”。9、然后，选择数据放置的位置，点“确定”开始导入数据。
未经允许不得转载：山九号 » 如何将多个txt文件导入多个excel|txt文件名和内容批量导入excel文件
