MySQL, PHP и… Microsoft Office

Листинг 3

Public poBase As Collection ' коллекция: таблицы + поля 
  
Public Sub BaseCollectionSet() 
'-- Обход книги и создание коллекции таблиц 
  Dim oFields As Collection ' коллекция полей 
  Dim sTableName As String  ' имя таблицы 
  Dim oSheet As Worksheet   ' текущая Worksheet 
  Dim oTable As Table       ' дескриптор    таблицы 
  Dim sPrimKey As String    ' имя первичного ключа 
  
  Set poBase = New Collection 
  For Each oSheet In ActiveWorkbook.Worksheets 
    If LCase(Right(oSheet.Name, 5)) = "_prop" Then  
      sPrimKey = "" 
      Set oFields = New Collection 
      sTableName = FieldsCollectionSet(oSheet, _ 
                      oFields, sPrimKey) 
      Set oTable = New Table 
      oTable.Name = sTableName 
      Set oTable.Fields = oFields 
      If sPrimKey <> "" Then oTable.Key    = sPrimKey 
      poBase.Add oTable, oTable.Name 
    End If 
  Next 
End Sub 

возврат

Наш канал на Youtube

1999 1 2 3 4 5 6 7 8 9 10 11 12
2000 1 2 3 4 5 6 7 8 9 10 11 12
2001 1 2 3 4 5 6 7 8 9 10 11 12
2002 1 2 3 4 5 6 7 8 9 10 11 12
2003 1 2 3 4 5 6 7 8 9 10 11 12
2004 1 2 3 4 5 6 7 8 9 10 11 12
2005 1 2 3 4 5 6 7 8 9 10 11 12
2006 1 2 3 4 5 6 7 8 9 10 11 12
2007 1 2 3 4 5 6 7 8 9 10 11 12
2008 1 2 3 4 5 6 7 8 9 10 11 12
2009 1 2 3 4 5 6 7 8 9 10 11 12
2010 1 2 3 4 5 6 7 8 9 10 11 12
2011 1 2 3 4 5 6 7 8 9 10 11 12
2012 1 2 3 4 5 6 7 8 9 10 11 12
2013 1 2 3 4 5 6 7 8 9 10 11 12
Популярные статьи
КомпьютерПресс использует