Lo que comentas tiene buena pinta:
ObjetoExcel.Quit
Set ObjetoExcel = Nothing
pero no se como seria la sentencia que tendria que aplicar exactamente y a que objeto, supongo que el objeto sería el fichero el cual no se consigue cerrar.
BUCLE DONDE LLAMO AL METODO PROBLEMATICO
For CONT = 1 To Hoja3.Range("TOTREV").Value
cargar_FITI_R (CONT)
process = process + 1
PCDONE = process / barra
Call UpdateProgress(PCDONE)
Next
================================================== =====
================================================== =====
================================================== =====
Function cargar_FITI(CONT As Integer)
Dim forigen As String
On Error Resume Next
Hoja3.Range("TEMP").Value = Application.WorksheetFunction.Index _
(Workbooks("menunew.xls").Sheets("datos").Range("T ABLA_REVISTAS"), CONT, 3)
If Hoja3.Range("TEMP").Value = Hoja3.Range("EMPRESA") Then
Hoja3.Range("REVISTA") = Application.WorksheetFunction.Index _
(Workbooks("menunew.xls").Sheets("datos").Range("T ABLA_REVISTAS"), CONT, 2)
forigen = Hoja3.Range("fichero_fiti").Value
Workbooks.Open Filename:=forigen
Range("A1:N130").Select
Selection.Copy
Workbooks("ficacu.xls").Activate
Application.Goto reference:=ActiveWorkbook.Sheets("ficha").Range("z onaux")
Selection.PasteSpecial Paste:=xlValues, Operation:=xlAdd, SkipBlanks:= _
False, Transpose:=False
Hoja1.Range("a1").Activate
Hoja1.Range("a1").Select
Selection.Copy
forigen = Right(forigen, 12)
Workbooks(forigen).Close False
End If
End Function
Muchas Gracias de antemano por vuestra colaboración.-
