如題,可是很慢,光是三筆資料就花了我二分鐘的時間…
請問我該如何增加速度呢??
Private Sub Form_Load()
fname = Dir(App.Path + "\*.txt")
End Sub
Private Sub Command1_Click()
While fname <> ""
s = Split(fname, ".")
conTain = ""   'conTain 是用來存放文字檔內容的變數
Open App.Path + "\" + fname For Input As #1
While Not EOF(1)
      Line Input #1, aline  '讀一行資料放到aline變數
      conTain = conTain & aline & vbCrLf
      DoEvents
    Wend
Close #1
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields(0).Value = conTain
Adodc1.Recordset.Update
DoEvents
fname = Dir
Wend
End Sub
arrow
arrow
    全站熱搜

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