VBA to Close Unsaved Workbook

[dariuzthepole]

Hi all,

I have a macro that imports an XML file into a specific spreadsheet, e.g. figures.xls. When I import the XML, it firstly creates it in its own unsaved workbook, e.g. Book1. Obviously, if I keep figures.xls open and import multiple XML files, Book1 becomes Book2, Book3, Book4 etc.

I'm struggling to work out the code that will close any unsaved workbook, e.g. Book1, Book2 etc, without closing figures.xls, as technically after I have imported the data via the macro it will need saving itself.

Any information you can provide would be greatly appreciated!

 

[wigi]

For instance,

Workbooks("Book1.xls").Close 0

which is shorthand for:

Workbooks("Book1.xls").Close savechanges:=False

If you want to be sure, you could also add the Saved property:

With Workbooks("Book1.xls")
    .Saved = True
    .Close 0
End With

 

[dariuzthepole]

For instance,

Workbooks("Book1.xls").Close 0

which is shorthand for:

Workbooks("Book1.xls").Close savechanges:=False

If you want to be sure, you could also add the Saved property:

With Workbooks("Book1.xls")
    .Saved = True
    .Close 0
End With

Thanks Wigi.

That works for when the unsaved workbook is called Book1, but it may also be called Book2, Book3 etc.

I guess I'm looking for some sort of IF statement saying:
If Workbook Name is not figures.xls
Close
End If

I can't get the syntax for the above correct!

Thanks for your help.

 

[GTO]

...When I import the XML, it firstly creates it in its own unsaved workbook, e.g. Book1.

How is that part being done? Are you unable to set references to the created worbooks?

 

[GTO]

...I'm struggling to work out the code that will close any unsaved workbook, e.g. Book1, Book2 etc, without closing figures.xls

Sorry, presuming the code is running from figures.xls

Sub exampleCloseAll()
Dim wb As Workbook
    
    For Each wb In Workbooks
        If Not wb.FullName = ThisWorkbook.FullName Then wb.Close False
    Next
End Sub

 

[dariuzthepole]

Sorry, presuming the code is running from figures.xls

Sub exampleCloseAll()
Dim wb As Workbook
 
    For Each wb In Workbooks
        If Not wb.FullName = ThisWorkbook.FullName Then wb.Close False
    Next
End Sub

Ideal! This is exactly what I'm looking for - thanks very much.

 

[Norie]

You could check this the Path property of each workbook.

If it's "" the it's never been saved.