Comment insérer des données d'Excel dans une base de données

Je recherche une solution pour importer des données à partir d'un fichier Excel dans une base de données (par exemple: fichier d'accès MS).

Je peux obtenir l'idée ainsi que la structure mais parce que je suis nouveau à quelque chose Comme ceci, il est vraiment difficile de terminer le travail. P>

ci-dessous est mon code, qui devrait faire ceci: p>

1. Sélectionnez la base de données LI>
2. Sélectionnez Importer des fichiers li>
3. Créer une connexion en utilisant adodb li>
4. Je suis coincé ici, en utilisant insérer code> instruction à importer mais comment? Étant donné que les valeurs à importer seraient une valeur d'une variable exécutée à partir de la toute première cellule des fichiers Excel jusqu'à la fin de celui-ci. Li> ol>

   Veuillez ignorer le commentaire parce que j'utilise ma langue maternelle pour faciliter la compréhension à l'avenir P>

   Sub Import_Data()
   'Khai bao bien lien quan den Database
   Dim connection As ADODB.connection
   Dim record As ADODB.Recordset
   'Khai bao cau lenh Query
   Dim SQLstr As String
   'Khai bao connection string
   Dim connectionstring As String
   Dim dbstring As String
   'Duong dan den file import
   Dim fdlg As FileDialog
   
   
   Application.ScreenUpdating = False
   'Chon datafile
   With Application.FileDialog(msoFileDialogFilePicker)
   .AllowMultiSelect = False
   .Filters.Clear
   .Filters.Add "Access files", "*.accdb, *.mdb"
   If .Show = True Then
   datapath = .SelectedItems(1)
   Else
   Exit Sub
   End If
   End With
   
   
   'Chon file import
   Set fdlg = Application.FileDialog(msoFileDialogFilePicker)
   With fdlg
   .AllowMultiSelect = False
   .Filters.Clear
   .Filters.Add "Excel files", "*.xls,*.xlsx,*.xlsm"
   If .Show = True Then
   importstring = .SelectedItems(1)
   Else
   Exit Sub
   End If
   End With
   
   'Connect to Database
   Set connection = New ADODB.connection
   With connection
   .Provider = "Microsoft.ACE.OLEDB.12.0"
   .connectionstring = "Data Source=" & datapath & ";"
   .ConnectionTimeout = 30
   .Open
   If .State = adStateOpen Then
   MsgBox "welcome " & Environ("Username") & " ket noi den database"
   Else: Exit Sub
   End If
   End With
   
   Dim a, c As Integer
   Dim b, d As Integer
   Dim ImpWb As Workbook
   Dim ImpWs As Worksheet
   
   Set ImpWb = Application.Workbooks.Open(importstring)
   ImpWb.Application.Visible = True
   Set ImpWs = ImpWb.Worksheets("Sheet1")
   With ImpWs.UsedRange
   a = .Rows.Count
   b = .Columns.Count
   For c = 2 To a
   For d = 1 To b
   SQLstr = "Insert into Test values(" & Cells(c, d).Value & ")"
   connection.Execute SQLstr
   Next d
   Next c
   End With
   ImpWb.Close
   connection.Close
   Set ImpWs = Nothing
   Set ImpWb = Nothing
   Set connection = Nothing
   End Sub