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

[Othergirl]

                    Dim wbBook As Workbook                   'if open, do not open again
                    On Error Resume Next
                    Set wbBook = Workbooks("ReformTech_Number_Register.xlsx")
                    If wbBook Is Nothing Then
                    Workbooks.Open Filename:=iArchive, ReadOnly:=True
                    Else
                    wbBook.Parent.Activate
                    MsgBox "book"
                    End If

Вот то,что мне примерно нужно, но оно не работает,
ошибки не выдает, но книгу не активирует

[Hugo121]

Сообщение от Казанский

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

В Excel - не могут!

Это как?
Я, например, рассчитываю на книгу
C:\tmp\1\Primer.xls
а юзер открыл
C:\tmp\2\Primer.xls
Теперь кодом обнаруживаем, что книга Primer.xls открыта, делаем дело, сохраняем.
Я завтра открываю
C:\tmp\1\Primer.xls
и где же вчерашняя работа? Кто виноват?

[Othergirl]

Пожалуйста дайте кто-нибудь короткий ответ, как же все-таки книгу активировать. (на этом мой первый макрос будет завершен-УРА)

[Казанский]

wbBook.Parent.Activate

Уберите Parent.

[Hugo121]

wbBook.Activate

опередил...
Зато мой ответ как заказывали - короткий

[Othergirl]

Убирала, не работает
Нашла такой вариант -Workbooks("ReformTech_Number_Regist er.xlsx").Activate

Только теперь такой вопрос
можно ли активировать книгу, но чтобы она не появлялась на экране, а оставалась свернутой, чтобы было всегда видно только книгу, в которой записан макрос

[Казанский]

> Это как?

Игорь, я имел в виду, что в одном приложении Excel нельзя одновременно открыть две книги с одним именем из разных папок, т.е.
C:\tmp\1\Primer.xls
C:\tmp\2\Primer.xls

[Othergirl]

'Sub Test3 (fill out names/description from archive)
            ActiveSheet.Range("C6").Select
30          iArchive = "G:\Archive\ReformTech_Number_Register.xlsx"
            iAR = "Article register"
            iDR = "Document register"
            vValue = ActiveCell.Value

                    Dim wbBook As Workbook                   'if open, do not open again
                    On Error Resume Next
                    Set wbBook = Workbooks("ReformTech_Number_Register.xlsx")
                    If wbBook Is Nothing Then
                    Workbooks.Open Filename:=iArchive, ReadOnly:=True
                    Else
                    Workbooks("ReformTech_Number_Register.xlsx").Activate
                    'MsgBox "book"
                    End If
                       
                       
                      Dim cForFind As Range
                       If vValue < 500000 Then                                              'works
                            Worksheets(iDR).Select
                            Else
                            Worksheets(iAR).Select                                        'works
                        End If
                   Set cForFind = Range("a1:a25000").Find(vValue, , xlValues, xlPart)
                        If cForFind Is Nothing Then
                            ThisWorkbook.Activate
                            MsgBox "Art/Doc not found", vbExclamation
                            ActiveCell.Offset(0, 3) = "DOES NOT EXIST IN RT NUMBER REGISTER"
                            ActiveCell.Offset(0, 2).Interior.ColorIndex = 39
                            ActiveCell.Offset(0, 3).Interior.ColorIndex = 39
                        Else
                            ThisWorkbook.Activate
                            ActiveCell.Offset(0, 2) = cForFind.Offset(0, 1)
                            ActiveCell.Offset(0, 3) = cForFind.Offset(0, 2)
                        End If
        Do Until IsEmpty(ActiveCell) And IsEmpty(ActiveCell.Offset(1, 0)) ' cycle until first two space cell happens
        ActiveCell.Offset(1, 0).Select
        GoTo 30
        Loop
    'Exit Sub ' Test3
       
       Application.DisplayAlerts = False
       Workbooks("ReformTech_Number_Register.xlsx").Close
       Application.DisplayAlerts = True
  
        
End Sub 'Sub VKI

В общем я знаю, что активация книги значительно увеличивает время просчета,
но знаний моих на большее не хватило
может если у кого есть время посмотрите?
это часть программы
все работает, только вторая книга мелькает постоянно
Первая - это соответственно та,в которой макрос написан

[Hugo121]

поставьте в самое начало кода
application.screenupdating=false
- мигать будет только в панели (это тоже можно убрать showindowsintaskbar=false)
Потом в конце верните назад (хотя application.screenupdating не обязательно - само покажется )

[Othergirl]

поставила, все равно мигает, каждый раз, когда окно iArchive становится активным