Foxtable(狐表)用户栏目专家坐堂 → 关于复制文件


  共有1899人关注过本帖树形打印复制链接

主题:关于复制文件

美女呀,离线,留言给我吧!
做自己
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:485 积分:3756 威望:0 精华:0 注册:2017/8/17 17:47:00
关于复制文件  发帖心情 Post By:2017/8/28 9:19:00 [只看该作者]

复制文件老是提示正在使用中

 回到顶部
美女呀,离线,留言给我吧!
做自己
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:485 积分:3756 威望:0 精华:0 注册:2017/8/17 17:47:00
  发帖心情 Post By:2017/8/28 9:20:00 [只看该作者]

代码是这个样子的
str = str &".xlsx"
    Dim App As New MSExcel.Application
    'App.Visible = True
    Dim Wb As MSExcel.Workbook = App.WorkBooks.Add
    Wb.WorkSheets(1).name = str
    strLuJing="d:\Download1\"&str
    Wb.SaveAs(strLuJing)
    App.Quit
    strLuJingJian ="d:\Download\"&str
    If FileSys.FileExists(strLuJing) Then
        FileSys.MoveFile(strLuJing,strLuJingJian)
    End If
此主题相关图片如下:1.png
按此在新窗口浏览图片

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/8/28 9:35:00 [只看该作者]

Dim str As String = "abc.xlsx"
Dim App As New MSExcel.Application
app.DisplayAlerts = False
Dim Wb As MSExcel.Workbook = App.WorkBooks.Add
Wb.WorkSheets(1).name = str
Dim strLuJing="d:\Download1\" & str
Wb.SaveAs(strLuJing)
App.Quit
Dim strLuJingJian ="d:\Download\" & str
If FileSys.FileExists(strLuJing) Then
    system.Threading.Thread.sleep(1000)
    If FileSys.FileExists(strLujingjian) Then FileSys.DeleteFile(strLuJingJian, 2, 2)
    FileSys.MoveFile(strLuJing,strLuJingJian)
End If

 回到顶部
美女呀,离线,留言给我吧!
做自己
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:485 积分:3756 威望:0 精华:0 注册:2017/8/17 17:47:00
  发帖心情 Post By:2017/8/28 10:01:00 [只看该作者]

提示问题呢
图片点击可在新窗口打开查看此主题相关图片如下:1.png
图片点击可在新窗口打开查看

 回到顶部
美女呀,离线,留言给我吧!
做自己
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:485 积分:3756 威望:0 精华:0 注册:2017/8/17 17:47:00
  发帖心情 Post By:2017/8/28 10:03:00 [只看该作者]

好了好了,谢谢老师

 回到顶部