スキルアップ・問題解決なら、モーグにおまかせ！

VBA初心者です。
 
1.やりたいこと。
 
セル位置("A1")に書いているファイルパスからフォルダパスを抽出してフォルダを開きたい。
 
2.悩んでいること。
 
セル位置("A1")に書いているフォルダパスを開くのは下記コードだと知りました。
 
-<参考コード:開始>-
Sub フォルダを開く()
 
Dim MyPath As String
 
    MyPath = Range("A1")
 
    Shell "explorer " & MyPath, vbNormalFocus
 
End Sub
-<参考コード:終了>-
 
現在、セル位置("A1")には下記のファイルパスが記入してあります。
C:\Users\aaaaa\bbbbb\ドキュメント\cccccc\banana.xlsx
 
このファイルパスからC:\Users\aaaaa\bbbbb\ドキュメント\ccccccを変数MyPathに代入するにはどうすれば良いでしょうか？
Split関数を使うのでしょうか？

参照設定でMicrosoft Scripthing Runtimeにチェックを入れておく必要がある。
 
Sub フォルダを開く()
  Dim Fso As New Scripting.FileSystemObject
  Dim MyPath As String
  MyPath = Fso.GetParentFolderName([A1].Value)
  MsgBox MyPath
  Set Fso = Nothing
End Sub

下記でどうでしょう。

    Dim MyPath As String
    MyPath = Range("A1").Value
    MyPath = Left(MyPath,InStrRev(MyPath,"\")-1)

現時点の問題点は
>フォルダを開きたい
だから、フォルダパスが取得できれば、フォルダは開います。
 
でも、それだ絵ですよね？
 
開いてあと、何をしたいのでしょうか？
 
それによっては、
別な方法でフォルダを開いた方がよいかも・・・・
 
それから、Ａ１セルには、手入力するのですか？
誤入力ということもあり得ます。
もし、誤入力したとしたら、意図したフォルダとは別のフォルダが開かれてしまいます。
 
 
マクロブックと同一パスを取得するならば、
セルにパスを入力する必要はありません。
 
 
 

WinArrow さんの引用:
現時点の問題点は
>フォルダを開きたい
だから、フォルダパスが取得できれば、フォルダは開います。
 
でも、それだ絵ですよね？
 
開いてあと、何をしたいのでしょうか？
 

hatena さんの引用:
下記でどうでしょう。

    Dim MyPath As String
    MyPath = Range("A1").Value
    MyPath = Left(MyPath,InStrRev(MyPath,"\")-1)

hatena さん、レスをお借りして
セルＡ１の値が間違っていた場合のコードを追加します。
 
Dim MyPath As String
  
    MyPath = Range("A1")
    MyPath = Left(MyPath, InStrRev(MyPath, "\") - 1)
     
    If Dir(MyPath, vbDirectory) = "" Then
        MsgBox "セルＡ１のパスは実在しません。"
    Else
        Shell "explorer " & MyPath, vbNormalFocus
    End If

どら さんの引用:
参照設定でMicrosoft Scripthing Runtimeにチェックを入れておく必要がある。
 
Sub フォルダを開く()
  Dim Fso As New Scripting.FileSystemObject
  Dim MyPath As String
  MyPath = Fso.GetParentFolderName([A1].Value)
  MsgBox MyPath
  Set Fso = Nothing
End Sub

WinArrow さんの引用:
hatena さん、レスをお借りして
セルＡ１の値が間違っていた場合のコードを追加します。
 

横から失礼します。
>Shell "explorer " & MyPath, vbNormalFocus
で"ファイルが見つかりません。"というエラーメッセージが出ます。
 
こちらでテストの結果、エラーにはなりません。
 
しっかり確認してみてください。

> Shell "explorer " & MyPath, vbNormalFocus
 
　explorer の後ろに間違いなく半角スペースはありますか？

>で"ファイルが見つかりません。"というエラーメッセージが出るのでしょうか？
 
そもそも
> Shell "explorer " & MyPath, vbNormalFocus
このコード間違えいませんか？

 shell に指定したパスが実在しない場合、
ドキュメントフォルダが開きます。
 
セルにパスを手入力している場合は、誤入力という可能性があります。
エラーにならないからといって、意図しない動きもチェックすることも重要です。
 

higejee さんの引用:
> Shell "explorer " & MyPath, vbNormalFocus
 
　explorer の後ろに間違いなく半角スペースはありますか？