＞単純にデスクトップを指定しております。
＞fileName = ActiveWorkbook.Path & "\C:\Users\○○○○○\Desktop\" & FName

現在開いているファイルもデスクトップにある場合、
「\C:\Users\○○○○○\Desktop\\C:\Users\○○○○○\Desktop\」
という文字列に変数「FName」の文字列を結合したものを、
変数「filename」に格納しろとExcelに命令しています。

そして、ExportAsFixedFormatメソッドの引数で指定する引数「fileName」は
ファイルのフルパスです。

つまり、「\C:\Users\○○○○○\Desktop\\C:\Users\○○○○○\Desktop\○×△.pdf」を保存しろ
と命令しているのですよ。。。

この様な指定の仕方ではファイルが保存できないので、
「ファイルが保存できません」というエラーが返ってきているのです。

＞単純にデスクトップを指定しております。
＞fileName = ActiveWorkbook.Path & "\C:\Users\○○○○○\Desktop\" & FName

ちょっと待ってくださいよ。「保存先」フォルダはどうなったんですか？
それが「Desktop」なんですか？
それとも、保存先フォルダはDesktopにあるんですか？

ActiveWorkbook.Path はどんなパスなんですか？

とにかくfileNameの文字列がちゃんと実在フォルダになっていなければ始まらないし、
それは、こちらでは確かめ様もない質問なんですけど。

＞ fileName = ActiveWorkbook.Path & "\保存先\" & FName
＞に修正してみましたが、

因みに、fileNameはどんな文字列になっていましたか？

そのパスは、実際に存在する階層のフォルダですか？（意図と合っている場所ですか？）

大変失礼いたしました。
仰る通り説明不足でした。

再度、アドバイス通り
 fileName = ActiveWorkbook.Path & "\保存先\" & FName
に修正してみましたが、

次の行でエラーが発生しました。
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, fileName:=fileName


エラー内容は、
「ファイルを保存できませんでした。」
というエラーが表示されてしまいます。


少し調べてみましたが、コードの問題ではなく、PCの問題なのでしょうか？

＞’ここでエラーが表示されてしまいます。
＞    fileName = ActiveWorkbook.Path & "保存先" & FName
                                           ↓
      fileName = ActiveWorkbook.Path & "\保存先\" & FName

じゃないかなぁ・・

Excelのマクロ初心です。
助言を頂きたく、掲示板に投稿しました。

Excelを指定されたサイズに変更し、
それをPDF化させるExcelのマクロを開発していますが、
エラーが表示されて上手くいきません。



Sub Macro1()
    Dim rc As Long
    Dim fileName As String '保存先フォルダパス＆ファイル名
    Dim FName
    

'指定したExcelファイルを開く
     MsgBox "加工するExcelファイルを指定して下さい。"
     
     NameFileOpen = Application.GetOpenFilename(FileFilter:="Microsoft EXCELブック,*.xlsx")
     If NameFileOpen <> "False" Then
        Workbooks.Open fileName:=NameFileOpen
        NameFileOpenOnlyFilename = Dir(NameFileOpen)
        Workbooks(NameFileOpenOnlyFilename).Activate

’Excelの加工処理……
’余白の調整、改ページ、行の高さ調整など……
’Excelの加工後……

'PDF化作業
  FName = ActiveWorkbook.Name
    FName = Replace(FName, ".xlsx", "")

’ここでエラーが表示されてしまいます。
    fileName = ActiveWorkbook.Path & "保存先" & FName
    ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, fileName:=fileName

   'Excelを綴じる
    ActiveWorkbook.Save
    ActiveWorkbook.Close
    Application.DisplayAlerts = True
    
    End If
End Sub


どなたか、ご助言を頂ければ助かります。
申し訳ありませんが、よろしくお願いいたします。