筛选excel文件后为什么不能复制呢？【在安装开发包的环境下可以复制数据，但在客户电脑上就不行了，求解！】
Dim t5 As WinForm.TextBox = e.Form.Controls("文件目录")
Dim t6 As WinForm.TextBox = e.Form.Controls("单元格新值")
Dim mb As WinForm.TextBox = 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 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
If abcd.Contains(t6.text) Then
If FileSys.FileExists(file) Then
Dim file1 As String=mb.text &filesys.GetName(file)
FileSys.CopyFile(file,file1,True)
abc=abc+1
js.Text= "已完成" & abc & "件/次!"
t7.Text= t7.Text & vbcrlf & "【" & ifo.Name & "】记录,已筛选并复制到" & mb.text
t7.SelectionStart = t7.Text.Length
dt.ScrollToCaret
Application.DoEvents
End If
Else
End If
App.Quit
End If
End If
Next
[此贴子已经被作者于2021/6/23 22:17:20编辑过]
加好友 
发短信
Post By：2021/6/23 22:11:00 [只看该作者]
