Excel VBScript应用运行时错误-2147217913(80040e07)仅影响单个用户求助

核心排查与解决步骤（针对仅单个用户触发的情况） #

由于所有用户共用同一代码文件，问题必然出在用户本地环境或数据输入的隐性差异，以下是具体操作方向：

1. 核查用户机器的系统/Excel日期格式 #

• 问题根源：SQL Server默认采用yyyy-MM-dd或MM/dd/yyyy（取决于服务器配置），若用户本地日期格式为dd/MM/yyyy，当输入13/01/2024这类日期时，SQL会误判为“13月1日”，触发超出范围错误。
• 验证方式：
  • 让用户在Excel单元格输入=TEXT(TODAY(), "yyyy-MM-dd")，对比直接输入日期后的单元格显示值；
  • 在VBScript中临时添加日志代码，输出读取到的日期字符串：

    WScript.Echo "读取到的日期值：" & Sheet1.Range("DateCell").Value
    

2. 检查日期单元格的实际存储类型 #

• 问题根源：用户可能将日期单元格设置为文本格式，手动输入的日期看似正常，但实际是不符合SQL要求的字符串；或单元格为日期格式但自定义格式导致输出异常。
• 验证方式：
  • 选中日期单元格，查看Excel状态栏显示的类型（是「日期」还是「文本」）；
  • 在VBScript中用TypeName()函数输出单元格值的类型：

    WScript.Echo "单元格值类型：" & TypeName(Sheet1.Range("DateCell").Value)
    

3. 强制统一日期传递格式（代码层面修复） #

不管用户本地格式如何，在VBScript中强制将日期转换为SQL兼容的标准格式，彻底避免转换问题：

' 方法1：使用ISO标准格式
Dim targetDate, sqlCompatibleDate
targetDate = Sheet1.Range("DateCell").Value
sqlCompatibleDate = FormatDateTime(targetDate, vbISO) ' 输出格式为 yyyy-mm-dd

' 方法2：手动拼接确保格式统一
sqlCompatibleDate = Year(targetDate) & "-" & _
                    Right("0" & Month(targetDate), 2) & "-" & _
                    Right("0" & Day(targetDate), 2)

将sqlCompatibleDate作为参数传入SQL插入语句即可。

4. 排查用户的Excel加载项/模板干扰 #

• 问题根源：用户可能安装了自定义Excel加载项，修改了单元格格式或VBScript执行环境，导致日期读取异常。
• 验证方式：让用户按住Ctrl键启动Excel（安全模式，禁用所有加载项），再测试表单是否正常。

5. 检查用户是否输入了隐性无效日期 #

比如用户输入了2024-02-30这类不存在的日期，Excel可能会将其存储为文本或错误值，传给SQL时触发转换错误。

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