Saltar al contenido

Exportacion contenido web a excel

publicado

Estoy trabajando en una macro de forma que me permita extraer de una pagina de ofertas de empleo americana la información de ofertas según el código postal y la zona.

Creo que la macro está bien pero cuando intento ejecutarla, nada más empezar, en el módulo 2 me subraya en azul la linea Macro 1 y aparece un aviso diciendo "error de compilación, No se ha definido Sub o Funcioo" He revisado la hoja de excel y no sé donde puedo equivocarme.

Aquí tenéis el codigo de programacion del módulo 2. Pongo en rojo la línea donde creo que está el problema

----------------------------------------

Sub test()

Dim eROW As Long

Dim ELE As Object

Set STH = Sheets("SHEET1")

RowCount = 1

STH.Range("A" & RowCount) = "TITLE"

STH.Range("B" & RowCount) = "COMPANY"

STH.Range("C" & RowCount) = "LOCATION"

STH.Range("D" & RowCount) = "DESCRIPTION"

eROW = SHEET1.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row

Set OBJIE = CreateObject("INTERNETEXPLORER.APPLICATION")

myjobtype = InputBox("ENTER TYPE OF JOB EG. SALES, ADMINISTRATION")

myzip = InputBox("ENTER ZIPCODE OF AREA WHERE YOU WISH TO WORK")

With OBJIE

.Visible = True

.navigate "http://www.jobs.com/"

Do While .busy Or _

.READYSTATE <> 4

DoEvents

Loop

Set what = .document.getELementsbyName("q")

what.Item(0).Value = myjobtype

Set zipcode = .document.getELementsbyName("where")

zipcode.Item(0).Value = myzip

.document.getelementbyid("jobsbutton").Click

Do While .busy Or _

.READYSTATE <> 4

DoEvents

Loop

For Each ELE In .document.all

Select Case ELE.classname

Case "result"

RowCount = RowCount + 1

Case "title"

sht.Range("A" & RowCount) = ELE.INNERTEXT

Case "COMPANY"

sht.Range("B" & RowCount) = ELE.INNERTEXT

Case "LOCATION"

sht.Range("C" & RowCount) = ELE.INNERTEXT

Case "DESCRIPTION"

sht.Range("D" & RowCount) = ELE.INNERTEXT

End Select

Next ELE

End With

Macro1

Set OBJIE = Nothing

End Sub

------------------------------------------

Adjunto el archivo en formato zip

Gracias x adelantado.

Borja

exportador maravilloso.zip

Featured Replies

No hay posts para mostrar

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.