Print side | Luk vindue

Gem og luk

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=3841
Udskrevet den: 07.Maj.2024 kl. 11:42


Emne: Gem og luk
Besked fra: Torben57
Emne: Gem og luk
Posteringsdato: 17.Mar.2019 kl. 19:30
Hej. er der et lyst hoved der kan hjælpe en nybegynder.
Har et excel skema som skal gemmes og lukkes ved tryk på en knap. Excel navnet kommer fra 2 celler.
Har fået det til at virke med denne kode men vil gerne tilføje en luk funktion. Tænker der skal være et delay på 1 sek efter gem funktion til der lukkes (skal gemmes på et netværkshardisk). Hvis der er flere excel filer åbne, skal det kun det aktive gemmes.


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
End Sub


Svar:
Besked fra: EXCELGAARD
Posteringsdato: 17.Mar.2019 kl. 21:51
Tilføj disse linjer i din kode, for at lukke Excel, efter dit regneark er gemt: 
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


-------------
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.

Besked fra: Torben57
Posteringsdato: 18.Mar.2019 kl. 15:20
Hej EXCELGAARD.

Det virker fint så længe der er kun 1 excel åben. 
Når der er 2 excel filer eller mere åbne lukker de alle men rigtigt kun den med markro i gemmer.
Er det muligt at få koden til kun at gemme og lukke det excel fil som koden er i og de andre åbne ?

Mange tak for hjælpen.

Hilsen Torben.


Print side | Luk vindue