Hi all,

My project is about pick up info from individual workbook, and merge the
info into a new workbook. But in the end of code, even I set nothing to
workbook and application object, but the Excel process is still there, but
the way the open and close procedure is very slow, is there any way to
expedite it?

Dim SrcWrk As Workbook
Dim DstWrk As Workbook
Dim app As New Application


DstWrk = app.Workbooks.Add()

For Each File As String In Directory.GetFiles(Me.SrcDir, "*.xls",
System.IO.SearchOption.AllDirectories)


SrcWrk = app.Workbooks.Open(File)

SrcWrk.Close()
SrcWrk = Nothing

Next

DstWrk.SaveAs(Me.DesDir & "\" & Me.DesFileName)
DstWrk.Close()
DstWrk = Nothing
app.Quit()
app = Nothing

--

You can see, now there is no action within the loop.

Clara
thank you so much for your help