请教怎么样把记事本格式批量导入EXCEL中?

wmr7910

当TXT文件过多的时个,一个一个的导入EXCEL是一件非常繁锁的事情,请教批量导入的方法？
我也在网上搜索了一个方法，但是步骤二我看不懂怎么操作？请教高人指点！感谢
有时,我们可能会遇到记事本文件改入EXCEL中的工作.我们可以使用外部数据导入功能进行操作.可是,当TXT文件过多的时个,一个一个的导入EXCEL是一件非常繁锁的事情,下面,我给大家介绍一种批量导入的方法,批量导入EXCEL后再在EXCEL对你要用的数据进行合并和删除就要简单多了.

步骤1：导出文件列表
假设你的TXT文件全存放在D盘下的TEXT文件夹下.那么就进行下面的操作:点xp系统的开始菜单，点“运行”命令，输入cmd再回车，进入命令窗口，输入命令 dir D:\text\*.txt /b /on > c:\name.txt ,回车。在你的电脑C盘下就会生成一个name.txt的文件,里面包含D盘下TEXT里的所有记事本的文件名.
步骤2：运行下面代码
Option Explicit
Public Const sPath As String = "D:\text" '你的txt所在的路径
Public FileName() As String  '文件名
Public MyString() As String
Sub ReadFile()
Dim getLine

Dim i%, t%, k%

    i = FreeFile
    Open "c:\name.txt" For Input As #i

    Do While Not EOF(i)
        Input #i, getLine

        t = t + 1
    Loop
    k = t - 1
    ReDim FileName(k), MyString(k)
    t = 0
    Seek #i, 1

    Do While Not EOF(i)
        Input #i, FileName(t)
        FileName(t) = sPath & "\" & FileName(t)
        t = t + 1
    Loop
    Close #i   
        For t = 0 To k  '下面是将TXT文件写入EXCEL
        i = FreeFile
        Open FileName(t) For Input As #i
        Do While Not EOF(i)
            Input #i, getLine
            MyString(t) = MyString(t) & vbNewLine & getLine
        Loop
        Close #i
        With ThisWorkbook.Sheets(1)
            .Cells(t + 1, 1) = FileName(t)
            .Cells(t + 1, 2) = Right(MyString(t), Len(MyString(t)) - 2)
        End With
    Next t
      
End Sub

附上我想要的格式

wolf03

dos 的绝对路径放到user目录下，然后执行type *.txt >>合并.txt
即可合并成一个TXT文件

不过我不清楚你为什么在EXCEL里两个文件的数据中间又要插入那么多空行是什么意思

wmr7910

,插入空行是为了区分两个不同的记事本资料，如果不插入空行也行阿。谢谢！不过您的回答我还是不清楚具体怎么操作！

wolf03

生成的hebin.txt直接用EXCEL打开就行了，如果只在第一列里有，可以再分列一下

灬羽痕灬

嗯，就楼上那样

wmr7910

感谢热心解答。