Kill "D:\生产计画\" & Date

zyz218

Private Sub Deleteit()

    If Dir("D:\生产计画\" & Date) <> "" Then

       Kill "D:\生产计画\" & Date

    End If

End Sub

在每次关闭这个文件之前都会在D盘另存一份防止数据丢失,但我这个EXCEL  是共用的,我设了密码,结果第一次另存为可以,但第二次以后就不可以了,因为D盘的原文件有密码保护,于是我相了方法就是在每次打开的时候删除已存在的,我用上面的代码,得不行,不知为什么,老鬼请教),其它高也行,,多多指点)

老鬼

把文件的扩展名给加上~~~~~

zyz218

非常感谢老鬼的帮助,问题已解决,多谢多谢,跑来跑去还是这里能解决问题,学习气氛也不错,呵

晓月清风

太好了，我的相同问题也解决了