VBA 常用文件判断

一、代码

'判断文件是否打开
Sub test()
    Dim i As Integer                        '定义循环变量
    For i = 1 To Workbooks.Count            '开始循环
        If Workbooks(i).Name = "模拟工资表.xlsx" Then    '判断工作簿是否打开
            MsgBox "文件已打开！"
            Exit Sub                        '如果找到文件，退出过程
        End If
    Next
    MsgBox "文件没有打开！"    
End Sub


'判断文件是否存在
Sub test()
    Dim fil As String                       '定义变量
    fil = ThisWorkbook.Path & "\另存工资表.xls"
    If Len(Dir(fil)) > 0 Then               '判断工作簿是否存在
        MsgBox "文件已存在！"
    Else
        MsgBox "文件不存在！"
    End If
End Sub

二、运行结果