vba里 函数和过程怎么传递对象变量

nonename

请教各位
比如下面这段代码 如何把定义的对象ie传递给函数

Sub test()
Set ie = CreateObject("InternetExplorer.Application")
          With ie
Debug.Print txt(classname)
End Sub

Function txt(aa As String)
txt = .document.getelementbyclassname(aa).innertext
End Function

反过来又是如何操作的? 比如下面这段

Sub test()
ie("www.baidu.com")
.document.getelementbyid("password").value=112233
End Sub

Function ie(a As String)
Set ie = CreateObject("InternetExplorer.Application")
          With ie
.Navigate a
End Function

hfwufanhf2006

对象的类型是object。你第二个过程的代码引用写的也不对（第一个我没测试），正确的引用是这样的：
Sub test()
Call ie("www.baidu.com")
'.document.getelementbyid("password").Value = 112233
End Sub

Sub ie(a As String)
Dim aaa As Object
Set aaa = CreateObject("InternetExplorer.Application")
aaa.Navigate a
End Sub