关于Excel的宏问题

离鸿2020.03.26回答SubMacro1()''Macro1Macro'宏由ttt录制，时间:2010-4-30''WithActiveSheet.QueryTables.Add(Connection:=_"TEXT;C:\DocumentsandSettings\zjz\桌面\其他应用程序\学习\188510036高程.txt",Destination_:=Range("B3")).Name="188510036高程".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=False.TextFileSemicolonDelimiter=False.TextFileCommaDelimiter=False.TextFileSpaceDelimiter=True.TextFileColumnDataTypes=Array(1,1,1,1,1,1).TextFileTrailingMinusNumbers=True.RefreshBackgroundQuery:=FalseEndWithActiveWindow.SmallScrollDown:=5Range("B25").SelectWithActiveSheet.QueryTables.Add(Connection:=_"TEXT;C:\DocumentsandSettings\zjz\桌面\其他应用程序\学习\188510046高程.txt",Destination_:=Range("B25")).Name="188510046高程_2".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=False.TextFileSemicolonDelimiter=False.TextFileCommaDelimiter=False.TextFileSpaceDelimiter=True.TextFileColumnDataTypes=Array(1,1,1,1,1,1).TextFileTrailingMinusNumbers=True.RefreshBackgroundQuery:=FalseEndWithActiveWindow.SmallScrollDown:=10Range("B33").SelectWithActiveSheet.QueryTables.Add(Connection:=_"TEXT;C:\DocumentsandSettings\zjz\桌面\其他应用程序\学习\188510065高程.txt",Destination_:=Range("B33")).Name="188510065高程".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=False.TextFileSemicolonDelimiter=False.TextFileCommaDelimiter=False.TextFileSpaceDelimiter=True.TextFileColumnDataTypes=Array(1,1,1,1,1,1).TextFileTrailingMinusNumbers=True.RefreshBackgroundQuery:=FalseEndWithActiveWindow.SmallScrollDown:=-60EndSub加黑的是一些相同的东西，我想用循环解决问题，主要要解决的问题有这么几个，1，每次要导入的文本都在一个文件，但和上次的文件夹名称和路径都有不同；2，不能保证每个文件里的行数相同，但导入后要让不同文件间的数据有一定间隔；可以半自动，最好在要导入的文件下创建一个表格就可以自己找到所在的文件！求采纳，谢谢