导入文本文件中的数据到Excel

导入TXT文件中的内容到Excel

Sub OpenText()
    Workbooks.OpenText _
        Filename:=ThisWorkbook.Path & "\数据源.txt", _
        StartRow:=2, _
        DataType:=xlDelimited, _
        Other:=True, _
        OtherChar:="|"
    ActiveWorkbook.Sheets(1).Columns("A").AutoFit
End Sub

文本文件内容格式    以下两种格式都可以   --------     数据源.txt

序号|姓名|出生日期
#0001|张三|20010102
#0002|李四|19811201
#0003|王五|19950701
#0004|赵六|19890225

或者

序号  姓名    出生日期
#0001    张三    20010102
#0002    李四    19811201
#0003    王五    19950701
#0004    赵六    19890225