Jump to content

error de compilacion en macro a la hora de exportar datos web a excel!!!!


Recommended Posts

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

Link to comment
Share on other sites

amigo, el primer procedimiento le hace falta su "línea de encabezado" (no se realmente como llamarla jejejeje), es la línea que indica que comienza un precedimiento.

agrega esto al principo del modulo 1

Sub Macro1

y listo, ya deberia funcionar (Macro1 lo puedes cambiar por el nombre que quieras que tenga tu procedimiento), suerte

Link to comment
Share on other sites

Buenos días,

Seguí tu consejo pero a la hora de ejecutar el módulo 1 me pone

"se ha producido un error 438 en tiempo de ejecución" El objeto no admite esta propiedad o método"

Le doy a depurar y la linea .VertilcalAligment = xlTop aparece marcada en amarillo.

Cuando intento ejecutar el módulo 2 me aparece el mismo mensaje y me remite a la línea anterior.

No sé a qué puede deberse???

Puedes/podeís ayudarme???

Gracias

Borja

pd adjunto el mismo archivo ya que en el anterior había algunas líneas con error de código. El nuevo archivo se llama star

star.zip

Link to comment
Share on other sites

Amigo, en tu codigo tienes

.VertilcalAligment = xlTop

y es VerticalAlignment

(revisa que no está bien escrita).

un consejo, cuando te suceda algo, intenta buscar con la ayuda del propio excel (es muy buena), tambien puedes escribir por ejemplo:

range(). (y cuando coloques el punto veras que te sale una venta con todas las propiedades y/o eventos pertenecientes al objeto range, puedes verificar alli si alguna está mal escrita o si hay algo que estes buscando), suerte

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.

×
×
  • Create New...

Important Information

Privacy Policy