• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Opgelost wie kan deze code veranderen zodat het toch kan werken ( pdf )

Dit topic is als opgelost gemarkeerd
Status
Niet open voor verdere reacties.

lsc.b

Gebruiker
Lid geworden
4 nov 2000
Berichten
317
normaal gezien zo dit moet werken getest in een leeg test blad maar als ik het in mijn originele blad zet niet de laatste regel geef dan een fout melding ik weet me geen raad meer originele blad zitten meerder macro`s en is beveiligt maar at moet volgens mij niet uit maken als het een ander code moet worden is het ook goed
Code:
Sub SaveActiveWorkbookAsPDF()

Dim saveLocation As String
saveLocation = "C:\Users\bonoi\OneDrive\Documenten\test\myPDFFile.pdf"


'Save active workbook as PDF
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, _
    Filename:=saveLocation

End Sub
 
Laatst bewerkt door een moderator:
Als je zegt een foutmelding te krijgen, vertel er dan ook bij welke dat is.
 
Dat liet je al zien.
Ik vraag om de foutmelding die je krijgt.
 
Dan ligt het dus niet aan de code, die is goed.
Als je daar op Foutopsporing klikt wordt die getoonde regel geel?
 
klopt maar waarom werkt het nu dan niet
en wat kan men aan de code veranderen dat het wel werkt

nog een gekeken de regel word dus geel en het pijltje staat bij
Filename:=saveLocation
 
De melding is vrij duidelijk. Je bestand is niet opgeslagen
 
Dat heeft niks met de code te maken.
De code is goed.
Er is aan de hand wat er in die foutmelding staat.
Hij kan dus niet bij die PDF omdat die al ergens geopend is.
Wijzig die saveLocation eens naar een niet OneDrive locatie.
 
ik heb de code iet aangepast de zelfde regel is iets niet goed ik heb nu deze fout melding
1712998537520.png
 
Wat is er niet duidelijk aan wat ik in #9 schreef?
 
Dat heeft niks met de code te maken.
De code is goed.
Er is aan de hand wat er in die foutmelding staat.
Hij kan dus niet bij die PDF omdat die al ergens geopend is.
Wijzig die saveLocation eens naar een niet OneDrive locatie.
blijft het zelfde zie #10
 
Wat is dan nu de waarde van de variabele saveLocation?
 
Code:
Sub SaveActiveWorkbookAsPDF()

Dim saveLocation As String
saveLocation = "C:\Users\testmap\pdf_uren\myPDFFile.pdf" & Format(Now(), "dd mm yyyy hh mm") & ".pdf"

'Save active workbook as PDF
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, _
    Filename:=saveLocation

End Sub
 
Nu maak je een puinhoop van saveLocation.
Doe dit eens:
Code:
Sub SaveActiveWorkbookAsPDF()
    Dim saveLocation As String
    saveLocation = ThisWorkbook.Path & "\MyFile.pdf"
   
    'Save active workbook as PDF
    ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, _
        Filename:=saveLocation
End Sub
 
helaas geeft de zelfde foutmelding

als ik in #1 Sub SaveSelectionAsPDF() van maak en de laatse reggel dit van maak
Selection.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=saveLocation
dan staal hij het wel op maar daar hub ik niks aan het is maar 1 cel
 
Dan weet ik niet wat je allemaal doet.
Die code werkt prima, daar mankeert niets aan.
Plaats dat Excel document eens hier.
 
kan even duren moet veel vertrouwde info er uit halen en dan weet ik nog niet of het nog werkt
 
Zet die code in een nieuw document en vul iets in A1 in.
Test het dan.
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan