Private Sub ListView1_OLEDragDrop 24年07月01日作成したソース

ListViewにファイルをドロップして、A列へ
A列をクリア後、受け取ったファイル名を書き込む
ソースコード:

Private Sub ListView1_OLEDragDrop(Data As MSComctlLib.DataObject, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single)
    
    Dim sFileName
    
    Columns("A:A").ClearContents  'A列のデータをクリアする
    
    Debug.Print "Data.GetFormat(1) =", Data.GetFormat(1)
    
    'テキストフォーマットで取得可能か聞く GetFormat(1) = Trueで判断
    If Data.GetFormat(1) = True Then
        '単純に書き出してみた
        Debug.Print "Data.GetData(1) =", Data.GetData(1)
        Range("a1") = "テキストデータを受け取りました。"
        Range("a2") = Data.GetData(1)
    Else
        'テキストで取得不可なら、ファイルでしょと考えるのは、安易だが、
        '(※他の、形式で、ドロップされたデータもあるので)

        'いつもの、.Countで数がわかるので、何かのチェックで使うか。
        Debug.Print "Data.Files.Count=", Data.Files.Count
        
        Dim nROW As Long  '行カウンタ
        nROW = 1   'A1から書き込むので初期値1を代入
        For Each sFileName In Data.Files  'ファイル名を取得
            Debug.Print "Data.Files = ", sFileName
            Cells(nROW, 1) = sFileName   'A列にファイル名をセットする
            nROW = nROW + 1  '次の行へ
        Next
        
    End If
    
End Sub

Private Sub Worksheet_Activate()
    Debug.Print "Worksheet_Activate", ActiveSheet.Name
    ListView1.OLEDropMode = ccOLEDropManual  'ドロップを受け入れる
End Sub

youtu.be

https://youtu.be/TIAPCgwTjn4
geminiにタイムスタンプを作成してもらった。
概要の説明 (0:00 - 1:00)
動画の概要として、シートにListViewコントロールを追加し、ドラッグアンドドロップされたファイルの名前を取得する方法を紹介すると説明しています。

ListViewコントロールの追加 (1:00 - 4:22)
まず、シートにListViewコントロールを追加する方法を説明しています。
手順としては、シートを右クリックし、挿入 > 開発 > コントロールの挿入 の順に選択します。
コントロールの挿入ウィンドウが表示されたら、Microsoft ListViewコントロールを選択し、シート上に配置します。

コードの記述 (4:22 - 9:02)
次に、シートにコードを記述する方法を説明しています。
シートを右クリックし、コードの表示を選択すると、VBAのコードエディタが表示されます。
コードの内容については動画では詳しく説明されていませんが、ListViewにドラッグアンドドロップされたファイル名が取得できるように記述するようです。

タイミングの確認と意図的なミス (9:02 - 10:22)
このパートは、タイトルと説明が一致していないようです。動画の内容を確認すると、コードの記述ミスを意図的に仕込み、ドラッグアンドドロップしてもファイル名が取得できない状態にするようです。

ドラッグアンドドロップイベントの実行 (10:22 - 12:12)
正しいコードを記述した場合の動作確認を行います。
ListViewのプロパティからドラッグアンドドロップイベントを選択し、メッセージボックスに「ドロップ」と表示されることを確認します。

本来の動作の説明 (12:12 - 14:12)
正しいコードの場合の動作を説明しています。
ドラッグアンドドロップされたファイル名が取得され、ListViewにファイル名が追加されるようです。
また、ホルダーごとドラッグアンドドロップした場合でも、ホルダー名とファイル名が取得できるようです。

まとめとアレンジ方法 (14:12 - 15:59)
動画のまとめと、コードをアレンジする方法について説明しています。
A列をクリアにしてしまう点や、ドラッグアンドドロップされたファイル名がリストに追加される位置など、改良できる点があるようです。
最後に、質問があればコメント欄に記載するように促しています。