crear un unico objeto de tipo excel para procesamiento d N ficheros excel de entrada

[Iosuphil]

Buenos dias foreros,estoy haciendo una macro para el proceso de n ficheros excel de entrada.

sub Procesar_click()
Dim I As Integer
For I=1 to (List2.List(I))
Procesar_click2()
Next I

sub procesar_click2()

Set objExcel = New Excel.Application 'aki creo el objeto de tipo excel
Set Wexcel = objExcel.Workbooks.Open(P3)
objExcel.Visible = True
objExcel.Worksheets.Add After:=objExcel.Sheets(1)
objExcel.Sheets(1).Select
objExcel.Visible = True
.
.
. {tratamiento}
.
.
objExcel.DisplayAlerts = False
Wexcel.SaveAs P3
Wexcel.Close
Set Wexcel = Nothing
objExcel.Quit
Set objExcel = Nothing

quiero saber como hacer para que solo se me cree un proceso de "excel" para N ficheros excel de entrada,ya que por aora lo unico que he conseguido por ahora es que me cree un proceso de tipo excel por cada excel de entrada....creo ke tiene algo que ver con estas sentencias

Wexcel.Close
objExcel.Quit

sI aLGUIEN me puede ayudar estaria agradecido
gracias!!!!

[David]

Pues precisamente con las líneas:

Código vb:

objExcel.Quit
Set objExcel = Nothing
 

Estás cerrando Excel y destruyendo el objeto. Quítalas para que poder reutilizar la aplicación abierta para abrir otros archivos. En ese caso es mejor abrir la aplicación al empezar tu programa y cerrarla cuando termine.