如何判断 一个指定的Excel文件是否已被打开

CBWSY

如何判断 一个指定的Excel文件是否已被人为打开?

3190496160

Sub 判断()
For Each wb In Workbooks
    If wb.Name = "化料出入库管理.xlsm" Then
        m = m + 1
    End If
Next wb
If m <> "" Then
    ts = "已打开"
Else
    ts = "未打开"
End If
MsgBox ts
End Sub

CBWSY

Set exb = CreateObject("Excel.Application")
   
    For Each rng1 In exb.Workbooks
        If rng1.FullName = wjm Then IsOpenExl = True: Exit For
    Next rng1

CBWSY

我在WORD 中用 VBA
Set exb = CreateObject("Excel.Application")
   
    For Each rng1 In exb.Workbooks
        If rng1.FullName = wjm Then  Exit For 'wjm 为指定文件
    Next rng1
但不起作用

CBWSY

word 中用 VBA  首先判断一个EXCEL文件是否被人为打开，如果是人为打开 ,主要是判断 打开的EXCEL文件是发生了数据修改就需要 先保存 ，再调用数据。
Set exb = CreateObject("Excel.Application")
   
    For Each rng1 In exb.Workbooks
        If rng1.FullName = wjm Then IsOpenExl = True: Exit For
    Next rng1