Question

excel vba 保存文件时文件被占用怎么处理?

需要用VBA代码打开编辑保存关闭文件,但打开和保存的时候有可能文件已经被其它进程打开了,该怎么处理?

因为一部分情况下是希望无人值守的,所以最好能有打开文件时发现只读就自动等待可写或者关闭延时再次打开直到可写打开.
如果不能打开时判断,那么保存时判断,等待可写时再保存也行.
需要这些用代码来自动处理而不是让使用者处理.

Answer 1

sub wk_open()
10 Workbooks.Open Filename:= "C:\test.xls"
   check_file=activeworkbook.name
   If Workbooks(check_file).ReadOnly = True Then   
        workbooks(check_file).close false
   else
        exit sub
   end if
    waitset 120     '等待120秒
    goto 10
end sub
Private Sub waitsec(ByVal dS As Double)    '等待时间函数
    Dim sTimer As Date    
    sTimer = Timer    
    Do        
        DoEvents    
    Loop While Format((Timer - sTimer), "0.00") < dS
 End Sub