problemas con accesos a excel con variables
Publicado por RAFA (7 intervenciones) el 23/04/2009 11:33:26
Hola de nuevo,
Haber si me explico bien y alguien me puede ayudar, quiero acceder a una pagina excel entre un grupo de ellas, es decir, en una carpeta tengo 10 paginas excel, pido por pantalla mediante un inputbox que me den el nombre de la pagina excel, ese nombre introducido por pantalla me sirve para acceder desde basic a mi pagina excel pero....¿Como referencio la variable en la que introduzco el nombre de la pagina para acceder a su contenido?, lo que me pasa es que intenta buscar la pagina excel con el nombre de mi variable, pongo el codigo mejor:
Public Sub CARGARUNIDAD()
ordendetrabajo = (InputBox("orden de trabajo:", "ELABORACION DE PLACA", "INTRODUCE ALGO COÑO"))
OT = "SELECT PROYECTO FROM TBL2 WHERE PROYECTO=ordendetrabajo"
Set UNIDADESFUNCIONALES = CreateObject("Excel.Application")
UNIDADESFUNCIONALES.Application.Visible = True
Set UNIDAD = UNIDADESFUNCIONALES.Workbooks.Open("C:RAFAOT.xls")
UNIDADESFUNCIONALES.Parent.Windows(1).Visible = True
End Sub
ME INTENTA BUSCAR LA PAGINA EXCEL QUE ESTA EN C:RAFAOT.xls Y YO LO QUE QUIERO QUE ME BUSQUE ES C:RAFACONTENIDO DE OT.xls
Si alguien me puede ayudar se lo agradeceria mucho, vamos que te mando un jamon si hace falta
gracias de antemano
rafa
Haber si me explico bien y alguien me puede ayudar, quiero acceder a una pagina excel entre un grupo de ellas, es decir, en una carpeta tengo 10 paginas excel, pido por pantalla mediante un inputbox que me den el nombre de la pagina excel, ese nombre introducido por pantalla me sirve para acceder desde basic a mi pagina excel pero....¿Como referencio la variable en la que introduzco el nombre de la pagina para acceder a su contenido?, lo que me pasa es que intenta buscar la pagina excel con el nombre de mi variable, pongo el codigo mejor:
Public Sub CARGARUNIDAD()
ordendetrabajo = (InputBox("orden de trabajo:", "ELABORACION DE PLACA", "INTRODUCE ALGO COÑO"))
OT = "SELECT PROYECTO FROM TBL2 WHERE PROYECTO=ordendetrabajo"
Set UNIDADESFUNCIONALES = CreateObject("Excel.Application")
UNIDADESFUNCIONALES.Application.Visible = True
Set UNIDAD = UNIDADESFUNCIONALES.Workbooks.Open("C:RAFAOT.xls")
UNIDADESFUNCIONALES.Parent.Windows(1).Visible = True
End Sub
ME INTENTA BUSCAR LA PAGINA EXCEL QUE ESTA EN C:RAFAOT.xls Y YO LO QUE QUIERO QUE ME BUSQUE ES C:RAFACONTENIDO DE OT.xls
Si alguien me puede ayudar se lo agradeceria mucho, vamos que te mando un jamon si hace falta
gracias de antemano
rafa
Valora esta pregunta


0