Delphi中使用OLE方法操作Excel--如何让导出的Excel第一列的属性为文本类型？

Question

如何让导出的Excel第一列的属性为文本类型？

Answer 1

  self.OleContainer1.CreateObjectFromFile(filename,False);
  self.OleContainer1.DoVerb(ovOpen);
  self.OleContainer1.OleObject.application.visible:=False;
  self.OleContainer1.OleObject.application.displayalerts:=False;
  self.OleContainer1.OleObject.activesheet.columns['A:A'].select;
  self.OleContainer1.OleObject.application.seletion.NumberFormatLocal:='@';
  self.OleContainer1.DoVerb(ovshow);

Answer 2

还应该在self.OleContainer1.DoVerb(ovshow);前加上保存  self.OleContainer1.OleObject.application.activeworkbook.saveas(filename);

Answer 3

刚才的可能是全部设定，这段应该更准确
  self.OleContainer1.CreateObjectFromFile(filename,False); 
  self.OleContainer1.DoVerb(ovOpen); 
  self.OleContainer1.OleObject.application.visible:=False; 
  self.OleContainer1.OleObject.application.displayalerts:=False; 
  self.OleContainer1.OleObject.activesheet.columns[1].NumberFormatLocal:='@'; 
  self.OleContainer1.OleObject.application.activeworkbook.saveas(filename); 
  self.OleContainer1.DoVerb(ovshow); 

Answer 4

self.OleContainer1.OleObject.application.seletion.NumberFormatLocal:='@'; 用这一句控制输出为文本格式