Definir un objeto como otro libro

Desarrollo de Macros y programación en UNO, usar las API, llamar programas externos...
Responder
Millocai
Mensajes: 22
Registrado: Lun Nov 04, 2013 12:38 pm

Definir un objeto como otro libro

Mensaje por Millocai »

Buenas a todos tengo el siguiente codigo:

Código: Seleccionar todo

Sub Actualizar
Dim fecha, aux, liga, estado, eloc, evis, url as string
Dim part, i, gloc, gvis, lht, vht as integer
Dim hoja, celda, millocai as object
	Dialoglibraries.Loadlibrary("Standard")
	hoja = thiscomponent.sheets(0)
	url = convertToUrl (hoja.getcellbyposition (8,0).getformula)
	If FileExists (url) Then
		millocai = starDeskTop.loadComponentFromUrl (Url, "_blank", 0, Array())
		msgbox millocai.sheets(0).getcellbyposition (0,0).getformula
	Else
		msgbox "NO SE PUEDE ENCONTRAR ARCHIVO EN LA RUTA INDICADA"
	End If
	fecha = inputbox ("INTRODUCE LA FECHA")
	part = val (inputbox ("INTRODUCE EL NUMERO DE PARTIDOS"))
	for i = 1 to part
		celda = hoja.getcellbyposition (0,i)
		liga = celda.getformula
		celda = hoja.getcellbyposition (1,i)
		estado = celda.getformula
		celda = hoja.getcellbyposition (3,i)
		eloc = celda.getformula
		celda = hoja.getcellbyposition (5,i)
		evis = celda.getformula
		celda = hoja.getcellbyposition (4,i)
		Select case estado
			Case "FT"
				gloc = val (mid (celda.getformula,1,1))
				gvis = val (mid (celda.getformula,3,1))
				lht = val (mid (celda.getformula,6,1))
				vht = val (mid (celda.getformula,8,1))
				
		End Select
		msgbox eloc & " " & evis & " " & gloc & " " & gvis & " ( " & lht & " " & vht 
	next
End Sub
El tema es que cada vez que uso esta macro me abre una copia del otro archivo, como hago para definir el objeto millocai como el otro libro, sin tener que abrirlo en caso de que esté previamente abierto? Como puedo saber si está abierto?

Se pueden modificar celdas de otro libro sin que esté abierto?
OpenOffice 4.1.2 en Windows 10
Avatar de Usuario
mauricio
Mensajes: 6093
Registrado: Sab Nov 22, 2008 5:36 am
Ubicación: CDMX
Contactar:

Re: Definir un objeto como otro libro

Mensaje por mauricio »

Tienes que buscar primero si esta abierto, usa el titulo del documento, si no esta abierto, entonces lo abres...

Todo esta detallado y explicado por aquí: https://wiki.openoffice.org/wiki/ES/Man ... documentos

Saludos
______________________________________________
"Todo cuanto no podemos dar nos posee". - André Gide
LibreOffice 6.2 | ArchLinux | Gnome3
No respondo preguntas privadas, por favor, usa el foro
Responder