compile error expected end of statement bij vb code

[beeksplace]

Goedemiddag,

Heb de volgende vb code van het inet gevist, heb wat dingen aangepast omdat ik graag de datum achter de bestandsnaam wil. Maar krijg een compile error expected end of statement.

Sub Save2PDF()
'
' Save2PDF Macro
'

'
    Range("A1:I53").Select
    [COLOR="#FF0000"]ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Wedstrijden geschiedenis\wedstrijd & Format(Date "yyyymmdd") & .pdf" _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=False[/COLOR]
End Sub

[End Code]

Als ik de code zo zet, werkt het wel

Sub Save2PDF()
'
' Save2PDF Macro
'

'
    Range("A1:I53").Select
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Wedstrijden geschiedenis\wedstrijd.pdf" _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=False
End Sub

[End Code]

iemand een idee wat ik fout doe.

Erik

 

[Roncancio]

Je bent aanhalingstekens vergeten.

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Wedstrijden geschiedenis\wedstrijd[B][COLOR="#FF0000"]"[/COLOR][/B] & Format(Date, "yyyymmdd") & [B][COLOR="#FF0000"]"[/COLOR][/B].pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False

Code kan overigens wel korter.

Met vriendelijke groet,


Roncancio

 

[beeksplace]

werkt maar niet helemaal

Hallo Roncancio,

Het werkt in zoverre dat het document goed word opgeslagen maar alleen de range klopt niet.
Het hele document wordt opgeslagen en wat er eigenlijk moet gebeuren is dat hij alleen de range opslaat.

heb je nog een idee van wat dat kan zijn.

Erik

 

[ExcelAmateur]

heb je hier wat aan?

Sheets("Blad1").Range("A1:I53").ExportAsFixedFormat Type:=xlTypePDF,

@Nog even dit, je moet de naam van het blad natuurlijk nog aanpassen.

 

[beeksplace]

Werkt perfect

Roncancio,

helemaal top :thumb:

thanx erik