ændring af VBA pdf 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=1147
Udskrevet den: 23.Nov.2024 kl. 15:49
Emne: ændring af VBA pdf kode
Besked fra: mik1960
Emne: ændring af VBA pdf kode
Posteringsdato: 12.Mar.2013 kl. 22:57
|
hejsa kunne godt bruge en hjælpende hånd til denne kode, 1. jeg har 20 ark med næsten samme navn " forskellen de forreste tal 1-20" kan man gøre noget eller er det bare at lægge den ind 20 gange, en til vær ark ?? 2. den linie jeg har markeret med rød, kunne man fortælle den at det er det ark man er i som skal udskrives ?? lidt forvirrende med den kode når man har 65 ark. ville være meget taknemlig hvis det var en som havde en ide. ' ' Rektangel1_Klik Makro ' GemSomPdf Makro ' Gemmer logbogen som PDF fil Sheets("11_Tjek2013").Select Range("A1:af53").Select ActiveSheet.PageSetup.PrintArea = "$A$1:$AF$53" Sheets("11_Tjek2013").Select Dim DataSti, Filnavn As String DataSti = "C:\Maskiner\" Filnavn = " Tjek2013 " & Range("G3").Text 'Tjekker om mappen 'DataSti' eksisterer, hvis ikke oprettes den If Dir(DataSti, vbDirectory) = "" Then MkDir DataSti End If 'Gemmer den aktive workbook som .pdf ActiveWorkbook.ExportAsFixedFormat _ Type:=xlTypePDF, _ Filename:=DataSti & Filnavn, _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True, _ IgnorePrintAreas:=False, _ From:=3, To:=3, _ OpenAfterPublish:=False MsgBox " Filen er gemt som "" Tjek2013 " & Range("G3") & ".pdf", vbInformation End Sub mvh Michael ------------- Glemmer altid at skrive hvad jeg bruger......Excel 2007 :-) |
Svar:
Besked fra: Allan
Posteringsdato: 13.Mar.2013 kl. 10:55
|
Hej Michael, Prøv dette Fjern linjen
Og ændre linjen
Til
------------- MVH Allan https://www.excel-regneark.dk" rel="nofollow - Excel-regneark.dk - Gratis skabeloner til Excel Få over 120 ekstra funktioner med Danmarks bedste add-in |
Besked fra: mik1960
Posteringsdato: 15.Mar.2013 kl. 08:42
|
Tak Allan det hjalp lidt på det  men den vil altid hoppe til det ark som er nævnt i koden. Sub Tjekl1_Klik() ' ' Rektangel1_Klik Makro ' GemSomPdf Makro ' Gemmer logbogen som PDF fil Sheets("11_Tjek2013").Select mener at det er de 2 steder det er galt, så den gemmer kun den som hedder 11_Tjek2013, var lidt ude på at den gemte det aktive ark. er jeg på 16_Tjek2013 så gemmer den 11_tjek2013. Range("A1:af53").Select ActiveSheet.PageSetup.PrintArea = "$A$1:$AF$53" Sheets("11_Tjek2013").Select Dim DataSti, Filnavn As String DataSti = "C:\Maskiner\" Filnavn = " Tjek2013 " & Range("G3").Text kunne man tilføje en stump her så dags dato var med i filnavnet, evt. kunne jeg lave ark navnene om til kun evt. 12_tjek og den kun tog Tjek med i gem, så der stod "Tjek 15_03_13 john deere 1600" 'Tjekker om mappen 'DataSti' eksisterer, hvis ikke oprettes den If Dir(DataSti, vbDirectory) = "" Then MkDir DataSti End If mvh Michael ------------- Glemmer altid at skrive hvad jeg bruger......Excel 2007 :-) |
Besked fra: Allan
Posteringsdato: 15.Mar.2013 kl. 10:08
|
Hej igen, Et skud fra hoften, men jeg prøver alligevel. Denne makro gemmer det aktive ark som: Tjek dd_mm_åååå arknavn G3.text.pdf Jeg ved ikke hvad der står i G3, men det indgår i dit filnavn og således også i mit. Sub Tjekl1_Klik() ' GemSomPdf Makro ' Gemmer logbogen som PDF fil ActiveSheet.PageSetup.PrintArea = "$A$1:$AF$53" Dim DataSti, Filnavn As String DataSti = "C:\Maskiner\" Filnavn = "Tjek " & Month(Now) & "_" & Day(Now) & "_" & Year(Now) & " " & ActiveSheet.Name & " " & Range("G3").Text 'Tjekker om mappen 'DataSti' eksisterer, hvis ikke oprettes den If Dir(DataSti, vbDirectory) = "" Then MkDir DataSti End If 'Gemmer den aktive workbook som .pdf ActiveSheet.ExportAsFixedFormat _ Type:=xlTypePDF, _ Filename:=DataSti & Filnavn, _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True, _ IgnorePrintAreas:=False, _ OpenAfterPublish:=False MsgBox " Filen er gemt som " & Filnavn & Range("G3") & ".pdf", vbInformation End Sub
------------- MVH Allan https://www.excel-regneark.dk" rel="nofollow - Excel-regneark.dk - Gratis skabeloner til Excel Få over 120 ekstra funktioner med Danmarks bedste add-in |
Besked fra: mik1960
Posteringsdato: 16.Mar.2013 kl. 16:30
|
tak skal du Allan efter en lille tilpasning kom det til at virke fint filnavnet blev lige langt nok "C3" er navnet på maskinen.mange tak for hjælpen Mvh Michael ------------- Glemmer altid at skrive hvad jeg bruger......Excel 2007 :-) |