代码如下:
Private Sub Command1_Click()
    Dim aa As Object ' New Project1126_1.Class1
    Set aa = CreateObject("Project1126_1.Class1", "SEVERNAMe")
    
    MsgBox aa.Fun1
End Sub

解决方案 »

  1.   

    你有没有引用Project1126_1这个DLL文件?
      

  2.   

    先将Project1126_1的DLL文件
    拷到你的计算机上,然后在运行中用regsvr32 文件的路径 注册  然后再在你的程序中进行引用,否则会出错
      

  3.   

    To: zhsunson(sunson)      我没有引用这个DLL文件,这个DLL文件在另一台机器上已加到COM+组件服务里面了To: aohan(景升) 
         如果,我直接把这个DLL文件拷到本地,那是不是就依赖本地的DLL文件了,
    我的意思是想在本地机器上调用远程机器上组件服务上的已经添加的DLL文件。谢谢各位。
      

  4.   

    这个原因可能是你在添加com+服务的时候添加了多次,你尝试这样来解决:
    先在com+服务器上把该组件删掉,用 regsvr32 -u "dll路径" 来反注册这个dll,然后再在com+服务中添加一次就可以了!!!