有关Set excelApp向function传递参数有关问题

有关Set excelApp向function传递参数问题
我现在要将excelApp
  Set   excelApp   =   CreateObject( "Excel.Application ")
传递到
  Set   RevolveSolidEntity   =   RevolveSolid_Excel(excelApp,   "R02_14 ",   11)

Function   编写如下,虽已经通过,但不理解.
Private   Function   RevolveSolid_Excel(excelApp,   ByVal   SheetName   As   String,   ByVal   ShellRow   As   Integer)   As   AcadEntity
       
        Dim   excelSheet   As   Excel.Worksheet
        Set   excelSheet   =   excelApp.ActiveWorkbook.Sheets(SheetName)
.......        
        '   退出Excel应用程序
'         excelApp.Quit
End   Function

请问各位大侠
1   Function   RevolveSolid_Excel(excelApp---写成   byval   excelApp   ????如写
2   Set   excelApp   定义,我这样理解是否对??  
声明   Property   过程的名称，参数为excelApp构成主体的代码，向????过程设置一个对象引用。
谢谢


[解决办法]
引用了 EXCEL 对象库，就是定义成
Private Function RevolveSolid_Excel(ByVal excelApp As Excel.Application, ByVal SheetName As String, ByVal ShellRow As Integer) As AcadEntity

set ,对象付值 没有问题。