VBA/Excel/Access/Word/Access/Database Transfer — различия между версиями
Admin (обсуждение | вклад) м (1 версия) |
|
(нет различий)
|
Текущая версия на 15:46, 26 мая 2010
Содержание
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>