10. september 2013 - 22:33Der er
5 kommentarer og 1 løsning
Makro til at gemme det aktive ark med navn fra bestemt celle
Hej
Jeg vil i mit regneark, lave en makro som gemmer mit aktive ark som pdf. pdf-filen skal gemmes i det navn jeg har stående i A10. Jeg er indtil videre kommet frem til følgende makro:
Sub gem_pdf() ' ' gem_pdf Makro '
' ActiveWorkbook.SaveAs Filename:= _ "Macintosh HD:Users:jakobostergaard:Dropbox:test_01.pdf", FileFormat:=xlPDF, _ PublishOption:=xlSheet End Sub
Den gemmer pdf'en det sted jeg gerne vil, men navnet er test_01. Hvad skal jeg skrive for at den vælger beskrivelsen i A10?
Jeg er kommet så langt at jeg godt kan få den til at generere en pdf, og gemme den det sted på min HDD, jeg gerne vil. Nu mangler jeg bare navngivningen af filen. Den gemmer den i navnet Ark1, når jeg indsætter din makro. Så der er noget med den syntax den ikke kan forstå.
Hejsa Jeg har brug for næsten det samme. Jeg er ved at lave en reklamations rapport der skal kunne åbnes af alle og gemmes på fælles drev med et unikt nummer der står i felt B8 Filen skal gemmes som excel med aktive makroer (xlsm) Jeg har brugt den løsning der er nævnt i denne tråd
Sub gemmefunk()
nr = [Ark1!A10] ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\Dokumenter\" & nr & ".pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ True End Sub
Jeg har ændret Type:=xlTypePDF til Type:=xlTypexlsm og stien til C:\Dokumenter\" & nr & ".xlsm
Men den gemmer stadig som PDF fil. Nogen der kan hjælpe mig så den gemmer som excel ark
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
