VBA Save As PDF error

[ahmed nahedh]

hello guys
i make excel sheet in link below and make macro for it to save as PDF put this error always stop me can you help me with that


i used this code :
Sub save_pdf()
Sheets("Sheet1").Select


Dim filename As String
Dim ChDir As String




filename = Range("A1")


ChDir = "C:\Users\alwaha\Desktop\doctors\PDF"


Sheets("Sheet1").Range("a1:i26").ExportAsFixedFormat Type:=xlTypePDF, filename:= _
ChDir & filename & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False


End Sub
please see the pictures for more information

 

[yky]

What's in A1?

 

[Yongle]

You are mixing 2 things up I think
- ChDir is a VBA function which changes the working folder
- it is better practice not to use ChDir as a variable which is what you are doing (but would have worked had you not omitted the filepath separator)
- see https://www.techonthenet.com/excel/formulas/chdir.php

Either

[I][COLOR=#006400]'use a string variable[/COLOR][/I]
   Dim fpath  As String
   fpath [COLOR=#ff0000]=[/COLOR] "C:\Users\alwaha\Desktop\doctors\PDF"
   Sheets("Sheet1").Range("a1:i26").ExportAsFixedFormat Type:=xlTypePDF, filename:=fpath [COLOR=#ff0000]& Chr(92)[/COLOR] & filename & ".pdf"

Chr(92) is the usual filepath separator (\)

Or

[I][COLOR=#006400]'change the working folder like this[/COLOR][/I]
ChDir "C:\Users\alwaha\Desktop\doctors\PDF"  [COLOR=#006400] '[/COLOR] [COLOR=#ff0000]= [/COLOR][COLOR=#006400][I]NOT required[/I][/COLOR]
'Sheets("Sheet1").Range("a1:i26").ExportAsFixedFormat Type:=xlTypePDF, filename:=filename & ".pdf"   [COLOR=#006400]'[/COLOR][COLOR=#ff0000][I]path[/I][/COLOR][COLOR=#006400][I] NOT required - saves to the latest working folder [/I][/COLOR]