закрыть неактивную книгу без выскакивания запросов на сохранение

[Othergirl]

Подскажите, как закрыть неактивную книгу без выскакивания запросов на сохранение,

это не работает

       Application.DisplayAlerts = False
       Workbooks(iArchive).Close
       Application.DisplayAlerts = True

[gluk_fm]

Workbooks("t.xls").Close SaveChanges:=False

[Othergirl]

Спасибо, работает

[Othergirl]

а как проверить открыта ли книга, если да, то выбрать, если нет , то открыть

                 Workbooks("ReformTech_Number_Register.xlsx").Select
                 If isWorkbookOpen("ReformTech_Number_Register.xlsx") = False Then
                    Workbooks.Open Filename:=iArchive, ReadOnly:=True
                 End If

Тоже не работает

[Hugo121]

'скажем, что уже всё сохранено - даже если теперь закрывать вручную, то запроса не будет
Workbooks(iArchive).Saved = True

'или (как выше уже сказали), закрываем кодом без сохранения
Workbooks(iArchive).Close 0

P.S. это я на вопрос ДО отвечал...

[Othergirl]

А можно на вопрос после тоже,пожалуйста

[Hugo121]

Я предпочитаю открывать книги сам кодом - тогда точно заню, что открыта, заодно сразу через set задаю переменную-ссылку на объект.
Но если юзер может быть уже открыл - тогда думаю нужно перебором всех открытых книг проверить их .Path, т.к. могут быть много книг с одинаковым именем, но лежать в разных каталогах.
И какую из них открыл "глупый юзер", мы не знаем - вдруг он копию с desktop запустил вместо сетевого ярлыка - сплошь и рядом...
И если так - то ругаемся и не работаем (или безжалостно закрываем и удаляем с диска и открываем нужную ).
В общем, неоднозначно... Нужно продумать процесс, потом реализовывать.

Перебор книг (всех и нескрытых) вот например:

    For Each WB In Workbooks
        If WB.Name <> ThisWorkbook.Name Then
            If Windows(WB.Name).Visible Then ...
        End If
    Next WB

Или вот проверка на "открытость" без проверки полного пути несколько вариантов:

===========
Dim wbBook as workbook
On error resume next
set wbBook = workbooks("Книга1.xls")
If wbBook is nothing then 
msgbox "Книга1 не открыта"
else
msgbox "Книга1 открыта"
end if
===========
Function ifopen(wbName As String) As Boolean
Dim wbBook As Workbook
For Each wbBook In Workbooks
If wbBook.Name <> ThisWorkbook.Name Then
If Windows(wbBook.Name).Visible Then
If wbBook.Name Like "*" & wbName & "*" Then ifopen = True: Exit For
End If
End If
Next wbBook
End Function
===========
Function ifopen(w As String) As Boolean
On Error Resume Next
ifopen = Workbooks(w).Name <> ""
End Function
===========

[Казанский]

GetObject("ReformTech_Number_Register.xlsx").Windows(1).Activate

Если книга не открыта, она будет открыта (правда, не в режиме ReadOnly).

[Казанский]

> нужно перебором всех открытых книг проверить их .Path, т.к. могут быть много книг с одинаковым именем, но лежать в разных каталогах

В Excel - не могут!

[Othergirl]

Так, перебор я сделала, но у меня цикл так постоен, что, если книга уже открыта, то она не активная и мне надо книгу активировать. Подскажите команду. Работаю всего с двумя книгами.

нужно что-то вроде ThisWorkbook.Activate

только для другой книги.
Извиняюсь за столь глупый вопрос