¿Error de compilación no se ha definido sub o function en VBA para SEO?

Hace tiempo el compañero José Moreno nos dejo
esta macro, el caso es que muestra el error mencionado y no se como
solucionarlo, os dejo el archivo:
Public Function ExtraerKFIKOI(Expresión As String, BusquedasMes, KFIoKOI As String)
Sleep Int((15000 - 8000 + 1) * Rnd + 8000) 'Espera entre 8 y 15 segundos
Dim URL As String
Dim IE As Internet explorer
Dim HTMLdoc As HTMLDocument
Dim TDelements As IHTMLElementCollection
Dim TDelement As HTMLTableCell
Select Case lcase(KFIoKOI)
Case "kfi"
URL = Replace("http://www.google.es/search?que=allintitle%3A" + Expresión + "&pws=0", " ", "+")
Case "koi"
URL = Replace("http://www.google.es/search?q=allinanchor%3A" + Expresión + "&pws=0", " ", "+")
Case Else
URL = Replace("http://www.google.es/search?q=" + Expresión + "&pws=0", " ", "+")
End Select
Set IE = New Internet explorer
With IE
.navigate URL
.Visible = False
While .Busy Or .readyState <> READYSTATE_COMPLETE:
DoEvents: Wend
Set HTMLdoc = .document
End With
Set TDelements = HTMLdoc.getElementsByTagName("div")
For Each TDelement In TDelements
Select Case TDelement.ID
Case "resultStats"
ExtraerKFIKOIStr = "INICIO" + lcase(TDelement.innerText)
ExtraerKFIKOIStr =
Trim(Replace(Replace(Replace(Replace(ExtraeTexto(CStr(ExtraerKFIKOIStr),
"INICIO", "resultado"), "aproximadamente ", ""), ",", ""), ".", ""),
"'", ""))
ExtraerKFIKOI = CLng(ExtraerKFIKOIStr)
If lcase(KFIoKOI) = "kfi" Or lcase(KFIoKOI) = "koi" Then ExtraerKFIKOI = (BusquedasMes ^ 2) / ExtraerKFIKOI
Case "infoDiv"
IE.Visible = True
ExtraerKFIKOI = "CAPTCHA"
End Select
Next
If Len(ExtraerKFIKOI) = 0 Then
ExtraerKFIKOI = (BusquedasMes ^ 2) / 1
End If
If IE.Visible = False Then
IE.Quit
Set TDelements = Nothing
Set HTMLdoc = Nothing
Set IE = Nothing
End If
End Function

0

Añade tu respuesta

Haz clic para o