delphi调用excel，vb宏的问题？

Question

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

Answer 1

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

Answer 2

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