以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 筛选excel文件后为什么不能复制呢?【在安装开发包的环境下可以复制数据,但在客户电脑上就不行了,求解!】 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=169636) |
-- 作者:cnsjroom -- 发布时间:2021/6/23 22:11:00 -- 筛选excel文件后为什么不能复制呢?【在安装开发包的环境下可以复制数据,但在客户电脑上就不行了,求解!】 筛选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编辑过]
|
-- 作者:有点蓝 -- 发布时间:2021/6/24 9:06:00 -- Dim file1 As String=mb.text &filesys.GetName(file) \'是不是完整路径?中间的目录是否存在? msgbox(file) msgbox(file1) FileSys.CopyFile(file,file1,True) 其它可能原因 1、文件处于打开状态 2、文件没有权限读写
|
-- 作者:cnsjroom -- 发布时间:2021/6/24 9:51:00 -- 回复:(有点蓝)Dim file1 As String=mb.text &f... 文件目录的地址是完整的 在安装有开发端的电脑上 运行生成的项目可以复制 在客户端就不行了 有没有办法强制关闭当前所有文件 并且强制复制操作 目标目录是定义在d:\\123\\ 也给项目修改了属性 以超级管理员运行的 结果还是没有成功复制 以下内容是专门发给有点蓝浏览 [此贴子已经被作者于2021/6/24 9:54:11编辑过]
|
-- 作者:有点蓝 -- 发布时间:2021/6/24 10:15:00 -- 代码看不出什么问题,请自行调试 msgbox(file) msgbox(file1) FileSys.CopyFile("直接改为完整路径","直接改为完整路径测试有没有问题?",True)
|