利用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中文网其他相关文章！