Email from Excel with attachment

[brianfosterblack]

I have this code to save the invoice in my Excel spreadsheet as a pdf document

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\User\Documents\Clay\2021 SA Grand\Entries.pdf", Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=False

This code then attaches the document to the mail when I send it

emailItem.Attachments.Add ("C:\Users\User\Documents\Clay\2021 SA Grand\Entries.pdf")

It works perfectly but obviously if someone else uses the workbook the directory changes
The Entries Workbook and Entries.pdf will always be in the same directory

Is there a way to change this code that it saves the pdf to the same directory the workbook is in (the workbook from which this code is being run)
And then picks up the attachment from the same directory?

 

[mumps]

Try:

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    ThisWorkbook.Path & "\Entries.pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

emailItem.Attachments.Add (ThisWorkbook.Path & "\Entries.pdf")

 

[brianfosterblack]

Try:

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    ThisWorkbook.Path & "\Entries.pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

emailItem.Attachments.Add (ThisWorkbook.Path & "\Entries.pdf")

Thanks you this works perfectly

 

[mumps]

You are very welcome.

 

[smozgur]

@brianfosterblack - I just switched the marked solution with the correct one as you confirmed. Next time, that would be great if you could mark the solution post that answered the problem instead of your final post. It will help future readers to find the solution post easier.

 

[brianfosterblack]

@brianfosterblack - I just switched the marked solution with the correct one as you confirmed. Next time, that would be great if you could mark the solution post that answered the problem instead of your final post. It will help future readers to find the solution post easier.

thank you smozgur. I am still learning but I cannot learn if no-one points out my errors. Thank you.