Makro og VBA - hjælp til kode

hjælp til kode

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=631
Udskrevet den: 20.Apr.2025 kl. 10:51

Emne: hjælp til kode

Besked fra: kbno
Emne: hjælp til kode
Posteringsdato: 01.Feb.2012 kl. 10:32

Hej Jeg har følgende kode i mit regneark som gør at jeg kan gemme mine rapporter sim PDF. Lige pt. gemmer den filen som månedsrapport.pdf

men så er mit spørgsmål

Hvordan får jeg den til at gemme det med navnet månedsrapport_åååå-mm.pdf ???

Jeg har en celle som har det aktuelle år og måned i formatet åååå-mm

Private Sub CommandButton1_Click()
Dim ArkNavn, DataSti, Filnavn As String
Dim objFolders As Object
Set objFolders = CreateObject("WScript.Shell").SpecialFolders

ArkNavn = "Rapport" 'Navnet på den fane som skal udskrives
DataSti = objFolders("mydocuments") & "\min-folder\" 'Der hvor filen skal gemmes, husk at afslutte med \
Filnavn = "Månedesrapport_" & Sheets(ArkNavn).Range("A3").Value

'Tjekker om mappen 'DataSti' eksisterer, hvis ikke oprettes den
If Dir(DataSti, vbDirectory) = "" Then
MkDir DataSti
End If

'Gemmer det aktive ark som .pdf
Sheets(ArkNavn).ExportAsFixedFormat _
    Type:=xlTypePDF, _
    Filename:=DataSti & Filnavn, _
    Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, _
    OpenAfterPublish:=False
MsgBox "Filen er gemt som " & DataSti & Filnavn & ".pdf", vbInformation
End Sub

-------------
Hygge - Kim
Excel 365 DK user

Svar:

Besked fra: kbno
Posteringsdato: 01.Feb.2012 kl. 10:33

Det er jo nok denne linje som skal ændres

Filnavn = "Månedesrapport_" & Sheets(ArkNavn).Range("A3").Value

-------------
Hygge - Kim
Excel 365 DK user

Besked fra: excelent
Posteringsdato: 01.Feb.2012 kl. 18:01

Prøv:

Filnavn = "Månedsrapport_" & Format(Sheets(ArkNavn).Range("B2").Value, "yyyy-mm")

Besked fra: excelent
Posteringsdato: 01.Feb.2012 kl. 18:02

ret B2 til A3

Besked fra: kbno
Posteringsdato: 02.Feb.2012 kl. 08:06

Super - fik selv lige rettet den lidt til:

Filnavn = "Månedsrapport_" & Format(Sheets(ArkNavn).Range("E8").Value) & Format(Sheets(ArkNavn).Range("B20").Value, "mm-yyyy")

Hvilket nu giver følgende filenavn: Månedsrapport_BygningsNavn01-2012

Men jeg kunne godt tænke mig at den hed: Månedsrapport_BygningsNavn_01-2012

Men jegkan ikke få det til at virke - nogen foreslag

-------------
Hygge - Kim
Excel 365 DK user

Besked fra: excelent
Posteringsdato: 02.Feb.2012 kl. 15:33

ok prøv:

Filnavn = "Månedsrapport_" & Sheets(ArkNavn).Range("E8").Value & "_" & Format(Sheets(ArkNavn).Range("B20").Value, "mm-yyyy")