OKWAVEのAI「あい」が美容・健康の悩みに最適な回答をご提案!
-PR-
解決
済み

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

  • 困ってます
  • 質問No.103401
  • 閲覧数236
  • ありがとう数1
  • 気になる数0
  • 回答数1
  • コメント数0

お礼率 73% (82/111)

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

質問者が選んだベストアンサー

  • 回答No.1
レベル13

ベストアンサー率 68% (791/1163)

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

ファイルを選択するダイアログが出ます。ファイルを選択するとA1にパスを表示します。最後から3行目と8行目の「'」をはずすと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
お礼コメント
hitoshipon

お礼率 73% (82/111)

ありがとうございます!
これなんです、求めていたのはっ!
素早い回答をありがとうございました。
早速使わせていただきます。
投稿日時 - 2001-07-12 23:30:38
-PR-
-PR-
このQ&Aのテーマ
このQ&Aで解決しましたか?
関連するQ&A
-PR-
-PR-
このやり方知ってる!同じこと困ったことある。経験を教えて!
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。

その他の関連するQ&A、テーマをキーワードで探す

キーワードでQ&A、テーマを検索する
-PR-
-PR-
-PR-

特集


いま みんなが気になるQ&A

関連するQ&A

-PR-

ピックアップ

-PR-
ページ先頭へ