アクティブシートをブックと同じフォルダに格納されるようにPDF保存したいです。
また、PDFの名前はセルの値と文字列を組み合わせたいです。

現在以下のように書いたのですが、うまく保存されません。
2点困っています。
・保存先がブックの一つ上位の格納先になってしまいます。
・PDFの名前にブックが格納されているフォルダ名が入ってしまう
（Aフォルダ内のBフォルダ内にBook1があり、Bフォルダ内にPDFを作成したいがAフォルダ内に作成されてしまう。PDFの名前の先頭にAがつく）


Sub PDF作成()

 dim name as string
 name = "【御見積書】"Workbooks("Book1").WorkSheets("Sheeet1").Range("A1").value
 ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
 filename:=ActiveWorkbook.Path & name 

End Sub

最後のfilename:=ActiveWorkbook.Path & name 
の部分をfilename:= name
のみにするとPDFの名前は問題ないにですが格納先がドキュメントになってしまいます。

ご教示いただけますと幸いです。よろしくお願いいたします。

提示されたコードは手打ちですよね？

本物じゃないと、トラブルの原因は判断しにくいんですけども。。

　　　　　　　　多分、かな？
　　　　　　　　　　　　↓
ActiveWorkbook.Path & "\B\" & name

半平太 様

ご回答いただきありがとうございます。
申し訳ありません。今後コピペするよう気を付けます。

ご教示いただいた内容について行いましたところ、実行時エラー'1004'
ドキュメントを保存できませんでした。ドキュメントが開いているか、保存時にエラーが発生した可能性があります。と出力されてしまいます（最後の2行が黄色くなります）。\B\の部分をなくすと保存はできますが
・保存先がブックの一つ上位の格納先になってしまう
・PDFの名前にブックが格納されているフォルダ名が入ってしまう
状態になります。

本問題についても調べたのですが、解決することができず　恐れ入りますがご教示いただけないでしょうか。
フォルダパスは毎回変わるため、可能であれば自動的に適当な格納先に保存されるようにしたいです。可能でしょうか…。

お手数をおかけしますが、よろしくお願いいたします。

Sub PDF作成()

    Dim name As String
    name = "【御見積書】" & Workbooks("Book1").Worksheets("Sheet1").Range("A1").Value
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
    Filename:=ActiveWorkbook.Path & "\B\" & name
    
End Sub

下の確認プログラムを実行して、イミディエイトウィンドウにどう表示されたか
教えてください。

何も手を入れないでコピペしてください。
ただし、情報管理上問題がある単語は、仮りの単語に置き換えて頂いて結構です。

Sub 確認()
    Dim name As String
    name = "【御見積書】" & Workbooks("Book1").Worksheets("Sheet1").Range("A1").Value
    
    Debug.Print ActiveWorkbook.Path & "\B\" & name
End Sub


この記事にはVBAのコードが含まれています。

緑の太文字→注釈
茶色の太文字→条件分岐
赤の太文字→ループ
青の太文字→その他

ここまでのバスは合っていますね？　                     特に　ここが「A」じゃなく「v」ですが？
                                                               ↓
＞\\〜〜〜.co.jp\見積書\2022年度\〇〇グループ\個人フォルダ\〇〇\v\B\

いや、そう言う意味ではなく、そちらの説明では
＞（Aフォルダ内のBフォルダ内にBook1があり、

だったので、ｖでは整合性がないのではないか、と思っただけです。

まぁ、話に整合性が無くても「実際のフォルダ」がｖならそれでいいですが、
こちらでは、実態が分かりませんので、そちらで確かめてください。

存在しないパスなら、トラブって当然ですよね？(そこのところは、こちらでは分かりません）

そちらの実態を知らないので、こちらでは分かりません

＞\\〜〜〜.co.jp\見積書\2022年度\〇〇グループ\個人フォルダ\〇〇\A\B\B\【御見積書】A1の値
となるのであれば、

＞ActiveWorkbook.Path & "\B\" & name
　　↓
  ActiveWorkbook.Path & "\" & name

　に変えてみてください。