Dansk Regneark Forum
  Hjælp Hjælp  Søg i forum   Arrangementer   Opret ny bruger Opret ny bruger  Log ind Log ind


Emne lukketGem og luk kun ark

 Besvar Besvar
Forfatter
Torben57 Se dropdown
Forum Begynder
Forum Begynder
Avatar

Medlem: 17.Mar.2019
Land: Danmark
Status: Offline
Point: 14
Direkte link til dette indlæg Emne: Gem og luk kun ark
    Sendt: 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
Til top



Til top
Michael D Se dropdown
Bronze bruger
Bronze bruger
Avatar

Medlem: 22.Feb.2019
Land: Danmark
Status: Offline
Point: 23
Direkte link til dette indlæg Sendt: 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
Til top
 Besvar Besvar

Skift forum Forum tilladelser Se dropdown

© 2010 - 2024 Dansk Regneark Forum - en del af Excel-regneark.dk