Excel als PDF opslaan. Bestandsnaam o.b.v. cellen

[edmoor]

In dat stukje code is niet te zien waar sh voor staat. Range("C19") zou voldoende moet zijn als het om de actieve sheet gaat.

 

[raoulduivestein]

Is inmiddels gelukt!

Super bedankt

Sub PDF()
    Dim Bestandsnaam As String
    Dim OutApp As Object
    Dim OutMail As Object
    
    Sheets("Hide").Select

        With Sheets("Voorbeeld")
        Bestandsnaam = "C:\Users\windows\Desktop\Export\" & _
            .Range("C16") & _
            .Range("C17") & _
            ".pdf"
    End With
 Sheets("Hide").Range("A1:M97").ExportAsFixedFormat 0, Bestandsnaam, 0, 1, 0, , , 1
    
    Sheets("Voorbeeld").Select
    
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    
     On Error Resume Next
    With OutMail
        .to = Range("C19").Value
        .CC = ""
        .BCC = ""
        .Body = "Hi there"
        .Attachments.Add Bestandsnaam
        .Display   'or use .Send
    End With
    On Error GoTo 0

    Set OutMail = Nothing
    Set OutApp = Nothing

End Sub

 

[HSV]

Maak er anders...

 .to = sheets("voorbeeld").Range("C19").Value

...van.

 

[edmoor]

Dan kan die

Sheets("Voorbeeld").Select

eruit

 

[HSV]

Scherp,

Gooi alle sheets.select eruit.
Dat heen en weer geflikker van bladen is ook niet zo goed voor je ogen. :shocked:

:d

 

[raoulduivestein]

Dat ga ik doen, super bedankt!

Is het ook mogelijk om de pdf op te slaan in het dezelfde map als het Excel bestand?

 

[edmoor]

Yep.

        Bestandsnaam = ThisWorkbook.Path & "\" &  _
            .Range("C16") & _
            .Range("C17") & _
            ".pdf"

 

[raoulduivestein]

Ik heb de code aangepast, maar krijg weer een foutmelding in onderstaande regel:

Sheets("Hide").Range("A1:M97").ExportAsFixedFormat 0, Bestandsnaam, 0, 1, 0, , , 1

Sub PDF()
    Dim Bestandsnaam As String
    Dim OutApp As Object
    Dim OutMail As Object
    
    Sheets("Hide").Select

        With Sheets("Voorbeeld")
        Bestandsnaam = ThisWorkbook.Path & "\" & _
            .Range("C16") & _
            .Range("C17") & _
            ".pdf"
    End With
 Sheets("Hide").Range("A1:M97").ExportAsFixedFormat 0, Bestandsnaam, 0, 1, 0, , , 1
    
    Sheets("Voorbeeld").Select
    
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    
     On Error Resume Next
    With OutMail
        .to = Range("C19").Value
        .CC = ""
        .BCC = ""
        .Body = "Hi there"
        .Attachments.Add Bestandsnaam
        .Display   'or use .Send
    End With
    On Error GoTo 0

    Set OutMail = Nothing
    Set OutApp = Nothing

End Sub

 

[edmoor]

Doet het hier prima, in je eigen document dat je eerder plaatste.

 

[raoulduivestein]

Vaag,

Ik krijg:

Automatiseringsfout
De syntaxis van de bestandsnaam, mapnaam of volumenaam is onjuist.

 

[edmoor]

En wat is dan de inhoud van de variabele Bestandsnaam?