[已解决]拷贝当前工作簿出错

xdwy81129

该宏如下：

1.路径是存在的
2.拷贝前“e：\我 ”    没有该工作簿



Sub 文件()
MsgBox ThisWorkbook.Path & "\" & ThisWorkbook.Name
MsgBox "E:\我" & "\" & ThisWorkbook.Name

    FileCopy ThisWorkbook.Path & "\" & ThisWorkbook.Name, "E:\我" & "\" & ThisWorkbook.Name
End Sub

请教如何解决

注明：不需要用另存为，因为另存为当前工作表已经不是保存前的路径的工作簿

最佳答案

月排行榜 / 总排行榜

hhzjxss

2011-1-31 17:39

Sub 文件()
MsgBox ThisWorkbook.Path & "\" & ThisWorkbook.Name
MsgBox "E:\我" & "\" & ThisWorkbook.Name
    ThisWorkbook.ChangeFileAccess xlReadOnly
    FileCopy ThisWorkbook.Path & "\" & ThisWorkbook.Name, "E:\我" & "\" & ThisWorkbook.Name
    ThisWorkbook.ChangeFileAccess xlReadWrite
End Sub

跳转到最佳答案楼层

fjmxwrs

你这种方法是把某一个文件复制到指定目录下指定文件名时可用，复制当前文件到指定目录下同名，要用备份SaveCopyAs
以下是保存到同目录下，我文件夹中，同名文件
ThisWorkbook.SaveCopyAs ThisWorkbook.Path & "\我" & "\" & ThisWorkbook.Name

hhzjxss

ThisWorkbook.SaveCopyAs( "E:\我" & "\" & ThisWorkbook.Name)

hhzjxss

Sub 按钮1_单击()
    ThisWorkbook.SaveCopyAs ("E:\我" & "\" & ThisWorkbook.Name)
End Sub

xdwy81129

回复 hhzjxss 的帖子

还是希望用复制文件的方法最好，再期待下用复制文件的方法做到

因为用保存，速度上慢了一些，比自己的文件保存慢了约15%到25%的时间

xdwy81129

还是希望用复制拷贝的方法比较好
优点：1.速度快，2不产生文件碎片

阿童木

因为你打开时文件已经锁定，无法复制，需要改变当前文件的读取方式，而这同样要求保存工作簿。
往往许多时候所要追求的完美总是残缺的。

1. Sub 文件()
   
2. MsgBox ThisWorkbook.Path & "" & ThisWorkbook.Name
   
3. MsgBox "E:\我" & "" & ThisWorkbook.Name
   
4.     ThisWorkbook.ChangeFileAccess xlReadOnly
   
5.     FileCopy ThisWorkbook.Path & "" & ThisWorkbook.Name, "E:\我" & "" & ThisWorkbook.Name
   
6. End Sub

复制代码

xdwy81129

回复 阿童木 的帖子

文件虽然打开，但在xp下找到文件，复制到其他地方又可以

奇怪奇怪

hhzjxss

1. Sub 文件()
   
2. FileCopy ThisWorkbook.Path & "\Book1.xls", "E:\我" & "\Book1.xls"
   
3. End Sub
   
4. 
   
5. 
   

复制代码

1、打开的文件不能对自身进行FileCopy

2、如果当前文件夹中有一个 "Book1.xls",则可以用以上代码测试成功！

     后一个文件可以自动复制生成的！

xdwy81129

回复 阿童木 的帖子

这里属性已经改为只读了，能操作复制完成后可以再改回来吗？？？