能否通过R语言的DBI包调用MS Access的事件过程？

dbExecute仅能执行SQL语句或Access宏，无法直接调用控件的VBA点击事件过程。要实现需求，需先将事件代码封装为独立可调用的VBA过程，再从R中调用。

步骤1：重构VBA代码，封装成公共过程 #

• 打开Access数据库，按Alt+F11打开VBA编辑器
• 在左侧项目窗口找到btnCombine所在的窗体（如Form_你的窗体名），双击打开其代码模块
• 找到btnCombine_Click()事件过程，复制其中所有代码
• 右键项目窗口，插入标准模块（已有合适标准模块可直接使用）
• 在标准模块中创建公共子过程，粘贴复制的代码，示例：

  Public Sub CombineData()
      ' 粘贴原btnCombine_Click()内的所有代码
      ' 注意：若原代码用到Me.XXX（指代当前窗体控件），需调整为具体引用，
      ' 比如改成Forms!你的窗体名!txtInput，或给过程添加参数传入所需值
  End Sub
  

• 保存模块，确保过程为Public（公共）属性，否则外部无法调用

步骤2：从R中调用VBA过程 #

方法一：通过COM接口直接调用（推荐，灵活性更高） #

使用RDCOMClient包操作Access应用对象：

# 未安装包的话先执行安装
install.packages("RDCOMClient")

library(RDCOMClient)

# 创建Access应用实例
acc_app <- COMCreate("Access.Application")
# 打开目标数据库（替换为你的数据库实际路径）
acc_app$OpenCurrentDatabase("C:/your/path/your_database.accdb")
# 调用公共VBA过程
acc_app$Run("CombineData")
# 关闭数据库并退出Access
acc_app$CloseCurrentDatabase()
acc_app$Quit()
# 释放资源
rm(acc_app)
gc()

方法二：通过宏间接调用（适配你原有的dbExecute方式） #

若想继续使用ODBC连接的dbExecute，可先创建Access宏调用VBA过程：

1. 在Access中新建宏，选择「RunCode」操作，参数栏输入CombineData()
2. 保存宏为CombineDataMacro
3. 在R中执行：

   sql_query <- "EXECUTE CombineDataMacro"
   dbExecute(con, sql_query)
   

注意事项 #

• 若原事件过程依赖窗体控件值，需确保调用时窗体处于打开状态，或修改VBA过程将这些值作为参数传入
• 使用COM接口时，需本地安装Microsoft Access，且确保RDCOMClient包能正常运行（部分环境可能需调整权限）
• 公共VBA过程必须放在标准模块中，窗体模块内的过程无法被外部调用

内容的提问来源于stack exchange，提问作者Drew