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
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 Muchas gracias anticiapadas por vuestra atención y ayuda.
Recibid un cordial saludo