Office中国论坛/Access中国论坛

标题: EXCELE中数据如何批量插入数据库中? [打印本页]

作者: songwl 时间: 2005-6-25 23:44
标题: EXCELE中数据如何批量插入数据库中?
请问如果把EXCEL中的数据批量的插入到数据库中???比如以下数据:

姓名年龄性别

A 20 男

B 25 女

........

作者: 晓月清风 时间: 2005-6-26 00:26
以前曾经把类似的EXCEL数据输入到ACCESS数据库中，我的方法很简单：直接在ACCESS数据库窗口点击右键，选择导入，然后根据向导提示，导入所有数据。

作者: wktt6833 时间: 2006-9-12 07:39
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

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)