以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  关于复制文件  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=105854)

--  作者：做自己 --  发布时间：2017/8/28 9:19:00 --  关于复制文件 复制文件老是提示正在使用中

--  作者：做自己 --  发布时间：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

--  作者：有点甜 --  发布时间：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

--  作者：做自己 --  发布时间：2017/8/28 10:01:00 --   提示问题呢 此主题相关图片如下：1.png

--  作者：做自己 --  发布时间：2017/8/28 10:03:00 --   好了好了，谢谢老师