質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
85.50%
VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

Q&A

解決済

1回答

10151閲覧

vba ドラッグ&ドロップ ファイル名の取得

merci_children

総合スコア44

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

0グッド

0クリップ

投稿2018/11/10 14:30

イメージ説明

【背景】
vbaを使用して「ドラッグ&ドロップでファイル名を取得し、リストボックスに出力する」プログラムを
作成したいと考えています。
※画像イメージの白枠にファイルを追加していくイメージです。

現在、以下サイトを参考にドラッグ&ドロップでファイルパス+ファイル名を取得するところまでは作成できましたが、「ファイル名のみ取得し、リストボックスに出力する」ところで詰まってしまいました。

【質問】
ドラッグ&ドロップをするボックスとリストボックスを被らせたいんですが、被らせるとドラッグ&ドロップの機能が使えなくなってしまったため、どのように実装したらよいか教えていただきたいです。

【参考URL】
http://tecinfo.yuzumaru.co.jp/vba-%E3%82%A8%E3%82%AF%E3%82%BB%E3%83%AB%E3%83%9E%E3%82%AF%E3%83%AD/vba-%E3%83%89%E3%83%A9%E3%83%83%E3%82%B0-%E3%82%A2%E3%83%B3%E3%83%89-%E3%83%89%E3%83%AD%E3%83%83%E3%83%97%E3%81%A7%E3%83%95%E3%82%A1%E3%82%A4%E3%83%AB%E3%82%92%E6%8C%87%E5%AE%9A%E3%81%95%E3%81%9B/vba-%E3%83%89%E3%83%A9%E3%83%83%E3%82%B0-%E3%82%A2%E3%83%B3%E3%83%89-%E3%83%89%E3%83%AD%E3%83%83%E3%83%97%E3%81%A7%E3%83%95%E3%82%A1%E3%82%A4%E3%83%AB%E3%82%92%E6%8C%87%E5%AE%9A%E3%81%95%E3%81%9B.html

不明点などありましたら、返信していただけると幸いです。
よろしくお願いいたします。

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

guest

回答1

0

ベストアンサー

ListboxをはじめとするExcel標準で利用できるコントロールツール群ではD&Dに対応できないため、あえて外部ツール(ListView)を利用しているものと思います。

代案として、ListViewにDrop結果をリスト表示してみてはいかがでしょうか?
⇒参考サイト:エクセルの学校

以下、お試しで作成してみたコードです。

Private Sub UserForm_Activate() With Me.ListView1 .OLEDragMode = ccOLEDragAutomatic .OLEDropMode = ccOLEDropManual .View = lvwReport .LabelEdit = lvwManual .HideSelection = False .AllowColumnReorder = True .FullRowSelect = True .Gridlines = False .ColumnHeaders.Clear .ColumnHeaders.Add , "_List", "ファイル名", 300 '1列(非表示) .HideColumnHeaders = True End With End Sub Private Sub ListView1_OLEDragDrop(Data As MSComctlLib.DataObject, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single) On Error GoTo DropErr For c = 1 To Data.Files.Count Dim strFile As String strFile = Mid(Data.Files(c), InStrRev(Data.Files(c), "\") + 1) If UBound(Split(strFile, ".")) = 0 Then 'Folder End If Dim strPath As String Me.ListView1.ListItems.Add.Text = strFile Next DropErr: End Sub

Listboxとは見た目や挙動が若干異なりますが、設定次第では近づけることもできるかもしれません。

参考になれば幸いです。

投稿2018/11/28 04:29

jawa

総合スコア3013

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

merci_children

2018/11/30 20:18

ご回答ありがとうございます。 Listviewコントロールでやりたい感じにできました。 ありがとうございます。
guest

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.50%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問