Set xlsApp = Nothing

/*----------有参调用模式-------------*/
xls文件中代码如下：
Sub test2(str As String)
   MsgBox (str)
End Sub

VB代码如下：
   Dim xlsApp As Excel.Application
   Dim xlsBook As Excel.Workbook
   Dim xlsSheet As Excel.Worksheet
   
   Set xlsApp = New Excel.Application
   Set xlsBook = xlsApp.Workbooks.Open(App.Path + \test.xls)
   Set xlsSheet = xlsBook.Worksheets(1)
   xlsApp.Visible = False

   Call xlsApp.Run(test2, Hello!World!)