VBA访问TXT文件的有关问题

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 宁愿停歇在你门前的那棵树上，看着你，守护你。