delphi调用excel，vb宏的问题？

[therock1981]

delphi中用OleContainer嵌入excel，但excel中的宏用不了了！~怎么办？
找不到BaoPack.xls。

Application.Run "BaoPack.xls!Auto_Open"
Application.Run "BaoPack.xls!LINGOSolve"
Sheets("Paras").Select
Range("A28:C38").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("高强度").Select
Range("D7:F17").Select
ActiveSheet.Paste
Sheets("Paras").Select
Range("A39:C49").Select
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("高强度").Select
Range("G7:I17").Select
ActiveSheet.Paste
Sheets("Paras").Select
Range("D28:F30").Select
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("高强度").Select
Range("D18:F20").Select
ActiveSheet.Paste
Sheets("Paras").Select
Range("D31:F33").Select
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("高强度").Select
Range("G18:I20").Select
ActiveSheet.Paste
End Sub
Sub clear()
'
' clear Macro
' 宏由 neu 录制，时间: 2006-3-25
'

'
Range("D7:I20").Select
Selection.ClearContents
Range("D7").Select
End Sub

[therock1981]

我在excel 中有个buttun调用这个宏，不过出现找不到BaoPack.xls

[darkliu]

在Excel中录制一个宏，在Delphi中创建一个Excel应用程序对象，用OleVariant类型
var
ExcelApp:OleVariant;
begin
//创建应用程序对象
//然后
ExcelApp.Run('宏名');
end;