Bumping with more details.

I've this piece of test code and I'm having problems because at the end
the -wkInterligBook- wkbook doesn't unload with the -Set wkInterligBook
= Nothing- command.

Can someone help me?


Code:
--------------------
Sub Test()

Dim sFullPathToInterligFile As String
Dim sFullPathToFinalFile As String
Dim wkInterligBook As Workbook

Dim con As ADODB.Connection


sFullPathToInterligFile = ThisWorkbook.Path & "\Test_File.xls"
sFullPathToFinalFile = ThisWorkbook.Path & "\Test_File_Copy.xls"

Set wkInterligBook = Workbooks.Open(sFullPathToInterligFile)

wkInterligBook.Sheets(1).Copy
wkInterligBook.Close
Set wkInterligBook = Nothing

Set wkInterligBook = ActiveWorkbook
wkInterligBook.SaveAs sFullPathToFinalFile

DBEngine.RegisterDatabase "MS Excel Database", _
"Microsoft Excel Driver (*.xls)", True, _
"DBQ=" & sFullPathToFinalFile & ";DESCRIOTION=ODBC para Excel"

Set con = New ADODB.Connection
con.Open "Data Source=MS Excel Database"
con.CursorLocation = adUseClient

' (...)
' (...)
' (...)
' (...)
' (...)

con.Close
Set con = Nothing

wkInterligBook.Save
wkInterligBook.Close
Set wkInterligBook = Nothing
End Sub
--------------------


The references are the following
[image:
http://i22.photobucket.com/albums/b3...eferences.jpg]

and you need to have an (any) excel file name -Test_File.xls- in the
running folder.


--
pao_e_vinho
------------------------------------------------------------------------
pao_e_vinho's Profile: http://www.excelforum.com/member.php...o&userid=21360
View this thread: http://www.excelforum.com/showthread...hreadid=554625