ar
VExcel:Variant;
begin
VExcel:=CreateOleObject('Excel.Application');
VExcel.Visible:=TRUE;
VExcel.WorkBooks.Add;
VExcel.ActiveSheet.Cells[1,1].Font.Size:=24;
VExcel.ActiveSheet.Cells[1,1].Font.Bold:=TRUE;
VExcel.ActiveSheet.Cells[1,1].Value:='TEST';
end;
要想得到详细说明可以看Excel帮助的Excel VB参考。