改错 （简单）

Question

Dim strSource, strDestination As String
    strSource = App.Path & "\Excels\RegisterFee.xls"
    strDestination = App.Path & "\Excels\Temp.xls"
  FileCopy strSource, strDestination提示错误为 拒绝的权限FileCopy 
怎样才能把权限改过来？

Answer 1

选中TEMP.XLS文件,右键属性,把只读去掉

Answer 2

问题是 temp.xls 文件，本来只读属性就没有选中啊。

Answer 3

如果想要对一个已打开的文件使用 FileCopy 语句，则会产生错误
检查RegisterFee.xls是否打开

Answer 4

Dim strSource, strDestination As String    strSource = App.Path & "\Excels\RegisterFee.xls"
    strDestination = App.Path & "\Excels\Temp.xls"    If Len(Dir(strDestination))>0 Then KillstrDestination     FileCopy strSource, strDestination

Answer 5

是不是RegisterFee文件在前边打开了没有关闭掉

Answer 6

右键打开temp.xls以后 存档属性被选中，我去掉前面的勾勾后，就可以运行了，可是运行以后，temp.xls的 存档 属性又被打上勾勾了。这怎么办啊。？？？