优化VB调用Excel - VB / 基础类

图示效果见http://club.excelhome.net/viewthread.php?tid=574462&pid=3836982&page=1&extra=page%3D1这个VB调用Excel程序,不是很好用
请各位大侠优化一下.

Function connectXls(FileName, ShtName)

  FileName = App.Path & "\" & FileName
  ' Set the object variable to refer to the file you want to use.
  Dim excelObj As Object
  Set excelObj = GetObject(FileName)
  ' Show Excel through its Application property.
  excelObj.Application.Visible = True
  ' Show the window containing the file.
  Dim winCount As Integer
  'winCount = excelObj.Parent.Windows.Count()
  'excelObj.Parent.Windows(winCount).Visible = True
  Set connectXls = excelObj.WORKSHEETS(ShtName)
  Set excelObj = Nothing
End Function 

---

引用

http://download.csdn.net/source/2341786

''
Public Function funOpenExcelFile(ByRef xlsApp As Excel.Application, _
  ByRef xlsWork As Excel.Workbook, _
  ByRef xlsSheet As Excel.Worksheet, _
  ByVal strExcelFile As String, _
  ByVal strSheetName As String, _
  ByVal strPWD As String, _