Dim myOlApp As Object
Dim MyWo As Excel.Workbook
Dim mysheet As Excel.Worksheet
Set myOlApp = CreateObject("excel.Application")
Set MyWo = myOlApp.Workbooks.Open("c:\madg.xls")
Debug.Print MyWo.Worksheets.Count
For Each mysheet In MyWo.Worksheets
  Debug.Print mysheet.Name
Next mysheet
Set mysheet = Nothing
MyWo.Close
Set MyWo = Nothing
Set myOlApp = Nothing

============= debug.print ==============
 4  
Лист1
 9999999 
 111 
 222 

Dim Swop( 32000 ) As Integer

ОбластьДанных_Format(...
...
Swop(Me![Id]) = Page

...
ПримечаниеОтчета_Format(Cancel As Integer, FormatCount As Integer)
Dim MyDb As Database
Dim Sql_String As String
Dim TestTable As Recordset
Set MyDb = CurrentDb
Sql_String = "Select * From TCorp "
    Set TestTable = MyDb.OpenRecordset(Sql_String)
    If (TestTable.RecordCount =  0 ) Then GoTo Xlop
    TestTable.MoveFirst
    Do Until TestTable.EOF
    TestTable.Edit
    TestTable![P_Num] = Swop(TestTable![Corp_Id])
    TestTable.Update
    TestTable.MoveNext
    Loop
Xlop: TestTable.Close