Tengo una macro que abre una página web, asigna ciertas variables, y luego llama a otro procedimiento utilizando la función call
. Necesitaría utilizar algunas de las variables definidas en el primer procedimiento (como por ejemplo, numberOfPages
) en el segundo procedimiento pero me arroja el siguiente error:
Error de compilación: la variable no ha sido definida.
¿Alguien sabe como hacer para solucionarlo? Detallo más abajo el procedimiento. Muchas gracias!
Sub test()
Dim element As IHTMLElement
Dim elements As IHTMLElementCollection
Dim ie As InternetExplorer
Dim numberOfPages As Double
Dim html As HTMLDocument
Set ie = New InternetExplorer
ie.Visible = True
ie.navigate "https://cebra.com.ar/category/73/Juego-de-Construccion.html"
Do While ie.readyState <> READYSTATE_COMPLETE
Application.StatusBar = "Loading Web page …"
DoEvents
Loop
Set html = ie.document
Set elements = html.getElementsByClassName("container")
Set ElementCol = html.getElementsByTagName("a")
numberOfPages = ie.document.querySelectorAll(".setPage").Length
'MsgBox numberOfPages
For Each ele In ie.document.getElementsByTagName("li")
For Each element In elements
If element.className = "container" Then
'Do something
Call procedure
End If
Next element
Next
MsgBox "Done"
End Sub
----------------------------------------
Option Explicit
Public Sub procedure()
MsgBox numberOfPages
'Aquí es donde quiero utilizar la ventana de internet explorer abierta y algunas variables definidas en el procedimiento anterior
End Sub