Excel导入Access时创建附加字段出现ByRef参数类型不匹配错误

问题原因 #

你调用AppendTrackingData时出现的ByRef参数类型不匹配，核心原因是：

• sheetTableMapping是Variant类型数组，内部元素也为Variant类型
• AppendTrackingData的第一个参数tableName As String默认采用ByRef传递，VBA要求ByRef传递的实参与形参类型必须完全一致，Variant无法直接匹配String类型，因此触发报错

两种快速解决方法 #

方法1：修改子过程参数为按值传递 #

把AppendTrackingData的参数改为ByVal（按值传递），VBA会自动将Variant转换为String类型，绕过严格的类型检查：

Sub AppendTrackingData(ByVal tableName As String, ByVal dataSource As String, ByVal runDate As Date)
    Dim sql As String
    sql = "UPDATE " & tableName & " SET DataSource = '" & dataSource & "', RunDate = #" & Format(runDate, "yyyy-mm-dd hh:nn:ss") & "# WHERE DataSource IS NULL;"
    DoCmd.RunSQL sql
End Sub

方法2：调用时显式转换类型 #

在调用AppendTrackingData时，将数组元素强制转换为String类型，确保实参与形参类型匹配：

AppendTrackingData CStr(sheetTableMapping(i)(1)), sheetName, runDate

额外优化建议（可选） #

• 当前SQL语句存在SQL注入风险，如果表名或数据源包含单引号，会直接导致SQL语法错误。可以通过转义单引号规避：

  dataSource = Replace(dataSource, "'", "''") ' 转义字符串中的单引号
  sql = "UPDATE " & tableName & " SET DataSource = '" & dataSource & "', RunDate = #" & Format(runDate, "yyyy-mm-dd hh:nn:ss") & "# WHERE DataSource IS NULL;"
  

• 你计划存储Excel文件名（Data.xlsx），但当前代码传递的是工作表名称（比如"Main Table!"），如果要实现需求，应该传递提取后的文件名：Mid(excelFilePath, InStrRev(excelFilePath, "\") + 1)，而非sheetName。

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