如何用<em>vba</em>读取多个txt文件名和txt文件内容写入exce...

1、如下图所示，我们在TXT文本内有一些数据内容，想要把他们转到excel表格百中。接下来我们先打开excel表格。

2、在表格上面的菜单工具栏中有一项数据选项，我们点击选择它，在数据选项下有一项是获取外部数据选项卡，如下图所示。

3、在获取外部数据选项卡下，其中就有一项是来度自文本选项，我们点击选择，接下来就会蹦出来一个文本路径选择的对话框。

4、在对话框中我们点击选择我们要导入问数据的文本，点击右下角的导入按钮，就会蹦出来一个文本导入的一个向导。

5、根据向导对话框指示，我们点击右下角的一个下一步按钮，即分隔符答的选择，即数据分割为两个单元格回的分隔符。

6、在这里是想要把前面的人名和后面的产品名字分割为两个单元格，故分隔符就选择为文本中显示的即空格，如下图所示，左下角还有一个数据预览，如果没问题就点击下一步。

7、在最后一步中，可以根据你自己的数据来进行数据格答式的选择，这个根据实际情况来进行选择操作就可以了，设置完成就点击右下角的完成按钮。

8、最后再选择一下数据放置的位置。完成效果图。

可以运行下面这段代码，稍加调试一可以达到目标了。

Sub cht()
Dim objFSO As Object, objFile As Objectg
Dim txtpath As String, cr As Long, ct As String, d As String, allt
txtpath = ThisWorkbook.Path & "\text.txt" '该为你自己的路径e79fa5e98193e78988e69d83331
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile(txtpath, 1)
d = objFile.ReadAll
allt = Split(d, vbCrLf, -1, 1)
objFile.Close
cr = InputBox("输入需要更改的文本行数")
ct = InputBox("输入需要更改的文本内容")
allt(cr - 1) = ct
Set objFile = objFSO.createtextfile(txtpath, 1)
d = Join(allt, vbCrLf)
objFile.write d
objFile.Close
Set objFile = Nothing: Set objFSO = Nothing
End Sub

• BAT与源zd文件放在一起执行。版

• 导出TXT，自行用EXCEL打开另存。

导出的TXT与源文件不要放在同一目录权。

• @echo off
  (for /f "delims=" %%a in ('dir /a-d/s/b *.txt') do for /f "delims=" %%b in ('type "%%a"^|find /i "error"') do echo;%%~na %%b)>"D:\out.TXT"

用vba去遍历，来提取文源件名。资料如下供百参度考

http://club.excelhome.net/thread-1258425-1-1.html

提取txt文件问内容，可以答通过vba处理