精华内容
下载资源
问答
  • If biaoz = 0 Then '从Excel单元格中取数据插入到数据库相应的记录中 rst.AddNew rst.Fields("学年") = xn rst.Fields("学期") = xq rst.Fields("学号") = Trim$(excel_sheet.Cells(row, 1)) rst.Fields...
  • VBAEXCEL导入ACCESS数据库中

    万次阅读 2013-01-07 23:29:53
    首先在指定的access数据库的建立一张表,表格的字段和需要导入EXCEL表的字段保持...Sub 利用ExcelVBA数据写入Access()  '定义ADODB 连接Access数据库  Dim Cnn As New ADODB.Connection  Dim Rs As New ADODB

       首先在指定的access数据库的建立一张表,表格的字段和需要导入EXCEL表的字段保持一致。

      方法一:在eccel VBA编辑器编写代码,使用FOR循环导入:

    Sub 利用Excel的VBA将数据写入Access()

        '定义ADODB 连接Access数据库
        Dim Cnn As New ADODB.Connection
        Dim Rs As New ADODB.Recordset
        Dim strCon As String
        Dim strFileName As String   '数据库文件名
        
        strFileName = InputBox("请输入文件路径及文件名:", "Excel传递数据至Access", "E:\ExcelTest\Staff.mdb")
        '连接字符串,我这里是Access2010,所提供者参数为:Provider=Microsoft.ACE.OLEDB.12.0;
        '如果此参数不能使用,根据自己的电脑修改这个字符串
        '至于连接至的数据库名,根据自己的电脑修改,或用一个对话框或其他方式将此值传递进程序
        strCon = "provider=Microsoft.jet.OLEDB.4.0;" _
                 & "Data Source=" & strFileName & ";"
        Cnn.Open strCon
        Rs.ActiveConnection = Cnn
        Rs.LockType = adLockOptimistic
        
        Rs.Open "Employee"   '假设表为Employee
        
        '定义Excel表中的数据区域以写入Access
        Dim Sht As Worksheet
        Dim Rn As Long
        Dim Cn As Long
        Set Sht = ThisWorkbook.Sheets("Sheet1")
        '假设将 Sheet1 表的 2-6行的1、2、3列写入Access表
        For Rn = 2 To 6
            Rs.AddNew
            Rs!num = Sht.Cells(Rn, 1)         ’num,name,department是数据库中指定表的字段
            Rs!Name = Sht.Cells(Rn, 2)
            Rs!department = Sht.Cells(Rn, 3)
            Rs.Update
        Next Rn
        MsgBox "完成!"
        
        Rs.Close
        Cnn.Close
        Set Rs = Nothing
        Set Cnn = Nothing
        Set Sht = Nothing
    End Sub

    方法二:在access VBA编辑器中编写代码

    Sub ExcelToAccess()
      DoCmd.TransferSpreadsheet acImport, , "Staff", "E:\ExcelTest\Employee.xls", True, "Sheet1!"    ‘DoCmd.TransferSpreadsheet是access编辑器中函数


    End Sub

    方法三:在excel编辑器中使用SQL语句,将EXCEL表导入到指定的数据库中

    Sub 把Excel数据插入数据库中()
    '*******************************************
    '时间:2013-01-08
    '作者:Allen
    '功能:把当前工作表的数据增加到在程序文件同一目录下进销存表数据库中
    '注意:要在工具/引用中引用microsoft activex date objects x.x
    '      其中x.x为版本号,可能会因为你安装的office的版本不同而不同,本例引用了2.5版
    '*******************************************
    Dim conn As ADODB.Connection
    Dim WN As String
    Dim TableName As String
    Dim sSql As String
    Dim tStr As String
    '数据库名,请自行修改,路径与当前工作簿在同一目录
    WN = "Staff.mdb"
    '数据库的表名与当前工作表名一致
    TableName = ActiveSheet.Name


    Set conn = New ADODB.Connection
    conn.ConnectionString = "Provider=Microsoft.Jet.Oledb.4.0;" & _
                            "Extended Properties=Excel 8.0;" & _
                            "Data Source= E:\ExcelTest\Employee.xls ;;Extended Properties='Excel 8.0;HDR=YES;IMEX=1' "
    conn.Open
    If conn.State = adStateOpen Then
        sSql = "Insert Into [;DataBase=" & ActiveWorkbook.Path & "\" & WN & "]." & myWbName & " Select * From [" & ActiveSheet.Name & "$]"
          Cnn.Execute sSql
        MsgBox "成功把数据插入到“" & TableName & "”中!", , "http://Allen.com"
        conn.Close
    End If
    Set conn = Nothing
    End Sub





    展开全文
  • 用这个方法导入总是失败,400多行数据只能导入10行左右。 想请教下还有其它方法导入吗? SELECT * into AccessNewTableName from [Excel 8.0;Database=ExcelFile].[Sheet1] 这个方法是如何使用的呢? ...
  • 1、将access数据导入excelPublic Sub ImportData()Dim mydata As String, mytable As String, SQL As StringDim cnn As ADODB.ConnectionDim rs As ADODB.RecordsetActiveSheet.Cells.Clearmydata = ThisWorkbook....

    1、将access中数据导入excel

    Public Sub ImportData()

    Dim mydata As String, mytable As String, SQL As String

    Dim cnn As ADODB.Connection

    Dim rs As ADODB.Recordset

    ActiveSheet.Cells.Clear

    mydata = ThisWorkbook.Path & "\成绩管理.mdb" '指定数据库

    mytable = "考试成绩" '指定数据表

    '建立与数据库的连接

    Set cnn = New ADODB.Connection

    With cnn

    .Provider = "microsoft.jet.oledb.4.0"

    .Open mydata

    End With

    SQL = "select 班级,avg(数学) as 数学平均,avg(语文) as 语文平均," _

    & "avg(物理) as 物理平均,avg(化学) as 化学平均,avg(英语) as 英语平均, " _

    & "avg(体育) as 体育平均,avg(总分) as 总分平均 " _

    & "from " & mytable & " group by 班级"

    Set rs = New ADODB.Recordset

    rs.Open SQL, cnn, adOpenKeyset, adLockOptimistic

    '复制字段名

    For i = 1 To rs.Fields.Count

    Cells(1, i) = rs.Fields(i - 1).Name

    Next i

    '复制全部数据

    Range("A2").CopyFromRecordset rs

    rs.Close

    cnn.Close

    Set rs = Nothing

    Set cnn = Nothing

    End Sub

    2、将excel数据导入access

    Sub 把Excel数据插入数据库中()

    '*******************************************

    '时间:2010-06-28

    '作者:bengdeng

    '功能:把当前工作表的数据增加到在程序文件同一目录下进销存表数据库中

    '注意:要在工具/引用中引用microsoft activex date objects x.x

    ' 其中x.x为版本号,可能会因为你安装的office的版本不同而不同,本例引用了2.5版

    '发布:http://www.excelba.com

    '*******************************************

    Dim conn As ADODB.Connection

    Dim WN As String

    Dim TableName As String

    Dim sSql As String

    Dim tStr As String

    '数据库名,请自行修改,路径与当前工作簿在同一目录

    WN = "进销存表.mdb"

    '数据库的表名与当前工作表名一致

    TableName = ActiveSheet.Name

    Set conn = New ADODB.Connection

    conn.ConnectionString = "Provider=Microsoft.Jet.Oledb.4.0;" & _

    "Extended Properties=Excel 8.0;" & _

    "Data Source=" & ThisWorkbook.Path & "\" & ActiveWorkbook.Name

    conn.Open

    If conn.State = adStateOpen Then

    sSql = "Insert Into [;DataBase=" & ActiveWorkbook.Path & "\" & WN & "]." & TableName & " Select * From [" & ActiveSheet.Name & "$]"

    conn.Execute sSql

    MsgBox "成功把数据插入到“" & TableName & "”中!", , "http://excelba.com"

    conn.Close

    End If

    Set conn = Nothing

    End Sub

    展开全文
  • j) 'Fields集合的下标以0开始,用集合下标的形式,excel数据源的字段顺序必须跟access表中的一致 ' .Fields(j).Value = oWK.Cells(i, j) Next j .Update End With Next i End With .Close MsgBox "导入完成!...

    Sub QQ1722187970()

    Const adOpenForwardOnly = 0

    Const adOpenKeyset = 1

    Const adOpenDynamic = 2

    Const adOpenStatic = 3

    Const adOpenUnspecified = -1

    Const adLockReadOnly = 1

    Const adLockPessimistic = 2

    Const adLockOptimistic = 3

    Const adLockBatchOptimistic = 4

    Const adLockUnspecified = -1

    Dim oRecordSet As Object

    Set oRecordSet = CreateObject("ADODB.Recordset")

    Dim sConstr As String

    Dim sPath As String

    Dim sTableName As String

    Dim sDataBase As String

    Dim sSql As String

    Dim oWK As Worksheet

    Set oWK = Excel.ActiveSheet

    '要导入的Access数据库中的表名

    sTableName = oWK.Name

    '要导入的Access文件名称

    sDataBase = "数据库"

    sPath = Excel.ThisWorkbook.Path & "\"

    sSql = "SELECT * FROM " & sTableName

    sVersion = Excel.Application.Version

    '创建连接字符串

    If sVersion <= 12 Then

    sConstr = "Provider='Microsoft.Jet.OLEDB.4.0';Data Source=" & sPath & sDataBase & ".accdb"

    Else

    sConstr = "Provider='Microsoft.ACE.OLEDB.12.0';Data Source=" & sPath & sDataBase & ".accdb"

    End If

    With oRecordSet

    'open方法的第4个参数LockType是关键,否则不能添加记录

    .Open sSql, sConstr, adOpenForwardOnly, adLockOptimistic

    With oWK

    iCol = .Cells(1, .Columns.Count).End(xlToLeft).Column

    iRow = .Range("A" & .Rows.Count).End(xlUp).Row

    For i = 2 To iRow

    With oRecordSet

    .addnew

    For j = 1 To iCol

    sFieldName = oWK.Cells(1, j)

    '用字段名的形式,excel数据源的字段顺序可以不跟access表中的一致

    .Fields(sFieldName).Value = oWK.Cells(i, j)

    'Fields集合的下标以0开始,用集合下标的形式,excel数据源的字段顺序必须跟access表中的一致

    ' .Fields(j).Value = oWK.Cells(i, j)

    Next j

    .Update

    End With

    Next i

    End With

    .Close

    MsgBox "导入完成!"

    End With

    Set oRecordSet = Nothing

    Set oWK = Nothing

    End Sub

    展开全文
  • VBA and Access>>.用vba连接ACESS:SetConn=Server.CreateObject("ADODB.Connection")Conn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;...文章技术小大人2017-11-22770浏览量VBAExcel数据导入...

    VBA and Access

    >>.用vba连接ACESS:

    Set Conn= Server.CreateObject("ADODB.Connection")

    Conn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & S...

    文章

    技术小大人

    2017-11-22

    770浏览量

    VBA将Excel数据导入到数据库

    1、如果Excel中的数据是标志格式的,即标题栏+数据这种类型,那么导入数据库将非常方便,示例代码如下:

    '函数:导入

    Private Function F_K_Import() As Boolean

    Dim cnCurrent As ADODB.Connection

    Dim r...

    文章

    eclipse_xu

    2012-11-22

    749浏览量

    带你读《数据库与数据处理:Access 2010 实现 第2版》之一:数据处理与数据库

    计算机基础课程系列教材点击查看第二章点击查看第三章数据库与数据处理:Access 2010 实现 第2版

    张玉洁 孟祥武 编著

    第1章

    数据处理与数据库早期计算机主要用于科学计算,数据类型单一。随着计算机技术的发展以及计算机的益普及,计算机应用已经远远超出了这个范畴。如今面对各种类型...

    文章

    温柔的养猫人

    2019-11-11

    512浏览量

    ff0c35e3aa0877a25f7873cca08f3438.png

    Quick BI 数据可视化分析平台

    2020年入选全球Gartner ABI魔力象限,为中国首个且唯一入选BI产品

    广告

    带你读《数据库与数据处理:Access 2010 实现 第2版》之三:关系数据库设计

    点击查看第一章点击查看第二章

    第3章

    关系数据库设计

    3.1 关系数据库设计过程

    数据库设计是开发一个好的数据库应用系统的基础,它的基本任务是根据用户的需求,以及数据库的支撑环境(包括DBMS、操作系统和硬件),设计出数据模式(包括外模式、模式和内模式)以及典型的应用程序。在数据库的设计过程中,不...

    文章

    温柔的养猫人

    2019-11-11

    233浏览量

    动态链接导入库与静态链接库

    目前以lib后缀的库有两种,一种为静态链接库(Static Libary,以下简称“静态库”),另一种为动态连接库(DLL,以下简称“动态库”)的导入库(Import Libary,以下简称“导入库”)。 静态库是一个或者多个obj文件的打包,所以有人干脆把从obj文件生成lib的过程称为Arch...

    文章

    double2li

    2012-10-29

    764浏览量

    动态链接库dll,静态链接库lib, 导入库lib

    转载地址:http://www.cnblogs.com/chio/archive/2008/08/05/1261296.html

    目前以lib后缀的库有两种,一种为静态链接库(Static Libary,以下简称"静态库"),另一种为动态连接库(DLL,以下简称"动态库")的导入库(Impor...

    文章

    double2li

    2013-11-21

    821浏览量

    带你读《网络防御与安全对策:原理与实践(原书第3版)》之二:攻击类型

    点击查看第一章点击查看第三章

    第2章

    攻击类型本章目标在阅读完本章并完成练习之后,你将能够完成如下任务:

    描述最常见的网络攻击,包括会话劫持、病毒攻击、特洛伊木马、拒绝服务和缓冲区溢出。

    解释这些攻击是如何执行的。

    制定针对这些攻击的基本防御措施。

    配置系统以防范拒绝服务攻击。

    配置系统以防范...

    文章

    温柔的养猫人

    2019-11-06

    245浏览量

    VC操作Excel文件编程相关内容总结

    最近在做个数据库程序,因为有些数据用户要求导出到Excel文件显示(需要报给其他单位)。所以查阅了一下相关的VC的Excel编程操作,总结一下吧:(所有资料来源于网络)

    利用VC操作Excel的方法至少有两种

    1 .利用ODBC把Excel文件当成数据库文件,来进行读、写、修改等操作,网上有人编写...

    文章

    范大脚脚

    2017-11-22

    982浏览量

    .NET读写Excel工具Spire.Xls使用(1)入门介绍

    原文:【原创】.NET读写Excel工具Spire.Xls使用(1)入门介绍

    在.NET平台,操作Excel文件是一个非常常用的需求,目前比较常规的方法有以下几种:

    1.Office Com组件的方式:这个方式非常累人,微软的东西总是这么的复杂,使用起来可能非常不便,需要安装Excel,对于服...

    文章

    杰克.陈

    2015-03-31

    1116浏览量

    这些.NET开源项目你知道吗?.NET平台开源文档与报表处理组件集合(三)

    在前2篇文章这些.NET开源项目你知道吗?让.NET开源来得更加猛烈些吧 和这些.NET开源项目你知道吗?让.NET开源来得更加猛烈些吧!(第二辑)中,大伙热情高涨。再次拿出自己的私货,在.NET平台处理文档相关的开源组件。文档处理在开发中是一个非常常见的任务了,例如导出Excel,导出Wor...

    文章

    老朱第八

    2017-11-11

    1326浏览量

    【原创】.NET读写Excel工具Spire.Xls使用(1)入门介绍

    在.NET平台,操作Excel文件是一个非常常用的需求,目前比较常规的方法有以下几种:

    1.Office Com组件的方式:这个方式非常累人,微软的东西总是这么的复杂,使用起来可能非常不便,需要安装Excel,对于服务器,有时候还需要为配置IIS权限。折腾人,看到很多人在群里面使用这个东西,出现各...

    文章

    数据之巅

    2016-02-20

    3462浏览量

    [置顶]这些.NET开源项目你知道吗?.NET平台开源文档与报表处理组件集合(三)

    在前2篇文章这些.NET开源项目你知道吗?让.NET开源来得更加猛烈些吧 和这些.NET开源项目你知道吗?让.NET开源来得更加猛烈些吧!(第二辑)中,大伙热情高涨。再次拿出自己的私货,在.NET平台处理文档相关的开源组件。文档处理在开发中是一个非常常见的任务了,例如导出Excel,导出W...

    文章

    数据之巅

    2016-02-20

    2568浏览量

    .NET平台开源文档与报表处理组件包括Execel PDF Word等

    在前2篇文章这些.NET开源项目你知道吗?让.NET开源来得更加猛烈些吧 和这些.NET开源项目你知道吗?让.NET开源来得更加猛烈些吧!(第二辑)中,大伙热情高涨。再次拿出自己的私货,在.NET平台处理文档相关的开源组件。文档处理在开发中是一个非常常见的任务了,例如导出Excel,导出Wor...

    文章

    幕三少

    2015-07-06

    1292浏览量

    展开全文
  • 本文针对Excel VBA工程中对Access对象采用后期绑定出现的报告,经调试解决后,现记录如下: 报错原因:由于没有像前期绑定那样事先引用 Microsoft Access 12.0 Object Library,而后期绑定时,DoCmd....
  • 摘 要:用一句查询代码,写到vba中实现Excel数据导入导出,也可把引号中的SQL语句直接放到查询分析器中执行正 文: 导入数据(导入数据时第一行必须是字段名): DoCmd.RunSQL "Insert INTO 表名 Select * ...
  • 如何使用vbaexcel指定行的数据导入到sql2008中?Sub 合并工作簿()Dim FilesToOpenDim x As IntegerOn Error GoTo ErrHandlerApplication.ScreenUpdating = FalseFilesToOpen = Application.GetOpenFilename _...
  • 现在access 中创建一下模块1、将数据导入数据库的模块2、将表中数据导出到Excel中的模块 如果路径下没有相应的Excel名,则创建,如果有则:如果Excel文件中有相应的工作表,则表中的数据替换,否则在相应的工作薄中...
  • <p>ACCESS导入EXCEL数据,没有的数据增加,已有的进行更新,用VBA怎么实现?已有追加记录求代码,求更新原有记录代码  SQL = "insert into [项目明细]([项目批准文号],...
  • 现在我的Excel表中的有一个学生信息表,有99条数据,现在我要将这99条数据一次性插入Access数据库中的学生信息表中,先看代码Sub 插入数据表格()Dim cnn As Object, rs As Object, SQL$, mypathSet cnn = ...
  • Excel-VBA_编程

    2018-09-07 09:55:28
    本章提供了多个例子将Excel数据放入Access,以及从Access获取数据到...你也学习了如何使用链接,导入和动态Access表,将Excel数据 放置到Access数据库里。在下章中,你将学习如何使用Excel创建,察看和分析因特网数据。
  • 她把那些文件放在了一个目录下,每个Excel表格里没有太复杂的数据, 或是说想要合并的Sheet页没有太复杂的数据格式(我指的是数据透视图,数据透视表,smartArt图形等)。让我帮她想想办法。 我的解决...
  • Excel.VBA从入门到精通

    2019-03-17 15:22:28
    本章提供了多个例子将Excel数据放入Access,以及从Access获取数据到工作表。你学习了如何从Excel VBA过程中 控制Access应用软件,执行一些任务,例如打开Access窗体和报告,创建新窗体,运行选择和参数查询,以及...
  • A电脑使用Access 2010要导入excel表处理数据。 系统提示: 由于无法读取数据库中所含的VBA工程,因此无法打开此数据库。只有先删除VBA工程,然后才能打开数据库。删除VBA工程将同时从模块、窗体及报表中删除所有...
  • 这次的短图文说一个关于SQL查询的语句的使用.一,Access数据库.以Access数据库为数据源,通过Sql语句来查询数据库里的数据,然后通过Excel来显示...二,Excel数据图表.通过SQL查询语句,把数据库里的数据查询到之后,于...
  • Excel_VBA教程

    2014-09-22 11:36:34
    一、VBA语言基础 1 第一节 标识符 1 第二节 运算符 1 第三节 数据类型 1 第四节 变量与常量 1 第五节 数组 2 ...26.将EXCEL电子表格导入ACCESS数据库 370 27.放置EXCEL数据到ACCESS表中 370 28.接下来…… 374
  • Excel VBA 基础教程

    2019-01-01 18:51:06
    .................................................................................................................1 1.1 VBA是什么...........................................................................
  • Excel VBA与数据库整合应用范例精讲

    热门讨论 2011-10-29 18:48:38
    第5章 将Excel工作表数据导入Access数据库 实例5-1 将整个工作表数据都保存为新Access数据库(Access) 实例5-2 将工作表的某些区域数据保存为新Access数据库(Access) 实例5-3 将工作簿的所有工作表数据分别...
  • 想请教大神要根据什么样的规则进行划分对话,数据内容如图,现在是在用vba试一试直接在excel中操作,也在学如何用access来操作,请大佬指点迷津,如果大佬能直接再告诉我如何区分连接是否是“syn错误”的连接就万分...
  • ExcelVBA程序设计.doc

    2011-04-05 21:32:51
    一、VBA语言基础 1 第一节 标识符 1 第二节 运算符 1 第三节 数据类型 1 第四节 变量与常量 1 第五节 数组 2 ...26.将EXCEL电子表格导入ACCESS数据库 370 27.放置EXCEL数据到ACCESS表中 370 28.接下来…… 374
  • Access 2007 VBA宝典 4/4

    2012-03-31 08:36:49
     12.2 根据Access查询创建Excel数据透视图  12.3 使用电子邮件发送发运报表和重新订货报表  12.4 小结 第3部分 为Office添加更多功能  第13章 使用Visual Basic 6.0创建COM加载项  13.1 使用Visual Basic...
  • Access 2007 VBA宝典 2/4

    2012-03-31 08:22:16
     12.2 根据Access查询创建Excel数据透视图  12.3 使用电子邮件发送发运报表和重新订货报表  12.4 小结 第3部分 为Office添加更多功能  第13章 使用Visual Basic 6.0创建COM加载项  13.1 使用Visual Basic...
  • Access 2007 VBA宝典 3/4

    2012-03-31 08:31:46
     12.2 根据Access查询创建Excel数据透视图  12.3 使用电子邮件发送发运报表和重新订货报表  12.4 小结 第3部分 为Office添加更多功能  第13章 使用Visual Basic 6.0创建COM加载项  13.1 使用Visual Basic...
  • Access 2007 VBA宝典 1/4

    2012-03-31 08:12:09
     12.2 根据Access查询创建Excel数据透视图  12.3 使用电子邮件发送发运报表和重新订货报表  12.4 小结 第3部分 为Office添加更多功能  第13章 使用Visual Basic 6.0创建COM加载项  13.1 使用Visual Basic...
  • 第5章 将Excel工作表数据导入Access数据库 实例5-1 将整个工作表数据都保存为新Access数据库(Access) 实例5-2 将工作表的某些区域数据保存为新Access数据库(Access) 实例5-3 将工作簿的所有工作表数据分别...
  • EXCEL编程VBA高级教程

    2015-04-16 11:40:55
    第三节数据类型................................................................................................................................1 第四节变量与常量...........................................
  • Excel VBA实用技巧大全 附书源码

    热门讨论 2010-10-08 18:59:24
    01061获取Excel数据透视表工具栏信息 01062获取Excel的Web工具栏信息 01063获取Excel审阅工具栏信息 01064获取Excel窗体工具栏信息 01065获取Excel外部数据工具栏信息 01066获取Excel公式审核工具栏信息 01067获取...

空空如也

空空如也

1 2 3 4 5
收藏数 95
精华内容 38
关键字:

vbaexcel数据导入access