Question

我试图把它放在一个函数中：

Dim o As Object
o = CreateObject("InternetExplorer.Application")
o.Navigate2("http://example.org", "", "", "", "")

我已经尝试过这段代码，但它没有编译：

Public Function goto(website)

Dim o As Object
o = CreateObject("InternetExplorer.Application")
o.Navigate2("" & website & "", "", "", "", "")

End Function

这样做的正确方法是什么？

Answer 1

你基本上是对的。但是，您不能使用goto等保留关键字作为您的函数名称，这是失败的原因之一。

另外，不要忘记命名参数的类型和返回类型。如果您不需要返回类型，请改用子过程（这实际上是一个没有返回值的函数）：

Public Sub Browse(website As String)
    ' This is simply your existing code:
    Dim o As Object
    o = CreateObject("InternetExplorer.Application")
    o.Navigate2(website, "", "", "", "")
End Sub

如何使这个功能？

1 个答案: