Количество открытых книг

[Lubocka]

Когда я открываю или создаю книги вручную то
Application.Workbooks.Count дает правильное количество кних
Когда я создаю книги из другой программы с помощью VBA (например Access) созданные программно книги не учитывает или засчитывает как 1

[IgorGO]

созданные программно книги не учитывает

Вывод мягко говоря опрометчивый.
Вы (видимо) создаете не только книги но и новое приложение. таким образом у Вас в системе работают два экземпляра Эксель, у каждого свое количество открытых книг.

[Lubocka]

Возможно, ну а как сделать чтоб экзеспляр Экселя был один, или как ходить по этим экземплярам. Визуально то все видится одним экземпляром.

[Hugo121]

Нужно переделывать код в том приложении, которое генерит этот файл.
Например вот пример
Сохраните этот текст как name.vbs и запустите:

Dim objExcel

ActivateExcel

objExcel.Workbooks.Add

Private Function ActivateExcel()
On Error resume next 
Set objExcel = GetObject(, "Excel.Application")
If objExcel Is Nothing Then
   Set objExcel = CreateObject("Excel.Application")
   objExcel.Visible = True
End If
End Function

[Lubocka]

Спасибо, помогло