小吳 VBQA 程式設計討論

Open Text1.Text For Input As #1　　　　　　　 '打開引入檔
Do While Not (EOF(1))
Line Input #1, row1
a = a + 1
customer_temp = Split(row1, ",") '將引入的字串用"，"區分開:
Loop
Close #1
ReDim Preserve customer(a, UBound(customer_temp) + 1)
　　Open Text1.Text For Input As #1　　　　　 '打開引入檔
Do While Not (EOF(1))
For i = 0 To a - 1
Line Input #1, row1
　 customer_temp = Split(row1, ",")
　　 For j = 0 To UBound(customer_temp)
　　　　　　customer(i, j) = customer_temp(j)
　　 Next j
　　
Next i
Loop
以上是我的程式…我用open打開txt檔，但現在希望能在不關閉整個from的情況下，就可以直接再引入另一個txt檔(例:已經用a.txt執行程式後，再選b.txt來執行主程式)