[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『【VBA】ファイルの検索結果をD&Dで利用したい』（ろく）
Excel2010のVBAを使用しています。 さまざまな条件から該当するファイルを検索し、ListBoxに その結果のパスを表示させています。 （検索結果のファイルは複数あります）
検索結果の該当ファイルをドラッグ＆ドロップして別のアプリケーション で読み込ませたいのですが、ListBoxから直接ドラッグはできません。
どのような方法をとったらできるでしょうか？
＜ 使用 Excel：Excel2010、使用 OS：Windows7 ＞
>別のアプリケーションで読み込ませたいのですが、
そのアプリケーションがどのようにデータを受け取るのか分か りませんが、テキストファイルとして保存して、そのテキスト ファイルをそのアプリケーションにドラッグ&ドロップしたら いけますか？ （カリーニン） 2015/06/27(土) 10:26
>アプリケーションはドラッグ＆ドロップもしくはメニューバーからファイルを開く、の2通りしかありませんでした。
対象ファイルの拡張子は何でしょう？ （カリーニン） 2015/06/28(日) 23:14
カリーニンさんありがとうございます。 拡張子は[.txt]です。 中にはXY座標値等の数値データが入っており、 アプリケーションはその数値を読み取って線や面など 図形を表示させるものです。 （ろく） 2015/06/29(月) 08:40
アプリケーションによっては引数を与えて起動できるものがありますが、 そのアプリケーションが該当するのかわかりませんので、簡単な方法と しては、
1. 該当のテキストファイルが格納されたフォルダを開く(ドラッグ&ドロップ は手動)
2. 新規にフォルダを作成し、テキストファイルをコピー、そのフォルダを開 く(ドラッグ&ドロップは手動)
といったところでしょうか。
1.については該当のテキストファイルを選択状態にすることもできるとは 思いますがわかりません。 （カリーニン） 2015/06/29(月) 09:33
カリーニンさんありがとうございます。 早速試してみました。 が、問題が発生してしまいました。。
検索対象のファイルについてまったく同名のファイルが存在し、 同じフォルダへのコピーは不可でした。
ショートカットファイルを作成してやっても見ましたが、拡張子 lnkのものは読み取ってもらえませんでした。 （ろく） 2015/06/29(月) 09:52
>検索対象のファイルについてまったく同名のファイルが存在し、
コピー時に名前を変えるか、名前の末尾に番号などを付加して ユニークな名前に変えて保存してはいかがでしょう？ 一時的に使い、使用後は破棄するでしょうから、数字のみにしても いいかもしれません。
lnkファイルにしてもリンク先のパスを取得して、リンク先のファイル をコピーしてはいかがでしょう？
lnkファイルのリンク先を取得する http://officetanaka.net/other/extra/tips12.htm （カリーニン） 2015/06/29(月) 10:07
カリーニンさんありがとうございます。
txtファイルはコピー時に連番を付与して対応することにいたしました。 結果無事に動かすことができるようになりました。
的確なアドバイスありがとうございました！ （ろく） 2015/06/29(月) 11:24
2015/06/29(月) 09:33のレスの
>1.については該当のテキストファイルを選択状態にすることもできるとは >思いますがわかりません。
の方法がわかりましたの書いておきます。
参考ＨＰです。
http://www.alato.ne.jp/kazu-/index.htm
特定のファイルを選択した状態でフォルダを開く http://www.alato.ne.jp/kazu-/vb/tip23.htm
↓の部分がそうです。
> Call Shell〜
>Text1.Text の部分をパスに置き換えます。
ただ、複数ある場合は、やはりフォルダを作成しその中にコピーする方法 の方がやりやすいですね。 （カリーニン） 2015/06/29(月) 21:11
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.