Просмотр исходного текста страницы VBA/Excel/Access/Word/Access/Database Transfer

==Export database==



   
  <!-- start source code -->
   
    <source lang="vb">
 
Sub docomd()
    DoCmd.TransferDatabase acExport, "Microsoft Access", "C:\mydb.mdb", acTable, "employees", "employees"
End Sub
 </source>
    
   


==Exporting to a Database==



   
  <!-- start source code -->
   
    <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==



   
  <!-- start source code -->
   
    <source lang="vb">
 
Sub transfer()
    DoCmd.TransferDatabase acImport, "Microsoft Access", _
          "C:\mydb.mdb", acTable, "tblI", "tblI"
End Sub
 </source>
    
   


==Importing Spreadsheet Data Using Code==



   
  <!-- start source 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==



   
  <!-- start source code -->
   
    <source lang="vb">
 
Sub ImportText()
  DoCmd.TransferText _
    TransferType:=acImportDelim, _
    TableName:="Employees", _
    FileName:=CurrentProject.Path & "\Customer.Txt"
End Sub
 </source>
    
   


==transfer database acExport==



   
  <!-- start source code -->
   
    <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==



   
  <!-- start source code -->
   
    <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>