• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Bestand sluit niet automatisch na macro

Status
Niet open voor verdere reacties.

knarfje

Gebruiker
Lid geworden
12 mrt 2001
Berichten
817
Hallo,

Na het starten van deze macro word het nieuwe bestand niet (automatisch) gesloten.
Er word eerst gevraagd op je het bestand wilt opslaan en dat ie al bestaat of zo.
Waarschijnlijk omdat het bestand in een eerder stadium in deze code al opgeslagen is, kan dat aangepast worden zodat die vraag niet meer komt en het nieuwe bestand netjes gesloten word?


Code:
Sub test2()
Application.DisplayAlerts = False
ThisWorkbook.SaveCopyAs ThisWorkbook.Path & "\" & [A1] & [A2] & ".xls"
Workbooks.Open ThisWorkbook.Path & "\" & [A1] & [A2] & ".xls"
For lCt = ActiveWorkbook.Worksheets.Count To 1 Step -1
    If Worksheets(lCt).Name <> "Logistiek dagbericht" And Worksheets(lCt).Name <> "Data Lev" Then
Worksheets(lCt).Delete
End If
Next
Application.DisplayAlerts = True
With ActiveWorkbook
.Close
End With
End Sub
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan