Bepaalde bestanden afsluiten

[Niels25]

Beste mensen,

Is het mogelijk via een macro/vba alleen bepaalde bestanden af te sluiten? Mijn probleem in namelijk als volgt. Ik wil door een druk op de knop de laatste twee geopende excel bestanden opslaan en afsluiten. (tevens daarna opent hij twee nieuwe bestanden.)

Ik heb al gestoeid met:

For Each wWorkb In Application.Workbooks
If wWorkb.Name <> ActiveWorkbook.Name Then wWorkb.Close (True)

Alleen dan sluit excel alle niet actieve spreadsheets af, en dat is niet altijd de bedoeling.

Hopelijk is het een beetje duidelijk, anders volgt er nog wat nadere info,

Groetjes!

 

[snb]

Ik had liever dat je hiermee had gestoeid.

For Each WB In Application.Workbooks
  If wb.Name <> ThisWorkbook.Name Then wb.Close True
Next

 

[Niels25]

Sorry, misschien wat meer duidelijkheid van mijn kant,

Bij het starten van de macro zou het mooi zijn dat excel de laatst twee geopende bestanden opslaat en sluit. Tevens blijft het actieve werkboek wel geopend.

Mocht deze functie niet bestaan, is het dan mogelijk om een bestand te sluiten aan de hand van de bestandsnaam?

groetjes!

 

[Wigi]

is het dan mogelijk om een bestand te sluiten aan de hand van de bestandsnaam?

Bvb.

For Each WB In Application.Workbooks
  If wb.Name = "Bestand1.xls" Or wb.Name = "Bestand5.xls" Then wb.Close True
Next

 

[Niels25]

Dank u, wigi! Dit helpt me zeker een stap verder.

Is het trouwens mogelijk als je de optie venster schikken. (Windows.Arrange ArrangeStyle:=xlNext) te beperken tot bepaalde werkboeken, in plaats van alle openstaande excel werkboeken?

 

[Wigi]

Is het trouwens mogelijk als je de optie venster schikken. (Windows.Arrange ArrangeStyle:=xlNext) te beperken tot bepaalde werkboeken, in plaats van alle openstaande excel werkboeken?

Nieuwe vraag, dus best een nieuwe topic beginnen.