【マクロ】エクセルにかいてある、フォルダの名前をマクロで開きたい

【やりたい事】
画像をご覧ください
A列にフォルダの名前があります

・A２セルを選択します
・A2には　１　とういうフォルダの名前があります
・フォルダパスは以下のとおりです

C:\Users\2020\OneDrive\ドキュメント\a\1

このようにセルを上記のフォルダパス+A3セルを選択した名前　たして
フォルダを開きたいです

任意のフォルダを開くコードは以下のとおりです
フォルダの名前　１　の場所をセル選択をして、変更した上で開きたいという事です


【コード】
Sub フォルダをエクスプローラーで開く()

Dim フォルダパス As String
フォルダパス = "C:\Users\2020\OneDrive\ドキュメント\a\1"

Shell "C:\windows\explorer.exe " & フォルダパス & "\", vbNormalFocus

End Sub

No.1 回答者： zongai 回答日時： 2024/04/21 12:38

選択しているセルの中身を

"C:\Users\2020\OneDrive\ドキュメント\a\"
の後に加えるというのであれば、
こちらでどうでしょう？

Sub フォルダをエクスプローラーで開く()
　　Dim フォルダパス As String
　　フォルダパス = "C:\Users\2020\OneDrive\ドキュメント\a\"
　　shell "C:\windows\explorer.exe " & フォルダパス & ActiveCell, vbNormalFocus
End Sub

この回答へのお礼

うまく、動きました。ご指導、ありがとうございます

お礼日時：2024/04/22 20:05