＋设为首页 ＋添加到收藏夹
在导出的Excel中，列数由第二个数据源中的纪录决定。当记录数很多时，Excel的列也会很多，如果要合并表头以达到多层表头的目的。那么，应该如何使用merge语句？其中区域的表达式应该怎么写？
Excel.Range[A+inttostr(H_I)+:+ColumnName(L_J)+1].Select;
Excel.Range[A+inttostr(H_I)+:+ColumnName(L_J)+1].Merge;
A可动态转换
function ColumnName(LM_I :integer):string;
begin
if LM_I<=26 then Result :=Chr(Ord(64+LM_I))
else
Result :=ColumnName((LM_I-1) div 26)+ColumnName(((LM_I-1) mod 26)+1);
end;
给分吧！
