需要将n个txt文本文档中的数据导入excel中，即分别将1.txt，2.txt...n.txt中数据分别导入sheet1，sheet2.。。sheetn。其中n为输入值，是一个变量（1~40）。我现在是n=1-40范围内，每一个n写了一段程序，输入n为几，就调用哪段程序。求助：能不能用一个循环结构，（将程序中的1.txt到n.txt用变量x.txt表示，sheet1到sheetn用变量sheetx表示），这样只需要一段程序就可以完成。

多层循环就可以啊, 当然可以。比如说

For i=1 to n

 Open "C:\" & i & ".txt" for input as #1 

 Do While Not EoF(1)
  line input #1,a
  Sheets("Sheet" & i).range("A1")=a

 Loop

 Clsoe #1
Next i

刚学VB，什么都不懂，感谢您的解答呀