
Sub DBInsert()
Dim DB As DAO.Database
Dim RS As DAO.Recordset
Dim i As Integer
Set DB = DAO.OpenDatabase("C:ExcelDatabase29mdb.mdb") <==== da modificare
Set RS = DB.OpenRecordset("Tabella1")
For i = 1 To 10
RS.AddNew
RS.Fields("ID") = Range("a" & i)
RS.Update
Next i
RS.Close
DB.Close
Set RS = Nothing
Set DB = Nothing
MsgBox "Fatto"
End Sub |
