привет, я хочу запустит макрос с Access программы "A.accdb" штоб он удалит в базе даних "B.accdb" таблицу "TableXXX" и создал тамже новую таблицу из Excel фаила "C.xlsx"

удалит я умею о неумею создать

Sub DeleteTable()

Const remoteDatabase As String = "Z:\Swedwood KR\Other\Task system\DataBase\UVDB.accdb"
Const PW             As String = "passwords"
Const Tablename      As String = "Elephant"

Dim ws As DAO.Workspace
Dim db As DAO.Database
   
    Set ws = DBEngine.Workspaces(0)
    
        Set db = ws.OpenDatabase(remoteDatabase, False, False, "MS Access;PWD=" & PW)
    
            'Delete the table
            db.Execute "DROP TABLE [" & Tablename & "]", dbFailOnError
            
            'insert table
            'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
            
        Set db = Nothing
        
        
    Set ws = Nothing
End Sub

как эта заделать на удаленной DB:

DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel8, _
    "Elephant", "Z:\C.xlsx", True, "A1:L100"
endSub:

http://www.sql.ru/forum/1247555/cozdat-tablicu-v-otdalyonnoy-baze-dannyh