Excel VBA生成的Access INSERT语句在VBA中报错，Access中可正常执行

这种情况我之前碰到过几次，核心原因通常是VBA中ADODB连接的Jet/ACE SQL解析逻辑和Access界面的解析存在细微差异，尤其是直接拼接SQL字符串时容易踩坑。结合你的代码和示例SQL，给你几个排查和解决的方向：

1. 改用参数化查询（最推荐的方案） #

直接拼接SQL字符串不仅容易出现语法问题，还存在SQL注入风险。用参数化查询可以彻底避免这类解析差异问题，步骤如下：

Set Cn = CreateObject("ADODB.Connection")
Cn.Open cnPath

' 创建参数化的INSERT命令
Dim cmd As Object
Set cmd = CreateObject("ADODB.Command")
cmd.ActiveConnection = Cn
cmd.CommandText = "INSERT INTO [Size Profiles] (Season,Region,Department,ProfType,ColourID,ArticleNumber,StyleName,Colour,Comments,Channel,Fit,SizeProfile,LastChanged,Identifier,FileName,Size,RegionSizeRun,Site,ActualSizeProfile,ActualFileName,ActualLastChanged,ActualPairs,Fixing,Oddity) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)"

' 逐个添加参数（注意参数顺序要和字段顺序完全对应）
cmd.Parameters.Append cmd.CreateParameter("Season", 200, 1, 50, "AW2018") ' 200代表adVarChar类型
cmd.Parameters.Append cmd.CreateParameter("Region", 200, 1, 50, "UK")
cmd.Parameters.Append cmd.CreateParameter("Department", 200, 1, 50, "Childrens")
cmd.Parameters.Append cmd.CreateParameter("ProfType", 200, 1, 50, "")
cmd.Parameters.Append cmd.CreateParameter("ColourID", 3, 1, , 188473) ' 3代表adInteger类型
cmd.Parameters.Append cmd.CreateParameter("ArticleNumber", 3, 1, , 26145715)
cmd.Parameters.Append cmd.CreateParameter("StyleName", 200, 1, 255, "Product Name")
cmd.Parameters.Append cmd.CreateParameter("Colour", 200, 1, 255, "Product Colour")
cmd.Parameters.Append cmd.CreateParameter("Comments", 200, 1, 255, "")
cmd.Parameters.Append cmd.CreateParameter("Channel", 200, 1, 50, "Retail")
cmd.Parameters.Append cmd.CreateParameter("Fit", 200, 1, 50, "F(M)")
cmd.Parameters.Append cmd.CreateParameter("SizeProfile", 5, 1, , 0.186) ' 5代表adDouble类型
cmd.Parameters.Append cmd.CreateParameter("LastChanged", 7, 1, , #05/09/2018#) ' 7代表adDate类型
cmd.Parameters.Append cmd.CreateParameter("Identifier", 200, 1, 255, "26145715AW2018DC01UKF(M)")
cmd.Parameters.Append cmd.CreateParameter("FileName", 200, 1, 255, "New Sizing Template.xlsb")
cmd.Parameters.Append cmd.CreateParameter("Size", 3, 1, , 70)
cmd.Parameters.Append cmd.CreateParameter("RegionSizeRun", 200, 1, 50, "")
cmd.Parameters.Append cmd.CreateParameter("Site", 200, 1, 50, "DC01")
cmd.Parameters.Append cmd.CreateParameter("ActualSizeProfile", 5, 1, , 0)
cmd.Parameters.Append cmd.CreateParameter("ActualFileName", 200, 1, 255, "")
cmd.Parameters.Append cmd.CreateParameter("ActualLastChanged", 7, 1, , #05/09/2018#)
cmd.Parameters.Append cmd.CreateParameter("ActualPairs", 3, 1, , 0)
cmd.Parameters.Append cmd.CreateParameter("Fixing", 200, 1, 50, "0")
cmd.Parameters.Append cmd.CreateParameter("Oddity", 200, 1, 50, "")

' 执行命令
cmd.Execute

这种方式不需要手动处理引号、日期格式等问题，ADODB会自动适配引擎的要求。

2. 检查日期格式的拼接逻辑 #

如果坚持用字符串拼接，确保日期格式是Jet引擎能正确解析的格式。VBA中的日期格式会受系统区域设置影响，建议用Format函数强制转成yyyy/mm/dd格式：

' 错误示例：直接拼接日期变量
SQLStr = SQLStr & "#" & myDate & "#"

' 正确示例：强制统一格式
SQLStr = SQLStr & "#" & Format(myDate, "yyyy/mm/dd") & "#"

你的示例SQL里的#05/09/2018#，在不同区域设置下可能被解析为5月9日或9月5日，虽然Access界面能自动处理，但ADODB引擎可能会报错。

3. 排查隐藏的语法问题 #

在执行前把生成的SQL字符串打印到立即窗口，仔细检查：

Debug.Print SQLStr
Cn.Execute SQLStr

复制这个打印出来的字符串到Access里执行，确认是否真的和你之前测试的完全一致——有时候拼接过程中可能会多出来空格、换行符或者不可见字符，这些都会导致ADODB报错，但Access界面会自动忽略。

4. 确认字段数据类型匹配 #

检查数值类型的字段（比如SizeProfile、ActualPairs），确保拼接时没有加多余的引号。你的示例里这些字段是直接写的数值（比如0.186、0），这是正确的，但如果拼接时不小心加了单引号，就会导致语法错误。

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