Print side | Luk vindue

Gem og luk kun ark

Udskrevet fra: Dansk Regneark Forum
Kategori: Hjælp til regneark.
Forum navn: Generelt
Forum beskrivelse: Hjælp til generel daglig brug af programmet Excel
Web-adresse: https://forum.excel-regneark.dk/forum_posts.asp?TID=3843
Udskrevet den: 23.Nov.2024 kl. 16:25


Emne: Gem og luk kun ark
Besked fra: Torben57
Emne: Gem og luk kun ark
Posteringsdato: 19.Mar.2019 kl. 12:44
Hej 
Har fået hjælp til dette og det virker fint men koden lukker alle åbne excel filer.
Hvad skal der ændres / tilføjes for at det kun bliver den aktive fil der lukkes ?
Her er koden 

Sub GemSom()
    Dim Path As String
    Dim Filename1 As String
    Dim Filename2 As String
    Path = "F:\2019\Ugerapport\"
    Filename1 = Range("C4")
    Filename2 = Range("H3")
    ActiveWorkbook.SaveAs Filename:=Path & Filename1 & "-" & Filename2
    Application.Wait Now + TimeSerial(0, 0, 1)
    Application.DisplayAlerts = False
    Application.Quit
End Sub

Hilsen Torben


Svar:
Besked fra: Michael D
Posteringsdato: 21.Mar.2019 kl. 09:57
Hej Torben,

Så skal du fjerne Application.Quit (som lukker hele Excel) og i stedet bruge ActiveWorkbook.Close

vh,
Michaël


Print side | Luk vindue