Excel で音楽リストを再生

マイ・ドキュメントのマイ・ミュージックなどに音楽ファイルがたくさんあるのですが，データがゴチャゴチャになっています。それで，Excelのマクロなどを使ってフォルダから音楽リストを簡単に作成し再生することはできないでしょうか。

具体的には，一度すべてを登録して，それをさらにリスト・アップしたExcelのファイルからフルパスを参照して再生させたいと思っています。

リスト・アップの方はもしExcelでは面倒であるならば，他のソフトで行ないますので，どちらかというと Excel のデータをそこから再生する方法を知りたいです。

No.1 ベストアンサー 回答者： venzou 回答日時： 2006/12/09 20:08

http://okwave.jp/qa2576176.html
こちらが参考になると思います。

この回答へのお礼

ありがとうございます。参考にさせていただきます。

お礼日時：2006/12/10 09:04

No.3 回答者： imogasi 回答日時： 2006/12/09 21:36

昨日の質問の

http://okwave.jp/qa2588688.html
の私の質問のコードで
（１）拡張子の指定をかえる（wavなど）
（２）フォルダ名を適当に変える（strPath の"”内）
ことにより、エクセルのシートにファイル名を書き出せます。
WEBで「VB Dir」で検索すれば（１）（２）のヒントが沢山出ます。
実質は＃２のご回答と同じです。

この回答へのお礼

ありがとうございます。参考にさせていただきます。

お礼日時：2006/12/10 09:04

No.2 回答者： venzou 回答日時： 2006/12/09 20:24

＃１は音楽再生の方法です。

リスト・アップの方はこんな感じで出来ると思います。

Sub ファイル一覧()
　Dim i As Integer
　Dim r As Range
　Dim path As String
　Dim fname As String
　
　path = "c:\temp\" 'フォルダ
　
　Set r = ActiveSheet.Range("A1") '保存するセル
　i = 1
　fname = Dir(path & "*.wav") 'ファイルの種類
　Do Until fname = ""
　　r.Cells(i, 1) = path & fname
　　i = i + 1
　　fname = Dir()
　Loop
End Sub