VBA访问TXT文件的问题

Question

我有大量TXT文本文件，300多个，我现在要提取其中的某些数据，并用EXCEL里VBA处理结果保存为EXCEL 文件，我想在只会访问EXCEL 里的数据，请问如何访问TXT文本格式的数据？如果用笨办法把文本文件在转换为EXCEL表格在处理，一是麻烦，二是效力太低！！所有的文本文件格式相同，不同的字段用TAB或者是逗号隔开！
问题1：如何访问读取文本文件的数据？

Answer 1

如果用编程，可以将tab都转换成逗号（用记事本中的替换操作），将其另存为csv文件，就可以在Excel中打开了。

Answer 2

用导入数据吧：
录制一个宏：
数据－导入外部数据－导入数据－选TXT文件，导入，设置分隔符，各列的格式等。
下面是一个简单的录制宏结果
QueryTables.Add
Sub Test()
    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;E:\Test.txt", Destination:=Range("A1"))
        .Name = "20060801"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 936
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = True
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = True '分隔符为空格
        .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1) '数据格式
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False　
    End With
End Sub

Answer 3

真是人多力量大啊　
alidavy() 的主意好，接分！