|
#2
xiangyue05102015-09-17 10:38
多层循环就可以啊, 当然可以。比如说
 程序代码：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 |
需要将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表示），这样只需要一段程序就可以完成。