delphi 如何选中Excel所有单元格然后设置整个Excel的字体属性？

Question

如题

Answer 1

针对每行： 首先创建 Excel 对象，使用ComObj:
var ExcelApp: Variant;
ExcelApp := CreateOleObject( 'Excel.Application' );遍历过程中加(行循环)： //你可以试下列行不行  哇哈哈
...
ExcelApp.ActiveSheet.Rows[i].Font.Name := '隶书';
ExcelApp.ActiveSheet.Rows[i].Font.Color   := clBlue;
ExcelApp.ActiveSheet.Rows[i].Font.Bold    := True;
ExcelApp.ActiveSheet.Rows[i].Font.UnderLine := True;

Answer 2

  // 设置字体
  ExcelApp.Range['A6','M' + inttostr(r)].Select;
  ExcelApp.selection.Font.Size:=12;
  ExcelApp.Selection.Font.Bold:= True;
  ExcelApp.selection.Font.Name:='Arial'; 这个的效果会更好

Answer 3

顺便问个如何给某个Range设置排序

Answer 4

建议，使用下Excel里的宏功能，在工具菜单里。
如点开始录制宏，然后操作一边排序功能，在停止录制宏，再去查看宏代码，就能得到你想要的VBA代码。