Excel opslaan als PDF VBA code

[mvmonster]

Beste Forumleden ,

Een tijdje geleden had ik een Excel gemaakt waarvan ik de actieve sheet kon opslaan naar mijn C drive met een macro.
Raar maar waar, maar dit lukt nu aan geen kanten meer, een week gewerkt en nu is het over ... begrijp er niets van. Al een paar uren op gezocht maar niets te vinden.

Hieronder de code waarmee het dus niet meer wil lukken. Wat doe ik verkeerd ?


alvast bedankt !


Sub test()

'Sheets("Elont-i").Activate
ActiveSheet.Range("C3:J51").Select
strDate = Now



'ThisWorkbook.Sheets(Array("Elont-i")).Select
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Data\test " & " " & "(" & FormatDateTime(strDate, vbLongDate) & ")" & " " & Range("E5").Value = Application.UserName & " " & Range("J5").Value, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False

MsgBox "THX"




End Sub

 

[edmoor]

Dat ziet er maar raar uit.
Je geeft een cel een waarde midden in de code voor het opslaan van de PDF.
In welke map moet het worden opgeslagen?
Je maakt nu 1 lange mapnaam in C:\Data die begint met de naam test.

 

[mvmonster]

Dank u wel Edmoor voor de snelle reactie.

zal best wat meer info geven.

De bedoeling is een Excel opslaan in PDF op mijn C-drive map data met als naam test gevolg met datum + de waarde in veld E5 + de waarde in J5.

Het rare is dat dit werkte tot vorige week ....

Maar het kan niet anders dat ik toch iets verkeerd doe, maar wat ... ?

grts

 

[edmoor]

Dat had ik al begrepen, maar wat bedoel je met dit stukje te doen?
& Range("E5").Value = Application.UserName &

Daar hoort dan volgens je uitleg in#2 dit stukje helemaal niet bij:
= Application.Username

Maak er dus eens dit van:

Selection.ExportAsFixedFormat Type:=xlTypePDF, _
    Filename:="C:\Data\test " & _
    "(" & _
    FormatDateTime(strDate, vbLongDate) & _
    ")" & _
    " " & _
    Range("E5").Value & _
    " " & _
    Range("J5").Value & _
    ",pdf", _
    Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, _
    OpenAfterPublish:=False

 

[mvmonster]

supergoed gezien edmoor !! Keek er volledig naast .

sterk !

thx, het werkt terug ...

:d:d

 

[Jack Nouws]

Misschien dat je er wat aan hebt, maar ik doe het op deze manier.

Sub Safe_PdfV()
    Padnaam = "C:\Data\ExcelLijsten\"
    PDFnaam = Trim(Blad1.Range("F11"))
        If Dir(Padnaam & PDFnaam & "*.pdf") <> "" Then
            MsgBox "Bestand: " & PDFnaam & " bestaat reeds"
            Exit Sub
        Else
            Blad1.ExportAsFixedFormat 0, Padnaam & PDFnaam
        End If
End Sub