设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 4866|回复: 2
打印 上一主题 下一主题

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

[复制链接]
跳转到指定楼层
1#
发表于 2005-6-25 23:44:00 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
请问如果把EXCEL中的数据批量的插入到数据库中???比如以下数据:

姓名   年龄   性别

A       20       男

B       25        女

........
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
2#
发表于 2005-6-26 00:26:00 | 只看该作者
以前曾经把类似的EXCEL数据输入到ACCESS数据库中,我的方法很简单:直接在ACCESS数据库窗口点击右键,选择导入,然后根据向导提示,导入所有数据。
3#
发表于 2006-9-12 07:39:00 | 只看该作者
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
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-11-3 05:31 , Processed in 0.075972 second(s), 26 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表