[Resuelto] Macro para importar datos desde página web

Discute sobre la aplicación de hojas de cálculo

[Resuelto] Macro para importar datos desde página web

Notapor Mulbieh » Sab Dic 02, 2017 12:15 am

Buenas noches,

En primer lugar, me presento: Estoy aprendiendo con OpenOffice y aun estoy con mis primeros pinitos.Os ruego me disculpeis si la consulta es muy de aprendiz.

Estoy intentando crear una macro para importar datos de una página de un simulador de fútbol online ( hattrick)

En la la columna A1 de la hoja activa tengo todos los enlaces a las páginas webs de las que quiero obtener los datos:

' https://www94.hattrick.org/World/Series ... itID=53802
' https://www94.hattrick.org/World/Series ... itID=53803
' https://www94.hattrick.org/World/Series ... itID=53804
' https://www94.hattrick.org/World/Series ... itID=53805
' https://www94.hattrick.org/World/Series ... itID=53806
' https://www94.hattrick.org/World/Series ... itID=53807
' https://www94.hattrick.org/World/Series ... itID=53808
etc. (hay muchas)

En la columna B1 a H1 de la misma hoja activa me gustaría ir descargando las tablas de todos estos enlaces, una debajo de otra (la extension de cada una de las tablas es diferente)

Hasta ahora lo único que he conseguido con la siguiente macro es que me abra una de las páginas y me descargue la tabla ("HTML_1") pero no se como continuar la macro para que seguidamente vaya a la segunda linea de la columna A ( la A2), y continue el proceso, abriendo la pagina, descargando la tabla justo debajo de la otra y asi sucesivamente hasta la última pagina web informada.

Código: Seleccionar todo   Expandir vistaContraer vista
sub prueba
dim document as object
dim dispatcher as object
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
cadena = thiscomponent.currentcontroller.activesheet.getcellrangebyname("A1").string
dim args(2) as new com.sun.star.beans.PropertyValue
args(0).Name = "FileName"
args(0).Value = "https://www94.hattrick.org/World/Series/Marathon.aspx?LeagueLevelUnitID=53802"
args(1).Name = "FilterName"
args(1).Value = "calc_HTML_WebQuery"
args(2).Name = "Source"
args(2).Value = "HTML_1"
cadena = thiscomponent.currentcontroller.activesheet.getcellrangebyname("B1").string
dispatcher.executeDispatch(document, ".uno:InsertExternalDataSource", "", 0, args())
end sub


¿Me podeis orientar un poco para que pueda continuar, por favor?

Muchas gracias anticiapadas por vuestra atención y ayuda.

Recibid un cordial saludo
Apache OpenOffice 4.1.4
Mulbieh
 
Mensajes: 1
Registrado: Vie Dic 01, 2017 11:10 pm

Volver a Calc

¿Quién está conectado?

Usuarios navegando por este Foro: Google [Bot] y 23 invitados