深い階層のフォルダ内複数ファイルを別の深い階層フォルダ内にコピーしたい

投稿者 : もちもち     投稿日時 : 2025/06/05(Thu) 21:45:14     OS : Windows 11     EXCEL : 未指定

---

初心者です。
フォルダの中の中の中くらいにある２つの.xlsmファイルを、デスクトップにあるフォルダの中の中の中にコピーしたいのですが色々組み合わせても上手くいきません。

元々複数階層のフォルダを一括作成するツールを作って、その時についでにツールファイルも別のフォルダからコピーしてあったら良いなと思って追加で作りたいのですが、一括作成するフォルダはセルに入力した名前で出力されるようになっていて、パスがうまく作れません。
Path = "C:¥Users¥" & Environ("USERNAME") & "¥desktop¥" & range(“B5”) & “_” & range(“C5”) & “¥” & range （以下略）
（スマホで書いてるので抜け字などは気にしないでください）
のように、長くなってしまうからか動きません。
ミスの際にどこがおかしいか反転されるのはB5などのセル番地です。
・デスクトップに出来た「〇〇_△△」フォルダ内に出来た「□（××）」フォルダ内に出来た「++++」フォルダ内にxlsmファイルをコピーしたいです。
※記号は毎回違う文字が入る


・他のpcでも使えるようにフォルダパス内はusernameを使う
・.xlsmファイルはツールで、バージョンアップで名前が変わるので絶対パスじゃなく*.xlsmにしたい
・カレントは使えない

認識間違いなど色々あるかと思いますがご容赦ください。
ご教示ください。よろしくお願いします。

投稿者 : 多分     投稿日時 : 2025/06/06(Fri) 03:25:18

---

パスは長いのと短いのと2つある

短いパス
http://www.vbalab.sakura.ne.jp/vbaqa/c-board.cgi?cmd=one;no=273;id=FAQ

投稿者 : 多分     投稿日時 : 2025/06/06(Fri) 03:33:52

---

DeskToppas = CreateObject("WScript.Shell").SpecialFolders("Desktop")
MsgBox DeskToppas

投稿者 : もちもち     投稿日時 : 2025/06/06(Fri) 11:12:23

---

単純にセルの指定で""や&の間違いでした。
返信してくださった方のものも今後使っていきたいと思います。ありがとうございました。