error de compilacion en macro a la hora de exportar datos web a excel!!!!
publicado
Necesito ayuda con esta macro. Estoy empezando en esto de la programacion vba y no estoy muy ducho.
No consigo resolver el error que me da el mensaje.
Estoy trabajando con una hoja de excel con la finalidad de exportar datos de una web de empleo americana a excel categorizando ciertas informaciones en dos columnas.
La hoja tiene dos módulos. Al ejecutar la macro aparece un mensaje en relación con el modulo 1 donde se dice "error de compilación el procedimiento externo no es valido ". A continuación se subraya en el código la línea Columns("A:D").Select.
Necesito ayuda con esta macro. Estoy empezando en esto de la programacion vba y no estoy muy ducho.
No consigo resolver el error que me da el mensaje.
Estoy trabajando con una hoja de excel con la finalidad de exportar datos de una web de empleo americana a excel categorizando ciertas informaciones en dos columnas.
La hoja tiene dos módulos. Al ejecutar la macro aparece un mensaje en relación con el modulo 1 donde se dice "error de compilación el procedimiento externo no es valido ". A continuación se subraya en el código la línea Columns("A:D").Select.
Aqui adjunto el código de módulo 1
-------------------------
' Macro1 Macro
' formatting imported data
'
'
Columns("A:D").Select
Selection.Columns.AutoFit
With Selection
.VertilcalAligment = xlTop
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
End With
Range("D1").Selection
Columns("D:D").ColumnWidth = 50
Columns("A:D").Select
Selection.Rows.AutoFit
End Sub
---------------------------
y aquí el código del módulo 2
---------------------------------------------------------
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")
BOX ("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 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
---------------------------
¿Alguien puede ayudarme a arreglar la macro?
Gracias
pd archivo adjunto con hoja excel conteniendo los dos módulos
exportador.zip