Excel afdrukken / publiceren zonder ".xls"

[cocko]

Hallo,

Ik gebruik onderstaande code om een excel-sheet af te drukken als pdf. Echter slaat hij hem nu op als Bestandsnaam.xls.pdf

pad = ActiveWorkbook.Path + "\"
Bestandsnaam = ActiveWorkbook.Name
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pad & Bestandsnaam, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True

Wie weet wat ik moet veranderen om die .xls er tussenuit te krijgen?

 

[RogerS]

Bestandsnaam = Left(ActiveWorkbook.Name,Length(ActiveWorkbook.Name)-4)

 

[cocko]

Thanks!

Dat had ik natuurlijk wel zelf kunnen verzinnen

Hartelijk bedankt voor het meedenken!

Groeten Henk