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來執行主程式)
arrow
arrow
    全站熱搜

    vbqa 發表在 痞客邦 留言(6) 人氣()