[Resolvido]Copiar tabelas de outro banco access

Prezados, preciso copiar as tabelas de outro banco access (2003).

Realizei uma busca no fórum pelo titulo do tema, porém encontrei outros assuntos como atualização de dados. O que preciso é copiar as tabelas inteiras.

Se alguem puder ajudar, ficarei imensamente grato.

'Olá José, seja bem vindo ao forum!

Importar a tabela não serve?

creio que dá no mesmo... importar ou copiar as tabelas completas via SQL ou por código VBA.

Grato

Cole num modulo novo este Sub que importa todas as tabelas


Sub ImportAllTbls(sExtDbPath As String)
On Error GoTo Error_Handler
Dim db As DAO.Database
Dim tdf As DAO.TableDef

Set db = OpenDatabase(sExtDbPath)

For Each tdf In db.TableDefs
If Left(tdf.Name, 4) <> "MSys" Then
On Error Resume Next
Access.DoCmd.TransferDatabase acImport, "Microsoft Access", sExtDbPath, _
acTable, tdf.Name, tdf.Name, False
End If
Next tdf
db.Close

Set db = Nothing

Exit Sub

Error_Handler:
MsgBox "MS Access has generated the following error" & vbCrLf & vbCrLf & "Error Number: " & _
Err.Number & vbCrLf & "Error Source: ImportAllTbls" & vbCrLf & "Error Description: " & _
Err.Description, vbCritical, "An Error has Occured!"
Exit Sub
End Sub



para chamar o Sub num botão

Call ImportAllTbls("C:\bancoexterno.mdb")

Funcionou 100%.

Muito obrigado.

Grande abraço.

Obrigado por responder de volta, fico feliz em funcionar.