Dim t3 As WinForm.TextBox = e.Form.Controls("单元格行")

Dim t4 As WinForm.TextBox = e.Form.Controls("单元格列")

Dim t5 As WinForm.TextBox = e.Form.Controls("文件目录")

Dim t6 As WinForm.TextBox = e.Form.Controls("单元格新值")

Dim t7 As WinForm.TextBox = e.Form.Controls("运行状态")

Dim js As WinForm.Label = e.Form.Controls("计数")

Dim mb As WinForm.TextBox = e.Form.Controls("目标目录")

Dim cm As WinForm.ComboBox = e.Form.Controls("ComboBox1")

Dim mulu As WinForm.RadioButton = e.Form.Controls("筛选后打开目标目录")

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

    Dim ifo As new FileInfo(File)

    If ifo.Name.Contains("~$") Then

    Else

        If ifo.Extension.Contains("xlsx") Then

            Dim App As New MSExcel.Application

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

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

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

            Dim abcd As String=Rg.Value

            Functions.Execute("sx",t5.text,abcd,cm.text,t6.text,mb.text)

        End If

    End If

Next

Dim e = args(0)

Dim tel1 As String = args(1)

Dim tel2 As String = args(2)

Dim tel3 As String = args(3)

Dim tel4 As String = args(4)

If  tel1 & tel2 & tel3 Then

    If FileSys.FileExists(e) Then

        MessageBox.Show("1")

        FileSys.CopyFile(e, tel4 & FileSys.Getname(e),True)

    End If

End If