Excel で音楽リストを再生

質問

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

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

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

回答No.1

venzou · ベストアンサー

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

お礼

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

回答No.3

imogasi

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

お礼

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

回答No.2

venzou

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

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

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