ここから本文です

セルに入力されているファイルのフルパスから「ファイル名.txt」のようにファイル...

アバター

ID非公開さん

2020/5/1713:58:31

セルに入力されているファイルのフルパスから「ファイル名.txt」のようにファイル名から拡張子まで変数に代入するにはどうすればいいですか?

言語:VBA

閲覧数:
26
回答数:
2

違反報告

回答

1〜2件/2件中

並び替え:回答日時の
新しい順
|古い順

プロフィール画像

カテゴリマスター

taihenda****さん

2020/5/1719:10:37

Dir関数はフルパスの付のファイル名を受け取るとファイル名だけを返します。
実在しないと空文字を返します。

なので面倒な操作は不要です。


Sub test()
Dim filename As String
filename = Dir(Range("A1"))
If filename <> "" Then
MsgBox filename
Else
MsgBox "そんなファイルないよ"
End If
End Sub

だるまさん

2020/5/1714:10:34

関数にしてみました。


Function Fname(ByVal FullPath As String) As String
    Dim i As Long
    i = InStrRev(FullPath, "\")
    Fname = Mid$(FullPath, i + 1)
End Function

  • だるまさん

    2020/5/1714:12:40

    >変数に代入するにはどうすればいいですか

    あっ、変数にね。
    では続き。

    変数 = Fname(ActiveCell.Value)

    みたいな感じ。

返信を取り消しますが
よろしいですか?

  • 取り消す
  • キャンセル

この質問につけられたタグ

みんなで作る知恵袋 悩みや疑問、なんでも気軽にきいちゃおう!

Q&Aをキーワードで検索:

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問は選択されたID/ニックネームのMy知恵袋で確認できます。

不適切な投稿でないことを報告しました。

閉じる