File path issue gets tougher

[kelly mort]

Hello I have this issue here and I need help :

Sub pdfCreate  ()
Dim FolderPath As String 
FolderPath = ThisWorkbook.Path & "\PDF FILES"
ChDir ThisWorkbook.Path & "\PDF FILES"
Sheet10.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Sheet10.Range("F4").Text, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False 
End Sub

I want the files saved in that pdf files folder yet it keeps saving it in the documents folder.

I am sure I am messing up with something but can't see it yet.

Point that out for me please.

Thanks in advance
Kelly

 

[kelly mort]

what is the filepath of thisworkbook.path if its the documents folder then you need to change the file path and not use thisworkbook.path

The path is not to the documents folder. It's at where I am that "pdf files " folder

 

[Dryver14]

you posted thisworkbook.path, I'm asking what that is, I'm not entirely sure you should be using CHDIR.

I think you just want a different filepath which thisworkbook.path will not give you. If thisworkbook lives in the documents folder then to the documents folder you will go everytime until you change the path

 

[RoryA]

Include the file path in the export line.

 

[kelly mort]

Include the file path in the export line.

Where actually should I place that?

 

[kelly mort]

you posted thisworkbook.path, I'm asking what that is, I'm not entirely sure you should be using CHDIR.

I think you just want a different filepath which thisworkbook.path will not give you. If thisworkbook lives in the documents folder then to the documents folder you will go everytime until you change the path

The file is inside a folder on the drive D currently. It is not in anyway associated with the documents folder. I just don't know why not working .

It used to work fine before
I tried commenting out all the path in the code and saw that it was still saving to the documents folder which means my paths are not working. Though everything seems good.

 

[shg]

  Sheet10.ExportAsFixedFormat Type:=xlTypePDF, _
                              Filename:=ThisWorkbook.Path & "\PDF FILES\" & Sheet10.Range("F4").Text, _
                              Quality:=xlQualityStandard, _
                              IncludeDocProperties:=True, _
                              IgnorePrintAreas:=False, _
                              OpenAfterPublish:=False

 

[Dryver14]

Go on line and look this up, there appears to be an issue for some people when they installed windows 10, something about making themselves an administrator

 

[shg]

ChDir doesn't change the drive, just the default path on the specified drive. So you either need to change the drive as well (ChDrive ThisWorkbook.Path), or specify the path completely (as shown).

 

[kelly mort]

  Sheet10.ExportAsFixedFormat Type:=xlTypePDF, _
                              Filename:=ThisWorkbook.Path & "\PDF FILES\" & Sheet10.Range("F4").Text, _
                              Quality:=xlQualityStandard, _
                              IncludeDocProperties:=True, _
                              IgnorePrintAreas:=False, _
                              OpenAfterPublish:=False

Great!!!
Thanks a lot @shg

It worked like a miracle.
Kelly

 

[shg]

A very tiny miracle.