Excel to PDF within the same directory

[mallee]

Hello again guys!

I'm either overthinking this, or not fully grasping the concept. I'm trying to save a file as PDF (with a file name from a cell value) to the same directory, but for whatever reason, it keeps saving the PDF's to one directory above.

  [FONT=Arial]s = Range("B2").Value[/FONT][FONT=Arial]
[/FONT]
[FONT=Arial]    ActiveSheet.<wbr>ExportAsFixedFormat Type:=xlTypePDF, Filename:= _[/FONT]
[FONT=Arial]        ThisWorkbook.Path & s, Quality:=xlQualityStandard, IncludeDocProperties _[/FONT]
[FONT=Arial]        :=True, IgnorePrintAreas:=False, OpenAfterPublish:=True[/FONT]

This way, if my Excel file is in C:\Users\PCName\Desktop\test\test2 folder, the PDF is being saved to C:\Users\PCName\Desktop\test instead.

So what am I missing? How do I force the PDF file to be saved in the same directory, in this case: C:\Users\PCName\Desktop\test\test2

 

[mallee]

I should probably add that, if possible, I'm trying to avoid defining the string in the code itself, since the file will be moved around a lot between the different folders, I don't want to have to update the code with a new folder string each time I move the file.

 

[Michael M]

A bit hard without seeing all of the code, but make sure your Path is correct AND that it ends with a backslash.
Also, double check the value in B2

 

[fhqwgads]

hope this works

ChDir ActiveWorkbook.Path
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        s, Quality:=xlQualityStandard, IncludeDocProperties _
        :=True, IgnorePrintAreas:=False, OpenAfterPublish:=True

EDIT:forgot s

s = Range("B2").Value
ChDir ActiveWorkbook.Path
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        s, Quality:=xlQualityStandard, IncludeDocProperties _
        :=True, IgnorePrintAreas:=False, OpenAfterPublish:=True

 

[mallee]

hope this works

ChDir ActiveWorkbook.Path
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        s, Quality:=xlQualityStandard, IncludeDocProperties _
        :=True, IgnorePrintAreas:=False, OpenAfterPublish:=True

EDIT:forgot s

s = Range("B2").Value
ChDir ActiveWorkbook.Path
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        s, Quality:=xlQualityStandard, IncludeDocProperties _
        :=True, IgnorePrintAreas:=False, OpenAfterPublish:=True

That fixed my issue. Wasn't aware of the ChDir before today. Thank you!