Delphi读取Excel混合类型列：如何将整列识别为文本（无需假数据）

问题分析 #

你的情况是Excel驱动默认会根据前8行数据推断列类型，当第一列前8行都是整数时，驱动会将列设为数值型，后续行的文本值就会被解析为Null。IMEX=1的作用是在检测到混合类型时强制以文本读取，但如果驱动没扫描到文本行（因为采样行数不够），这个设置就不会生效。

解决方案 #

1. 调整Excel驱动的类型推断采样行数

修改注册表让驱动扫描所有行来判断列类型：

• 32位系统：打开注册表编辑器，定位到HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Jet\4.0\Engines\Excel，找到TypeGuessRows键，将其值改为0（表示扫描所有行）。
• 64位系统：定位到HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Jet\4.0\Engines\Excel，同样将TypeGuessRows改为0。

注意：修改注册表需要管理员权限，这是全局设置，会影响所有使用该Excel驱动的程序。

2. 确保运行时连接字符串保留IMEX设置

不要依赖设计时的连接配置，运行时动态构建并赋值连接字符串，确保IMEX参数生效：

var
  sConn: string;
begin
  // 构建连接字符串，明确指定IMEX=1和TypeGuessRows=0（部分驱动支持）
  sConn := 'Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\YourExcelFile.xlsx;' +
           'Extended Properties="Excel 12.0 Xml;HDR=YES;IMEX=1;TypeGuessRows=0"';
  // 重新初始化连接
  DM.ADOConnection1.Close;
  DM.ADOConnection1.ConnectionString := sConn;
  DM.ADOConnection1.Open;
  // 打开ADOTable
  DM.ExcelTable.Close;
  DM.ExcelTable.Open;
end;

若连接字符串中的TypeGuessRows=0不生效，再配合注册表修改即可。

3. 强制读取为文本类型

即使驱动识别为数值型，也可以通过AsString属性强制获取文本值，避免Null：

var1 := DM.ExcelTable.FieldByName(cb1.Text).AsString;

如果需要更彻底的类型控制，可以直接用SQL查询转换列类型：

DM.ADOQuery1.SQL.Text := Format('SELECT CStr([%s]) AS %s FROM [Sheet1$]', [cb1.Text, cb1.Text]);
DM.ADOQuery1.Open;
var1 := DM.ADOQuery1.FieldByName(cb1.Text).Value;

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