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

hhzjxss

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

复制代码

hhzjxss

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

djyjysxxs

能用代码改成xlReadOnly当然也就能用代码改回来xlReadWrite

xdwy81129

回复 hhzjxss 的帖子

速度是存文件的1/3时间，效率大大提高