Dim t3 As WinForm.TextBox = e.Form.Controls("TextBox3")

Dim t4 As WinForm.TextBox = e.Form.Controls("TextBox4")

Dim t5 As WinForm.TextBox = e.Form.Controls("TextBox5")

Dim t6 As WinForm.TextBox = e.Form.Controls("TextBox6")

Dim App As New MSExcel.Application

For Each File As String In FileSys.GetFiles(t5.value)

    MessageBox.Show(file)

    Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(file)

    Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)

    Dim Rg As MSExcel.Range = Ws.Cells(t3.value,t4.value).offset(-1)

    Rg.Value = t6.value

    MessageBox.Show(t6.value)

    App.Visible = False

    wb.save

    App.Quit

    Output.Show(File)

    Dim tx As WinForm.TextBox = e.Form.Controls("TextBox1")

    tx.text = FileSys.Getname(file)

Next

麻烦老师看看是不是红色部分有问题呢