エクセルのセルにパス名を入れたい

質問

いつもお世話になっています。
さて、エクセルであるセルにファイルのパス名を入れたいのですが、ファイルを開くときのダイアログボックスのように直接シェルのようなものからファイルを指定して、選んだファイルのフルパスがセルに入るようにしたいのですが、フォームとかコントロールでは簡単には出来ないんでしょうか？
あまりマクロとＶＢには詳しくないので、どうやったらいいのか解りません。
説明が下手で申し訳ないですが、ご教授願います。

回答No.1

nishi6 · ベストアンサー

ツール→マクロ→Visual Basic Editor でコードウインドウに貼り付けます。（標準モジュールを追加して貼り付けるか、シートのコードウインドウです）

ファイルを選択するダイアログが出ます。ファイルを選択するとA1にパスを表示します。最後から３行目と８行目の「'」をはずすとA2にファイル名を表示します。

Sub myFilePath()
Dim myFileName As Variant '指定したファイル
Dim myFileNamePath As String '指定したファイルのパス
Dim L As Integer 'カウンタ

myFileName = Application.GetOpenFilename
If myFileName <> False Then
For L = Len(myFileName) To 1 Step -1
If Mid(myFileName, L, 1) = "\" Then
myFileNamePath = Left(myFileName, L - 1)
'myFileName = Right(myFileName, Len(myFileName) - L)
Exit For
End If
Next
Range("A1") = myFileNamePath
'Range("A2") = myFileName
End If
End Sub

お礼

ありがとうございます！
これなんです、求めていたのはっ！
素早い回答をありがとうございました。
早速使わせていただきます。