macro placing file in folder

[smattiko83]

Hi, I'm trying to run this piece of code. The folder path below exist but i do not have access to view it. Is there anyway I can still have the file go there if I can't? Thanks.

    Sheets("smith").Select
    Sheets("smith").Copy
    ChDir "N:\Home\gsmith\Leave Balances\"
    Application.DisplayAlerts = False
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "N:\Home\gsmith\Leave Balances\Gsmith.pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False
    ChDir "N:\Home\tjohn\Leave Balances\"
    Application.DisplayAlerts = False
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "N:\Home\tjohn\Leave Balances\Gsmith.pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False
    ActiveWindow.Close

 

[DanteAmor]

Does the macro send you an error? what does the error say?
The Chdir instruction is not necessary.
It may be so:

Sub test()
  Sheets("smith").Copy
  Application.DisplayAlerts = False
  ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    "N:\Home\gsmith\Leave Balances\Gsmith.pdf", Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
    False
  Application.DisplayAlerts = False
  ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    "N:\Home\tjohn\Leave Balances\Gsmith.pdf", Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
    False
  ActiveWindow.Close False
End Sub

 

[Fluff]

If you do not have write permissions for the folder, then you cannot save files to it.

 

[smattiko83]

Does the macro send you an error? what does the error say?
The Chdir instruction is not necessary.
It may be so:

Sub test()
  Sheets("smith").Copy
  Application.DisplayAlerts = False
  ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    "N:\Home\gsmith\Leave Balances\Gsmith.pdf", Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
    False
  Application.DisplayAlerts = False
  ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    "N:\Home\tjohn\Leave Balances\Gsmith.pdf", Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
    False
  ActiveWindow.Close False
End Sub

I get the run time error 75: path/file access

 

[DanteAmor]

That's right, as Fluff said, if you don't have permission to see, you don't have permission to write either. You should review this topic with the administrator where you are trying to write.

 

[smattiko83]

That's right, as Fluff said, if you don't have permission to see, you don't have permission to write either. You should review this topic with the administrator where you are trying to write.

Thank you both for the reply. Just wanted to check and make sure there wasn't a work around.

 

[DanteAmor]

Unfortunately there is no option. I hope you can resolve the issue with the administrator