Как пропустить открытие книги, если она кем то открыта?

Тема в разделе "Visual Basic", создана пользователем nikh848, 11 фев 2010.

  1. nikh848

    nikh848 Гость

    Привет всем!
    Помогите пож. решить задачу:
    Открыть книгу Excel для редактирования, но если она открыта другим пользователем -
    не открывать для чтения, а записать в ячейку - имя работающего пользователя и перейти к следующей книге.

    Прописываю:
    Set ОткрытаяКнига = Workbooks.Open(Путь, 0, False, , , , True, , , , False)
    но всо равно спрашивает "открыть для чтения?"
     
  2. Vlanib

    Vlanib Гость

    Код (LotusScript):
    Public Function fBookOpen(sBookName As String) As Boolean
    Dim oBook As Workbook
    On Error Resume Next
    Set oBook = Workbooks(sBookName)
    fBookOpen = (Err = 0)
    End Function
    Если книга с указанным именем открыта, функция вернет TRUE, иначе - FALSE.
     
Загрузка...

Поделиться этой страницей