我在我的一个vba脚本上有一个类似的结构,它是这样的。
代码语言:javascript运行复制Private Sub CommandButton1_Click()
Call GetData1
End Sub在我的module2中,它看起来像这样
代码语言:javascript运行复制Sub GetData1()
'my code
Dim IE As Object
Dim dd As Variant
Set IE = GetObject("new:{D5E8041D-920F-45e9-B8FB-B1DEB82C6E5E}")
IE.Visible = False
IE.Navigate "https://www.avanza.se/aktier/om-aktien.html/5247/investor-b"
Application.StatusBar = "Loading, Please wait..."
IEWait IE
Application.StatusBar = "Searching for value. Please wait..."
dd = IE.Document.getElementsByClassName("lastPrice SText bold")(0).innerText
Range("G7").Value = dd
End Sub也许有点太多了,但我只是想让您了解我正在使用的代码的结构。
所以每次我点击按钮"CommandButton1“,上面的代码就会执行,但在你的例子中,每次你调用函数main
_
try(),如上所述,您应该调用模块中的函数,而不是模块本身。
希望能有所帮助,致以最良好的敬意