procedure TForm1.Button2Click(Sender: TObject);
var
i: integer;
PathName: string;
oldcur: tcursor;
FExcelApplication: TExcelApplication;
FExcelWorkbook: TExcelWorkbook;
FExcelWorksheet: TExcelWorksheet;
xl: olevariant;
V: _VBComponent;
vArg1, vArg2, vArg3, vArg4, vArg5, vArg6, vArg7, vArg8, vArg9, vArg10,
vArg11, vArg12, vArg13, vArg14, vArg15, vArg16, vArg17, vArg18, vArg19, vArg20,
vArg21, vArg22, vArg23, vArg24, vArg25, vArg26, vArg27, vArg28, vArg29, vArg30: OLEVariant;
begin
try
FExcelApplication := TExcelApplication.Create(nil);
FExcelWorkbook := TExcelWorkbook.Create(nil);
FExcelWorkSheet := TExcelWorksheet.Create(nil);
except
showmessage(*对不起，您没有安装Excel 2000!*);
abort;
end;
vArg1 := EmptyParam; vArg2 := EmptyParam; vArg3 := EmptyParam; vArg4 := EmptyParam;
vArg5 := EmptyParam; vArg6 := EmptyParam; vArg7 := EmptyParam; vArg8 := EmptyParam;
vArg9 := EmptyParam; vArg10 := EmptyParam; vArg11 := EmptyParam; vArg12 := EmptyParam;
vArg13 := EmptyParam; vArg14 := EmptyParam; vArg15 := EmptyParam; vArg16 := EmptyParam;
vArg17 := EmptyParam; vArg18 := EmptyParam; vArg19 := EmptyParam; vArg20 := EmptyParam;
vArg21 := EmptyParam; vArg22 := EmptyParam; vArg23 := EmptyParam; vArg24 := EmptyParam;
vArg25 := EmptyParam; vArg26 := EmptyParam; vArg27 := EmptyParam; vArg28 := EmptyParam;
vArg29 := EmptyParam; vArg30 := EmptyParam;
FExcelApplication.Visible[0] := True;
FExcelApplication.Connect;
FExcelApplication.Caption := *test1*;
FExcelApplication.Workbooks.Add(*d:\1.xls*, 0);
FExcelWorkbook.ConnectTo(FExcelApplication.ActiveWorkbook);
FExcelWorksheet.ConnectTo(FExcelWorkbook.Activesheet as _WorkSheet);
V := FExcelWorkbook.VBProject.VBComponents.Add(1);
V.name := *Module*;
// V.CodeModule.AddFromString(*Public Sub test() * +
#13 + *msgbox("test") * + #
13 + *end sub*);
V.CodeModule.AddFromFile(*d:\1.bas*);
{动态加载宏除了的几种方法:V.CodeModule.AddFromString
V.CodeModule.AddFromFile
V.CodeModule.InsertLines
}
// FExcelApplication.Visible[0] := True;
FExcelApplication.Run(*abc*, vArg1, vArg2, vArg3, vArg4, vArg5, vArg6, vArg7, vArg8, vArg9, vArg10,
vArg11, vArg12, vArg13, vArg14, vArg15, vArg16, vArg17, vArg18, vArg19, vArg20,
vArg21, vArg22, vArg23, vArg24, vArg25, vArg26, vArg27, vArg28, vArg29, vArg30);
end;
===========
注：
1）、d:\1.xls 为任意建的一个空excel文件
2）、d:\1.bas 为用excel 宏录制的一段代码，其中有一个过程
abc(),宏代码如下（随便录的）
Sub abc()
Range("C4").Select
ActiveCell.FormulaR1C1 = "1111"
Range("C4").Select
Selection.AutoFill Destination:=Range("C4:C10"), Type:=xlFillDefault
Range("C4:C10").Select
Range("D4").Select
ActiveCell.FormulaR1C1 = "666"
Range("D4").Select
Selection.AutoFill Destination:=Range("D4:D10"), Type:=xlFillDefault
Range("D4:D10").Select
Range("C4:D10").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Range("D6").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End Sub