1 2 3 4
| For i = 15 To 50
strSQL = "INSERT INTO IMPORTSAP2009 VALUES ('" & Range("ad" & i) & "', '" & Range("ac" & i) & "', '" & Range("z" & i) & "', '" & Range("aa" & i) & "', '" & Range("ab" & i) & "', '" & Range("ab" & i) & "', '" & Range("ab" & i) & "', '" & Range("ab" & i) & "', '" & Range("ab" & i) & "', '" & Range("ab" & i) & "', '" & Range("ab" & i) & "', '" & Range("ab" & i) & "', '" & Range("ab" & i) & "', '" & Range("ab" & i) & "', '" & Range("ab" & i) & "', # 01/01/2011 #, # 01/01/2011 #, " & Range("m" & i) & ", " & Range("m" & i) & ", " & Range("m" & i) & ")"
Db.Execute strSQL
Next i |
Partager