汇出excel的简单问题－－在线等

Question

设置
Selection.NumberFormatLocal 3D "@"—————————————————————————————————
MaximStr := '宠辱不惊，看庭前花开花落，去留无意；
             毁誉由人，望天上云卷云舒，聚散任风。';
if Not Assigned(I) then
  I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”、“3D”等字样，改为“=”或者去掉';
I.Desire := '加不加分随你';
—————————————————————————————————
    

Answer 1

告诉你一个自己解决问题的方法：打开自动记录宏的功能，然后把选定的单元格格式转为文本，停止宏记录。到VB编程器里去看刚才记下的宏代码，就知道怎么做了。用这个方面几乎可以知道Excel里面所有操作的VBA代码，再把它们用OP来表示就行了。

Answer 2

自己搞定：在汇出时如判断出是身份证字段，在其前面加个',代码如下：if  
DataModule1.ExcelADOQuery.Fields.Fields[i-1].FieldName='身份证号码' then
Excelworksheet1.Cells.Item[row,i]:= ''''+DataModule1.ExcelADOQuery.Fields[i-1].asstring