Visual Basic - Excel Avanzado

Hola el problema es que quiero verificar si determinado Libro de Excel esta Abierto al correr una aplicacion, ya que si esta abierto lo deseo cerrar por que sino me abre el Libro solo de Lectura, si alguien me puede ayudar le agradecere..

Saludor Cordiales

Me imagino que mediante código llamas a un archivo Excel, lo visualizas pero no lo cierras, luego vuelves al visual y vuelves a llamar al mismo archivo, lo habres pero no puedes editar nada porque se habre de modo lectura pues ya existe uno abierto.

Si es así, te recomiendo que generes una planitilla del archivo que vas a habrir (*.XLT), luego desde visual lo llamas de la siguiente forma:

Dim XlsHoja As Excel.Application
If MsgBox("Accederá a un formato en Excel " & Chr(13) & "Confirmar ", _
vbInformation + vbYesNo, "Aviso...") = vbNo Then Exit Sub

Set XlsHoja = CreateObject("EXCEL.APPLICATION")

XlsHoja.Workbooks.Add Template:=RutaDoc & "\F_Parte.XLT"
XlsHoja.Application.Visible = True
XlsHoja.Windows(1).Visible = True

XlsHoja.Sheets(1).Cells(1, 49) = LbCodInsp
XlsHoja.Sheets(1).Cells(2, 49) = Format(Rs!Fe_Insp, "dd-mmm-yyyy")
XlsHoja.Sheets(1).Cells(3, 49) = Trim(Rs!co_loca)
XlsHoja.Sheets(1).Cells(4, 49) = Trim(Rs!no_insp)

Set XlsHoja = Nothing


'Lógicamente antes debes activar la referencia del Ecxel al proyecto.

y como activo la referencia del Ecxel al proyecto????????