[[20180511140601]]　『フォルダ名を取得したい』（できそこない）　ページの最後に飛ぶ

『フォルダ名を取得したい』（できそこない）

写真が入っているフォルダ名を取得したい

西暦8ケタで日付が表示されたフォルダが幾つかあります。
その中には写真がたくさん入っています。

エクセルの挿入ボタンから
画像を挿入し、Ｂ列に、
その写真が入っていた元フォルダ名（西暦8桁）を取得したいのです。
関数でもvbaでも構いません。
Ａ列に写真、Ｂ列にその写真の入っているフォルダ名　という感じが理想です。

写真データには写真を撮った日付データは入っていますが
撮った日ではなく、入っているフォルダ名のみを取得したいです。

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Dim filename As String
    If Target.Count <> 1 Then Exit Sub
    If Target.Column <> 1 Then MsgBox "写真を貼り付けるＡ列のセルを選択してください": Exit Sub
    filename = Application.GetOpenFilename(Title:="写真を選択", MultiSelect:=False)
    On Error Resume Next
    If Dir(filename) <> "" Then
        Set myShape = ActiveSheet.Shapes.AddPicture( _
        filename:=filename, _
        LinkToFile:=False, _
        SaveWithDocument:=True, _
        Left:=Target.Left, _
        Top:=Target.Top, _
        Width:=Target.Width, _
        Height:=Target.Height)
    End If
    Target.Offset(, 1).Value = Split(filename, "\")(UBound(Split(filename, "\")) - 1)
End Sub
（mm） 2018/05/11(金) 15:02

mmさん　できました！すばらしいvbaをありがとうございました！！

（できそこない） 2018/05/11(金) 15:21

mmさん、追記で申し訳ございません。

中のコードをいろいろ変更してみたのですが、
・Ａ列の写真はりつけを→Ｇ列に。
・Ｂ列にファイルを→Ｈ列に。
の場合はどこを変えればよいのでしょうか。
1を7とかにいろいろ変えてみたのですがうまくいきません。。
ちなみにＧ列は９個のセルが結合されています。
またＨ列も９個のセルが結合されています。

どうぞよろしくお願いします。
（できそこない） 2018/05/11(金) 16:08

コメント返信：

[ 一覧(最新更新順) ]

[[20180511140601]] 『フォルダ名を取得したい』（できそこない） ページの最後に飛ぶ

[[20180511140601]]　『フォルダ名を取得したい』（できそこない）　ページの最後に飛ぶ