EXCELE中数据如何批量插入数据库中?

songwl

请问如果把EXCEL中的数据批量的插入到数据库中???比如以下数据:

姓名   年龄   性别

A       20       男

B       25        女

........

晓月清风

以前曾经把类似的EXCEL数据输入到ACCESS数据库中，我的方法很简单：直接在ACCESS数据库窗口点击右键，选择导入，然后根据向导提示，导入所有数据。

wktt6833

Sub DAO_AddNew_数据成批入库_2() '客户篇
    Dim mnas(9) As String
   
    Set DB1 = OpenDatabase(ThisWorkbook.Path & "\UserDB" & "\FJ1.MDB")
    Set RS1 = DB1.OpenRecordset(Name:="XC_FJ1", Type:=dbOpenDynaset)

    Dim mysheet As Worksheet
    For Each mysheet In Worksheets
        mysheet.Select
        
        Set myCalculateRange = Range("A:A") '计算行数
        myNas = Application.WorksheetFunction.CountA(myCalculateRange)
        
        If myNas <= 1 Then Exit Sub
            ii = 2
            For ii = 2 To myNas
                mnas(0) = Range("A" & ii)
                mnas(1) = Range("B" & ii)
                mnas(2) = Range("C" & ii)
                mnas(3) = Range("D" & ii)
                mnas(4) = Range("E" & ii)
                mnas(5) = Range("F" & ii)
                mnas(6) = Range("G" & ii)
                mnas(7) = Range("H" & ii)
                mnas(8) = Range("I" & ii)
        
        
                With RS1
                    .AddNew
                    .Fields("日期").Value = mnas(0)
                    .Fields("单位名称").Value = mnas(1)
                    .Fields("送货单号").Value = mnas(2)
                    .Fields("O单号").Value = mnas(3)
                    .Fields("产品名称").Value = mnas(4)
                    .Fields("数量").Value = mnas(5)
                    .Fields("单价").Value = mnas(6)
                    .Fields("金额").Value = mnas(5) * mnas(6)
                    If mnas(8) <> "" Then
                        .Fields("备注").Value = mnas(8)
                    End If
                    .Update
                End With
            Next 'ii
            Range("A1").Select
        Next mysheet
    DB1.Close
    'RS1.Close
    MsgBox "数据入库完成!"

End Sub