LIBRO DE EXCEL
Publicado por GUSTAVO (218 intervenciones) el 21/06/2008 16:20:57
buen dia, estoy enviando datos desde visual a un libro de excel,
mi preguntas como puedo saber si el libro al cual envio la informacion ya esta abierto?
esto es por que cada vez que envio los datos al libro me abre el libro nuevamente
o sea si pido el reporte en excel 5 veces, 5 veces se abre el libro y es algo quiero evitar solo quiero abrir el libro una vez y que cada ves que envien datos los coloque en la hoja respectiva, el codigo que utilizo para abrir el libros es:
Dim oex As Object
Dim obook As Object
Dim osheet As Object
Dim a As Integer, X As Integer
Dim i As Long
obook.Application.DisplayAlerts = False
Set oex = CreateObject("excel.application")
Set obook = oex.Workbooks.Add(App.path & "ceco.xls")
obook.Worksheets(2).Select
Set osheet = obook.Worksheets(2)
.
.
.
.
.
oex.Visible = True
Set oex = Nothing
Set obook = Nothing
Set osheet = Nothing
rs.Close
mi preguntas como puedo saber si el libro al cual envio la informacion ya esta abierto?
esto es por que cada vez que envio los datos al libro me abre el libro nuevamente
o sea si pido el reporte en excel 5 veces, 5 veces se abre el libro y es algo quiero evitar solo quiero abrir el libro una vez y que cada ves que envien datos los coloque en la hoja respectiva, el codigo que utilizo para abrir el libros es:
Dim oex As Object
Dim obook As Object
Dim osheet As Object
Dim a As Integer, X As Integer
Dim i As Long
obook.Application.DisplayAlerts = False
Set oex = CreateObject("excel.application")
Set obook = oex.Workbooks.Add(App.path & "ceco.xls")
obook.Worksheets(2).Select
Set osheet = obook.Worksheets(2)
.
.
.
.
.
oex.Visible = True
Set oex = Nothing
Set obook = Nothing
Set osheet = Nothing
rs.Close
Valora esta pregunta


0