Nạp file excel vào table access với vba

Private Sub btNapExcel_Click()

  

SQL = "Insert into tb_ChucVu_test(MaVV,HoTen,PhongBan,HSL) Values('{0}','{1}','{2}',{3})"

duongdanfile="D:\nhanvien.xlsx"

Dim conn As Object, db As Object, rst As DAO.Recordset

Set conn = CreateObject("DAO.DBEngine.120") '

' EXCEL CURRENT VERSION

Set db = conn.OpenDatabase(duongdanfile, False, True, "Excel 12.0 Xml;HDR=Yes;")



tensheet = InputBox("Ban vui long nhat ten sheet ?", "", "Sheet1")

Set rst = db.OpenRecordset("SELECT * FROM [" & tensheet & "$]")

'MsgBox rst.Fields(0)

rst.MoveLast

rst.MoveFirst

'MsgBox rst.RecordCount

MsgBox "File excel co " & rst.RecordCount & " dong du lieu "



tongbangghi_thanhcong = 0

For i = 1 To rst.RecordCount

    'MsgBox rst.Fields(0)

   'MsgBox rst.Fields(1)

    'MsgBox rst.Fields(2)

    sql_t = SQL

    sql_t = Replace(sql_t, "{0}", rst.Fields(0))

    sql_t = Replace(sql_t, "{1}", rst.Fields(1))

    sql_t = Replace(sql_t, "{2}", rst.Fields(2))

    sql_t = Replace(sql_t, "{3}", rst.Fields(3))

    DoCmd.SetWarnings False

    

    dem_ma_cv_trong_csdl = 0

    dem_ma_cv_trong_csdl = DCount("MaNV", "tbNhanVien", "MaBV='" & rst.Fields(0) & "'")

    If dem_ma_cv_trong_csdl = 0 Then

        DoCmd.RunSQL sql_t

        tongbangghi_thanhcong = tongbangghi_thanhcong + 1

    End If



    

    

    rst.MoveNext

Next



MsgBox "Chen duoc " & tongbangghi_thanhcong & " bang ghi"



End Sub