Access VBA DoCmd.TransferText导入CSV时字段被误判为货币的解决求助

• 你之前尝试预建目标表的方案失效是必然结果：使用acLinkDelim类型调用DoCmd.TransferText创建CSV链接表时，Jet/ACE数据库引擎完全依靠内置的类型嗅探规则自动生成链接表结构，根本不会读取、匹配你提前在Access库内创建的同名字段的类型设置。
• 嗅探逻辑的误判原因：引擎碰到连续的数字+小数点组合时，会优先匹配数字/货币类型，超出数值存储范围的尾部字符串会被直接截断，最终就出现了2024061.023.1733.1937被识别成$2,024,061.023的异常。

方案1：通过导入规范硬指定字段类型（适配72列的日常批量导入场景） #

这是绕过自动嗅探最稳定的方案，相当于给引擎明确的字段类型映射规则，不会随意猜测类型：

1. 首次完成规范配置（仅需操作1次）：
   • 点击「外部数据-文本文件」，选择目标CSV文件，选择「通过创建链接表来链接到数据源」
   • 在导入向导中点击「高级」打开导入设置面板
   • 在字段列表中定位到Project字段，将数据类型明确设置为短文本，字段长度设为255（足够存储这类项目编号）
   • 保存当前设置为导入规范，命名为CSV_Import_Spec
2. 修改VBA代码，调用预存的导入规范：

Dim db As DAO.Database
Set db = CurrentDb
On Error Resume Next:   db.TableDefs.Delete "tblImport":   On Error GoTo Err_Field_Import
db.TableDefs.Refresh
' 新增SpecificationName参数，强制按预定义规范的字段类型创建链接表
DoCmd.TransferText TransferType:=acLinkDelim, TableName:="tblImport", _
    SpecificationName:="CSV_Import_Spec", _
    FileName:="results.csv", HasFieldNames:=True
db.TableDefs.Refresh

注意：导入规范会随Access数据库文件一起保存分发，部署给非技术用户后无需额外重复配置。

方案2：调整引擎类型嗅探阈值（临时应急用，不推荐长期依赖） #

可以通过修改注册表参数，强制引擎扫描CSV全量行来判断字段类型，调整位置：

• 64位Office：定位到HKEY_LOCAL_MACHINE\SOFTWARE\WOW6432Node\Microsoft\Jet\4.0\Engines\Text，将MaxScanRows的默认值8改为0
• 32位Office：定位到HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Jet\4.0\Engines\Text，将MaxScanRows的默认值8改为0
  该方法的局限性：即使全量扫描，2024061.023.1733.1937这类多小数点的数字串依然会被引擎误判为货币类型，仅适合字段格式相对单一的CSV场景，对当前多特殊格式编号的场景适配性不足。

方案3：完全绕过链接机制，直读CSV写入预建本地表 #

如果上述方法依然存在兼容问题，可以放弃ISAM链接模式，直接通过文件系统对象逐行读取CSV内容，写入提前配置好字段类型的本地表，整个过程完全不会触发引擎的自动类型转换，从根源上避免内容丢失：

1. 提前在Access中创建目标表tblImport，将Project字段设置为短文本，其余72个字段的类型按实际业务需求提前配置完成
2. 核心VBA逻辑示例：

' 需先在VBA编辑器中引用「Microsoft Scripting Runtime」
Dim fso As New FileSystemObject
Dim ts As TextStream
Dim lineContent As String
Dim splitArr As Variant
Dim rs As DAO.Recordset

Set rs = CurrentDb.OpenRecordset("tblImport", dbOpenDynaset)
' 以只读方式打开CSV文件
Set ts = fso.OpenTextFile("results.csv", ForReading, False, TristateUseDefault)
' 跳过首行表头
ts.SkipLine

Do While Not ts.AtEndOfStream
    lineContent = ts.ReadLine
    splitArr = Split(lineContent, ",")
    rs.AddNew
    ' 按字符串直接赋值，不会触发数值/货币类型转换
    rs!Project = splitArr(0)
    ' 其余字段按列索引依次赋值即可
    rs.Update
Loop

' 释放资源
ts.Close
rs.Close
Set fso = Nothing
Set rs = Nothing

该方法的优势是逻辑完全可控，不受引擎自动规则影响，适配日常高频导入、非技术用户操作的场景。

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