请问如何通过判断数据库1中的表名，批量把对应的数据库2中的表导入到数据库1

其他数据库中所有对象导入到当前数据库[Access软件网] http://www.accessoft.com/article-show.asp?id=1328

把这段代码修改下即可    大致如下    判断这个数据库是否有这2个表 自己弄吧

Public Function ImportDb(strPath As String) As Boolean
    On Error Resume Next
    Dim db As Object
    Dim td As TableDef
    Dim strTDef As String
    if    判断当前数据是否有这2个表  

为否   exit sub  

为真   
   
    Set db = DBEngine.Workspaces(0).OpenDatabase(strPath, True)


    For Each td In db.TableDefs
        strTDef = td.Name
        If strTDef Like "*XX*" Then
            DoCmd.TransferDatabase acImport, "Microsoft Access", strPath, acTable, _
                                   strTDef, strTDef, False
        End If
    Next
Set db = Nothing
  
End Function