Как узнать всех имена открытых книг Excel (VB 6)?

Формулировка задачи:

Может кто знает как узнать имена всех открытых книг Excel? Библитека Microsoft Excel 9.0 к проекту подключена. Такой код не работает(ошибок не выдает и в окне immediate ничего не пишет): Dim xlApp As Excel.Application Dim wkbBook As Excel.Workbook Set xlApp = New Excel.Application For Each wkbBook In xlApp.Workbooks Debug.Print wkbBook.Name Next wkbBook

Решение задачи: «Как узнать всех имена открытых книг Excel (VB 6)?»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Option Explicit
 
Private Sub Form_Load()
    Dim xlObj As Object, xlWbk As Object
    
    Me.AutoRedraw = True
    
    On Error Resume Next
    Set xlObj = GetObject(, "Excel.Application")
    If Err <> 0 Then
        Me.Print "Excel не запущен."
    Else
        If xlObj.WorkBooks.Count = 0 Then
            Me.Print "Excel запущен, но открытых книг нет."
        Else
            Me.Print "Excel запущен. Вот список открытых книг:" & vbNewLine
            For Each xlWbk In xlObj.WorkBooks
                Me.Print xlWbk.Name
            Next
        End If
        Set xlObj = Nothing
    End If
    Err.Clear
    
End Sub