ファイルをドラッグした時にexcelを開く

質問

お世話になっています。
以下のことが実現したいのですが、まったく方法がわからず困っています。

1.サーバー上の特定のフォルダAに不特定のファイルB、Ｃ、Ｄ・・・・をドラッグする
2.ドラッグすると同時にA内にあるファイルX.xltmが開く
3.そこにB、Ｃ、Ｄ・・・のパスをハイパーリンクで順に書き込みたいのです。
（パスは\\サーバー名\A\Bとなり、Bの部分がＣ、Ｄ、と変わっていく感じです）

やりたいことは、フォルダAにどんどん入れられていくファイルのリストを作成して、他の使用者がそこからハイパーリンクで必要なファイルを開く、ということです。

申し訳ありませんが、教えていただけると助かります。
宜しくお願いします。

回答No.1

mt2008 · ベストアンサー

フォルダにファイルが作成される度にExcelファイルを更新するのではなく、Excelブックの方でブックを開くたびにフォルダのファイルの一覧を取得してハイパーリンクを貼れば良いのでは？
こんな感じに↓

Sub Auto_Open()
　　sPath = "C:\Temp\FolderA\"
　　sFile = Dir(sPath & "*.txt")
　　nRow = 1
　　Columns("A:A").ClearContents
　　With ActiveSheet.Hyperlinks
　　　　Do While sFile <> ""
　　　　　　.Add Anchor:=Cells(nRow, 1), Address:=sPath & sFile, TextToDisplay:=sFile
　　　　　　nRow = nRow + 1
　　　　　　sFile = Dir()
　　　　Loop
　　End With
End Sub

補足

さっそくお返事いただきありがとうございました。
書き方が悪くて申し訳ありません。

実は現在、mt2008様にお書きいただいた方法で運用しています。
しかし、それではファイルに対する情報が不足しているという指摘を受けました。

そこで、パスをとることだけではなく、そのファイルについて複数項目を入力させる必要が生じました。
なので、「ファイルをフォルダにドラッグ→エクセルファイルが開く→パスをとると同時に必要項目を入力させる」

という流れにしたいのですが、「フォルダにドラッグするとエクセルファイルが開いてパスを書き込む」というところがどうしてもわかりません。

入力させるコードはわかりますので、このような質問の仕方をしてしまいました。

ご存知でしたら教えていただけると嬉しいです。

回答No.2

mt2008

> なので、「ファイルをフォルダにドラッグ→エクセルファイルが開く→パスをとると同時に必要項目を入力させる」
> という流れにしたいのですが、「フォルダにドラッグするとエクセルファイルが開いてパスを書き込む」というところがどうしてもわかりません。

そんなイベントはありませんので、もしやろうとすると……
・Excelブックを常時起動して、定周期でフォルダを監視
・定周期でフォルダを監視する常駐アプリを使い、ファイルが作成されたらExcelブックを起動
の、どちらかになるかと思われます。
Excelブックは常駐に向きませんので、常駐アプリをお勧めします。
フリーソフトで↓こんな物を見つけました。

【フォルダ監視】
http://www.forest.impress.co.jp/library/software/folderkanshi/

監視の間隔を短くして、詳細設定のプログラム起動設定で、プログラムにExcel、パラメータにExcelブックを指定してやればやろうとしてることが出来そうですよ。

お礼

お2方ともお忙しい中、ありがとうございました。
vbsで実現できました。
いろいろお考えいただき本当にありがとうざいました。