ÓÅ»¯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, _