VBA/Excel/Access/Word/Access/Database Transfer

Export database

   <source lang="vb">

Sub docomd()

   DoCmd.TransferDatabase acExport, "Microsoft Access", "C:\mydb.mdb", acTable, "employees", "employees"

End Sub

</source>
   
  

Exporting to a Database

   <source lang="vb">

Sub trasferDB()

        DoCmd.TransferDatabase acExport, "Microsoft Access", _
              "C:\Sales.mdb", acTable, "tblSales", "IceCreamSales"
       MsgBox "Sales data exported"

End Sub

</source>
   
  

Import database

   <source lang="vb">

Sub transfer()

   DoCmd.TransferDatabase acImport, "Microsoft Access", _
         "C:\mydb.mdb", acTable, "tblI", "tblI"

End Sub

</source>
   
  

Importing Spreadsheet Data Using Code

   <source lang="vb">

Sub ImportSpreadsheet()

 DoCmd.TransferSpreadsheet _
   TransferType:=acImport, _
   SpreadsheetType:=acSpreadsheetTypeExcel12, _
   TableName:="Employees", _
   FileName:=CurrentProject.Path & "\Customer.Xls", _
   HasFieldNames:=True

End Sub

</source>
   
  

Importing Text Data Using Code

   <source lang="vb">

Sub ImportText()

 DoCmd.TransferText _
   TransferType:=acImportDelim, _
   TableName:="Employees", _
   FileName:=CurrentProject.Path & "\Customer.Txt"

End Sub

</source>
   
  

transfer database acExport

   <source lang="vb">

Private Sub cmdSales_Click()

   DoCmd.TransferDatabase acExport, "Microsoft Access", "C:\Sales.mdb", acTable, "tblSales", "ISales"

End Sub

</source>
   
  

Using the TransferDatabase Method

   <source lang="vb">

Sub ImportDatabase()

 DoCmd.TransferDatabase _
   TransferType:=acImport, _
   DatabaseType:="dBASE III", _
   DatabaseName:=CurrentProject.Path, _
   ObjectType:=acTable, _
   Source:="Employees", _
   Destination:="tblCustomers", _
   StructureOnly:=False

End Sub

</source>