Closing workbook variable

[tris070891]

I have successfully created a macro that opens the latest modified excel file in a folder. However I am unable to close the workbook after I open it. This is what the successful macro looks like:

Dim strFolder As String
Dim strFile As String
Dim latestFile As String
Dim dtLast As Date


' assign variables
strFolder = "S:\Active Projects\8450 - Woolworths EDR Brand Tracker Research\8450 - Project Documents\8450 - Fieldwork\8450 - Sample\8450 - Project History\"
strFile = Dir(strFolder & "\*.*", vbNormal)


' loop through files to find latest modified date
Do While strFile <> ""
If FileDateTime(strFolder & strFile) > dtLast Then
dtLast = FileDateTime(strFolder & strFile)
latestFile = strFolder & strFile
End If
strFile = Dir
Loop

Workbooks.Open (latestFile)

So when workbook opens this is the code that I have used in an attempt to close it

Workbooks.Close (latestFile)

This doesn't work... Can anyone help me out?

Cheers!

 

[Michael M]

Workbooks.Close (latestFile)

Is this being used in the workbook_open event ?
If not, how are you firing the code to execute Workbooks.close

 

[Norie]

Try using a variable to refer to the workbook.

Set wbLatest = Workbooks.Close (latestFile) 

' do stuff

' close workbook 
wbLatest.Close SaveChanged:=False

 

[GTO]

...This doesn't work... Can anyone help me out?

Cheers!

Try: Workbooks(latestFile).Close

(I believe you placed the index/filename arg in the wrong place )

 

[tris070891]

I have tried all of these suggestions and none so far have worked..... I get this message ""Wrong number of arguments or invalid property assignment" with the close workbook code highlighted

 

[Norie]

There were a few typos in the code I posted, this id how it should read.

Set wbLatest = Workbooks.Open(latestFile) 

' do stuff

' close workbook 
wbLatest.Close SaveChanges:=False

 

[tris070891]

Thanks Norie that worked great!!!