Abrir archivo desde Msflexgrid
Publicado por Camacho (1 intervención) el 30/04/2008 17:28:45
HOLA
Estoy haciendo uin programa para abrir ciertos archivos de Excel ,el problema que tengo por el momento es que cargo todos los archivo que quiero en el grid, pero ahpra quiero abrir los desde el grid ya sea con click ,doubleclick , les pido ayuda para saber como le podria hacer les paso la funcion que utizo para abror el archivos de excel para ver si me pueden ayudarlaa modificar.Gracias.
Sub OpenFile()
If FileInUse = False Then
FileInUse = True
Set ApExcel = CreateObject("Excel.application")
On Error Resume Next
Set objWB = ApExcel.Workbooks.Open(App.Path & "Programacion.xls")
ApExcel.Visible = True
Else
MsgBox "El Archivo Está Abierto.Se Cerrará Automáticamenre Para Actualizarlo.", vbInformation, "Actualizar Programa "
CloseFile
OpenFile
End If
End Sub
Estoy haciendo uin programa para abrir ciertos archivos de Excel ,el problema que tengo por el momento es que cargo todos los archivo que quiero en el grid, pero ahpra quiero abrir los desde el grid ya sea con click ,doubleclick , les pido ayuda para saber como le podria hacer les paso la funcion que utizo para abror el archivos de excel para ver si me pueden ayudarlaa modificar.Gracias.
Sub OpenFile()
If FileInUse = False Then
FileInUse = True
Set ApExcel = CreateObject("Excel.application")
On Error Resume Next
Set objWB = ApExcel.Workbooks.Open(App.Path & "Programacion.xls")
ApExcel.Visible = True
Else
MsgBox "El Archivo Está Abierto.Se Cerrará Automáticamenre Para Actualizarlo.", vbInformation, "Actualizar Programa "
CloseFile
OpenFile
End If
End Sub
Valora esta pregunta
0