Print side | Luk vindue

Makro : Save as

Udskrevet fra: Dansk Regneark Forum
Kategori: Hjælp til regneark.
Forum navn: Makro og VBA
Forum beskrivelse: Hjælp til Makroer og VBA-programmering
Web-adresse: https://forum.excel-regneark.dk/forum_posts.asp?TID=635
Udskrevet den: 27.Nov.2024 kl. 05:15


Emne: Makro : Save as
Besked fra: Maring78
Emne: Makro : Save as
Posteringsdato: 02.Feb.2012 kl. 15:45
Hej!
 
Har et regneark,. hvor jeg gerne vil tvinge brugeren til at gemme med et bestemt navn og et bestemt format. Navnet står i celle "O5". Format skal være macro enabled. Bruger skal selv kunne vælge stien, hvor filen skal gemmes (som standard vil den gemme der, hvor filen oprindeligt blev åbnet).
 
Har lavet følgende kode:
 
 -----
Private Sub CommandButton9_Click()

'Knap til at gemme workbook

   fileSaveName = Application.GetSaveAsFilename( _
    InitialFileName:=Range("O5"), _
    fileFilter:="Microsoft Office Excel 2007 Macro-Enabled Workbook (*.xlsm), *.xlsm")
    
End Sub
 -----
 
Jeg får billedet frem, hvor jeg kan gemme og den vælger selv teksten og formatet. Så langt lader den altså til at virke. Problemet er så, at jeg ikke kan finde filen bagefter, og hvis jeg klikker på min gem-knap flere gange og kalder filen ved samme navn, så kommer der heller ikke en advarsel om, at der allerede eksisterer en fil. Det er altså som om filen ikke bliver gemt.
 
Noget der kan hjælpe? :-)



Print side | Luk vindue