关于Excel。

Question

1、如何改变传入Excel数据的字体。如我要在表中打出22号字体的汉字，在程序中如何控制？
2、如何在传入数据同时在每个单元格加边框？每题50分，解决问题马上给，谢谢大家。

Answer 1

1.cells(i,j).Font.size =22
2.Range.Borders.LineStyle := 7

Answer 2

我的代码如下：
1、
    xlApp.Cells(3, 5) := trim(ComBox_xl.Text) ;
    xlApp.cells(3, 5).Font.size := 22 ;
    xlApp.Cells(15, 4) := FormatDateTime('yyyy-mm-dd hh:mm:ss',now) ;
    xlApp.cells(15, 4).Font.size := 22;提示：停用了“调用取消”。2、
i := 5;
    while not MainDataModule.AQ_Tmp.Eof do
    begin
      xlApp.Cells(i, 1) := trim(MainDataModule.AQ_Tmp.fieldbyname('XH').AsString) ;
      xlApp.Cells(i, 1).Range.Borders.LineStyle := 7 ;
      xlApp.Cells(i, 2) := trim(MainDataModule.AQ_Tmp.fieldbyname('TX').AsString) ;
      xlApp.Cells(i, 2).Range.Borders.LineStyle := 7 ;
      xlApp.Cells(i, 3) := trim(MainDataModule.AQ_Tmp.fieldbyname('JGDD').AsString) ;
      xlApp.Cells(i, 3).Range.Borders.LineStyle := 7 ;      MainDataModule.AQ_tmp.Next;
      i := i+1;
    end;
提示：停用了“调用取消”，怎么回事啊？

Answer 3

目前lws0472(编程工人)给1、25（分）2、25（分），解决代码部分的朋友得50分，快帮帮我啊，大虾们。