1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
| Sub exportdonnées_DAO()
Dim db As DAO.Database
Dim strSQL, nom, pré, dat, rue, loca, numt As String
Dim numr, code As Integer
Ligne = 1
nom = Cells(Ligne, 1)
pré = Cells(Ligne, 2)
dat = Cells(Ligne, 3)
rue = Cells(Ligne, 4)
numr = Cells(Ligne, 5)
code = Cells(Ligne, 6)
loca = Cells(Ligne, 7)
numt = Cells(Ligne, 8)
Set db = DAO.OpenDatabase("c:\test\test_import_data_xls.mdb", False, False)
strSQL = "INSERT INTO [Tbl_data] VALUES(nom,pré,dat,rue,numr,code,loca,numt)"
db.Execute (strSQL)
db.Close
End Sub |
Partager