VBA, MS Access MS Access в примерах

Список таблиц по маске из нескольких баз данных (DAO)

По материалам: http://www.cyberforum.ru/ms-access/thread2273907.html

Sub mmtable()
Dim dbs As DAO.Database
Dim tbl As DAO.TableDef
Dim rst As DAO.Recordset
 
Dim s1, s2, spath
spath = Access.CurrentProject.Path & "\import\"
s1 = Dir(spath & "*.mdb")
Do While Len(s1) > 0
''Debug.Print s1
s2 = "select * from msysobjects in """ & spath & s1 & """ where [type]=1"
''Debug.Print s2
Set rst = CurrentDb.OpenRecordset(s2)
Do While rst.EOF = False
If rst!Name Like "import*" Then
Debug.Print rst!Type, rst!Name, s1
End If
 
rst.MoveNext
Loop
s1 = Dir
Loop
rst.Close
Set rst = Nothing
End Sub
Назад ToTop
L.E. 11.07.2020
Рейтинг@Mail.ru