利用VBA在EXCEL中实现自动将数据更新至ACCESS

WBOY
发布: 2024-01-24 17:33:05
转载
793 人浏览过

利用VBA在EXCEL中实现自动将数据更新至ACCESS

利用VBA在EXCEL中实现自动将数据更新至ACCESS

这是我实现从Excel导数据进Access的代码,你可以参考一下:(确保Excel和Access文件在同一个文件夹下) ```python import pandas as pd # 读取Excel文件 excel_data = pd.read_excel('文件路径/文件名.xlsx') # 连接Access数据库 access_conn = pyodbc.connect('DRIVER={Microsoft Access Driver (*.mdb, *.accdb)};DBQ=文件路径/数据库名.accdb') cursor = access_conn.cursor() # 将Excel数据插入Access表中 for index, row in excel_data.iterrows(): cursor.execute("INSERT INTO

Public Sub 客户正常供价批量维护()

If Cells(4, 6) = "" Then

MsgBox "请先选择需要维护价格的系统!", vbInformation

Cells(4, 6).Select

Exit Sub

Else

Dim i As Integer, j As Integer, k As Integer, sht As Worksheet 'i,j,k为整数变量;sht 为excel工作表对象变量,指向某一工作表

Dim cn As New ADODB.Connection '定义数据链接对象 ,保存连接数据库信息;请先添加ADO引用

Dim rs As New ADODB.Recordset '定义记录集对象,保存数据表

Dim strCn As String, strSQL As String '字符串变量

Dim mdbFile As String

On Error GoTo add_err

mdbFile = ActiveWorkbook.Path & "DY_DATA.mdb"

strCn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & mdbFile '定义数据库链接字符串

cn.Open strCn '与数据库建立连接,如果成功,返回连接对象cn

Set rs = New ADODB.Recordset

rs.Open "dbl直营客户正常供价表", cn, adOpenKeyset, adLockOptimistic

k = Cells(4, 8) + 8

For i = 9 To k

If Cells(i, 7) = "" Then

Else

rs.AddNew

rs(1) = Cells(i, 2)

rs(2) = Cells(i, 7)

rs(3) = Cells(i, 8)

rs.Update

Cells(i, 7) = ""

Cells(i, 8) = ""

End If

Next

MsgBox "数据记录添加成功!", vbInformation

Cells(4, 6).Select

ActiveWorkbook.RefreshAll

add_exit:

Exit Sub

End If

add_err:

MsgBox Err() & vbCrLf & Error()

Resume add_exit

End Sub

请教使用Excel VBA如何刷新某一个工作表呢

可以通过向数据库添加数字签名 (数字签名:宏或文档上电子的、基于加密的安全验证戳。此签名确认该宏或文档来自签发者且没有被篡改。),表明您认为该数据库是安全的并且其内容是可信的。这可以帮助数据库的用户确定是否信任该数据库及其内容。

用于对数据库进行数字签名的过程取决于数据库是使用 Microsoft Office Access 2007 文件格式(如 .accdb 文件)还是以前的格式(如 .mdb 文件)。不过,这两种过程都要使用安全证书。

可以使用商业安全证书,也可以创建自己的安全证书。本主题解释如何创建自己的安全证书。

开始之前

若要添加数字签名,必须先获取或创建安全证书。将安全证书视为用于进行数字签名的签字笔或者您专用的封蜡章。

如果您没有安全证书,可以使用 SelfCert 工具(随 Microsoft Office 一起提供)创建一个。

创建自签名证书

1、在 Microsoft Windows 中,单击“开始”按钮,依次指向“所有程序”、“Microsoft Office”和“Microsoft Office 工具”,然后单击“VBA 项目的数字证书”。

- 或 -

通过浏览找到 Office 专业版 2007 程序文件所在的文件夹。默认文件夹是驱动器:Program FilesMicrosoft OfficeOffice12。在该文件夹中,请找到并双击“SelfCert.exe”。

将出现“创建数字证书”对话框。

2、在“您的证书名称”框中,键入新测试证书的名称。

3、单击两次“确定”。

注释 如果您未看到“VBA 项目的数字证书”命令或找不到 SelfCert.exe,则可能需要安装 SelfCert。

以上是利用VBA在EXCEL中实现自动将数据更新至ACCESS的详细内容。更多信息请关注PHP中文网其他相关文章!

来源:docexcel.net
本站声明
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系admin@php.cn
热门教程
更多>
最新下载
更多>
网站特效
网站源码
网站素材
前端模板