n个form共用一个excel的通讯接口.

Question

Function connectXls(FileName)
 FileName = App.Path & "\" & FileName
  Dim excelObj As Object
  Set excelObj = GetObject(FileName)
  excelObj.Application.Visible = True
End Function------------------------------
启动主程序---form1运行---链接connectXls------
在form1上有一个按钮,启动form2---再链接ConnectXls
--------------------
这种关系靠语言表述有点难度,下面表述不知是否可行??
---------------------
form1 -- 链接connectXls
form2 --- 链接ConnectXlsform2 是通过form1上的按钮启动.
----------------------
请问,各位大侠的问题,Form1,form2都要与ConnectXls链接.
在退出主程序(所有的Form都退出后),
WinXP的任务管理器中不能有Excel.exe项存在.(全部Excel退出)

Answer 1

文字表述太难了.图示效果见http://club.excelhome.net/viewthread.php?tid=571609&page=1&extra=page%3D1

Answer 2

http://d.namipan.com/d/72ab1e56c827067a7fb47824126d32f8f8b2834a27100000
看这个纳米盘能否下载.是否有用.

Answer 3

Function connectXls(FileName, ShtName)
  
  excelObj.Application.quit
  Set excelObj = Nothing
End Function
Function connectXls(FileName)
 FileName = App.Path & "\" & FileName
  Dim excelObj As Object
  Set excelObj = GetObject(FileName)
  excelObj.Application.Visible = True
  excelObj.Application.quit
  Set excelObj = Nothing
End Function

Answer 4

  excelObj.Application.Visible = True
  excelObj.Application.quit------------没有对form1,form2,form3的程序操作,就要退出程序.
  Set excelObj = Nothing

Answer 5

excelObj.Application.quit程序错误提示,
实时错误'462',远程服务器不存在或不能使用.下面form1,form2,form3步骤全部不能操作.

Answer 6

我这里主要说明你excel没有从内存中退出的原因是你没有使用quit就nothing了对象变量。
至于这句放这不对，移一个合适的位置就是了，注意可能要使用全局变量。如果你想判断现在开了几个窗体可以用forms.count来统计，
什么时候退出forms.count=1,在此窗体的Form_Unload事件里quit退出excel所有窗体里写以下语句：
Private Sub Form_Unload(Cancel As Integer)
   If Forms.Count = 1 Then
      excelObj.Application.quit
      Set excelObj = Nothing
   End If
   
End Sub
模块窗体里定义：
public excelObj as object