VBA访问TXT文件的问题
我有大量TXT文本文件，300多个，我现在要提取其中的某些数据，并用EXCEL里VBA处理结果保存为EXCEL 文件，我想在只会访问EXCEL 里的数据，请问如何访问TXT文本格式的数据？如果用笨办法把文本文件在转换为EXCEL表格在处理，一是麻烦，二是效力太低！！所有的文本文件格式相同，不同的字段用TAB或者是逗号隔开！
问题1：如何访问读取文本文件的数据？
[解决办法]
用导入数据吧：
录制一个宏：
数据－导入外部数据－导入数据－选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
