Excel批量导入文件的宏代码

在网上找了半天，没有发觉现成的批量导入文件的宏代码。就自己写了一个，用的时候对应改两处文件夹的名称就行了。
Sub Macro1()
k=1
file=Dir("C:\zzm\measure\data22052009\7P230K*.*")
while file<> ""
Range ("A"&k).Select
With ActiveSheet.QueryTable.Add(Connection:=_
"TEXT;C:\zzm\measure\data22052009\"&file,Destination:=Range("A"&k))
.Name="U10AK"
.FieldNames=True
.RowNumbers=False
.FillAdjacentFormulas=False
.PreserveFormatting=True
.RefreshOnFileOpen=False
.RefreshStyle=xlInsertDeleteCells
.SavePasswor=False
.SaveData=True
.AdjustColumnWidth=True
.RefreshPeriod=0
.TextFilePromptOnRefresh=False
.TextFilePlatform=437
.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)
.TextFileTrailingMinusNumbers=True
.Refresh BackgroundQuery:=False
End With
' k=k+1
file=Dir()
Wend
End Sub