Проверить, если ФАЙЛ ОТКРЫТО или НЕ

Я работаю в MS WordsRough.doc файле, и я хочу проверить, Ceemea & Latam.doc Файл открыт или нет. Должно быть два возможных выхода.Проверить, если ФАЙЛ ОТКРЫТО или НЕ

1. Если уже открыт, то Activate

2. Если нет, то открытый Ceemea & Latam

Используя следующий код, но он возвращался compile error

If AlreadyOpen("C:\Documents and Settings\Administrator\Desktop\EMEA CEEMEA\CEEMEA & LATAM.doc") Then 

    Windows("CEEMEA & LATAM").Activate 

Else 

    Documents.Open FileName:="C:\Documents and Settings\Administrator\Desktop\EMEA CEEMEA\CEEMEA & LATAM.doc" 

End If

источник

2016-08-23 Ibn e Ashiq

Таким образом, вы думали, что так как вам нужно 'AlreadyOpen' функцию, должна быть одна, и вы просто пытались использовать его, надеясь, что вы получаете право имя, а потом удивляет вас есть ошибка? – GSerg

sub ActivateOrOpen() 
    on error goto nofile 
    Windows("CEEMEA & LATAM").Activate 
    exit sub 

    nofile: 
    Documents.Open FileName:="C:\Documents and Settings\Administrator\Desktop\EMEA CEEMEA\CEEMEA & LATAM.doc" 
end sub

источник

2016-08-23 08:57:11 GSerg

Есть ли возможность использовать 'if then else' для такого рода ситуаций? –

Вы можете переместить часть 'on error goto' в другую функцию, которая будет захватывать ее и возвращать' true' или 'false', но это ничем не отличается. В любом случае вам придется обрабатывать исключение. – GSerg

попробовать это функция:

Function AlreadyOpen(filePath As String) As Boolean 
Dim result As Boolean 
result = False 
For Each aDoc In Documents 
apath = aDoc.Path + "\" + aDoc.Name 
If apath = filePath Then result = True 
Next aDoc 
AlreadyOpen = result 
End Function

источник

2016-08-24 13:43:36 Solivan

Проверить, если ФАЙЛ ОТКРЫТО или НЕ

ответ

Смежные вопросы