Копирование содержимого таблиц access на листы excel 2003

[ольгаг]

Здравствуйте Уважаемые программисты!
Помогите пожалуйста исправить код ниже (vba excel 2003), в котором не выполняется условие выделенное серым цветом. Т.е. при открытии книги, с помощью файла udl (в котором прописан путь к файлу mdb), должно на создаваемые листы копироваться содержимое таблиц из access, в 1-ом условии IF копируются все таблицы кроме таблиц с именем начинающемся на "элем", а во 2-ом условии IF копируются только таблицы с именем начинающемся на "элем". Не работает 2-е условие: новые листы создаются, но данные из таблиц access не копируются?
Заранее спасибо!

Private Sub Workbook_Open()
   Dim conn As ADODB.Connection
   Set conn = New ADODB.Connection
   conn.Mode = adModeRead
   conn.Open "File Name=c:\connect.udl;"

   Dim i As Integer

   Dim xl As New Excel.Application
   Dim Sheet As Worksheet
   Dim wksht As String
   Dim wkbk As Excel.Workbook

   Dim cat As ADOX.Catalog
   Set cat = New ADOX.Catalog
   cat.ActiveConnection = conn

   Dim tbl As ADOX.Table
   Set tbl = New ADOX.Table

   Dim rselemti As ADODB.Recordset
   Set rselemti = New ADODB.Recordset

   xl.DisplayAlerts = False
   With wkbk
      For Each tbl In cat.Tables
         If tbl.Type = "TABLE" And left(tbl.Name, 4) <> "MSys" And left(tbl.Name, 4) <> "элем" Then
            Set rselemti = conn.Execute("SELECT * FROM " & tbl.Name)
            wksht = tbl.Name
            On Error Resume Next
            Set Sheet = Sheets(wksht)
            If Err Then
               Err.Clear
               Sheets.Add After:=Sheets(Sheets.Count)
               Sheets(Sheets.Count).Name = wksht
               i = 1
               Do While Not rselemti.EOF
                  Sheets(wksht).Cells(i, 1).Value = rselemti.Fields("Элемент")
                  i = i + 1
                  rselemti.MoveNext
               Loop
            End If
         End If

         If tbl.Type = "TABLE" And left(tbl.Name, 4) = "элем" Then
            Set rselemti = conn.Execute("SELECT * FROM " & tbl.Name)
            wksht = tbl.Name
            On Error Resume Next
            Set Sheet = Sheets(wksht)
            If Err Then
               Err.Clear
               Sheets.Add After:=Sheets(Sheets.Count)
               Sheets(Sheets.Count).Name = wksht
               i = 1
               Do While Not rselemti.EOF
                  Sheets(wksht).Cells(i, 1).Value = rselemti.Fields("Имя")
                  i = i + 1
                  rselemti.MoveNext
               Loop
            End If
         End If
      Next tbl
   End With
   xl.DisplayAlerts = True
End Sub

[Aleksandr H.]

глупо, но ...во 2м случае rselemti получает какой-либо результат, RecordCount > 0?

[ольгаг]

Сообщение от Aleksandr H.

глупо, но ...во 2м случае rselemti получает какой-либо результат, RecordCount > 0?

Да, таблицы access начинающееся по имени с "элем" не пустые, в третьем столбце "Имя" записи есть.

[ольгаг]

Заметила сейчас, что не работает 2-ое условие, т.к. имя, например, "элем_ДД-12", а если имя "элем_ДД_12" работает. Подскажите пожалуйста, действительно ли недопустим символ "-"(тире) в имени таблицы access? Можно ли это обойти?

[Aleksandr H.]

"-" допустимый елемент имени таблицы.

Базка, конечно, конфиденциальная на столько,что даже урезанной версии нельзя выложить для тестирования?

[ольгаг]

Но в запросе

Set rselemti = conn.Execute("SELECT * FROM " & tbl.Name)

выдает ошибку?(если в имени тире)

[Aleksandr H.]

dim sName as string
sName = Replace(tbl.Name,"-","_")
Set rselemti = conn.Execute("SELECT * FROM " & sName)

Set rselemti = conn.Execute("SELECT * FROM [" & tbl.Name &"]")

[ольгаг]

Спасибо!