MP3-ID3タグ情報をExcelで編集するには？

質問

例えば「Windows Media Player11」でMP3形式で保存した、
フォルダ配下のMP3ファイル(複数:少なくともCD1枚分)の
ID3タグ情報をExcelワークシートに一括で取得して、
ID3タグ情報とファイル名を編集した後、
これを更新する、VBAマクロのサンプルを誰か提供して下さい。
なにとぞ宜しくお願いいたします。

回答No.1

nattocurry

http://shikanp.blogzine.jp/blog/2006/02/excelvbamp3_72b1.html

お礼

回答有難うございました。

補足

nattocurryさん、回答有難うございます。
補足:下記内容は、http://shikanp.blogzine.jp/blog/2006/02/excelvbamp3_72b1.html​
へも投稿しました。

▼試行させていただきましたが初心者にて悪戦苦闘しています。
1.[mp3infp.dll]ファイルを次のURLで取得。
http://win32lab.com/fsw/mp3infp/index.html
mp3infp Ver.2.54a DLL only [2007/08/26] (mp3infp.dllのみ)
2.そして[C:\windows\system32\]の配下へ投稿。
3.テスト用のMP3ファイルを準備。
4.提示いただいたソースを当方Excel-Module1へ転記(未定義Dimを加筆)。
5.当該Excel-VBAProjectをコンパイル(OK)
▼当該マクロを実行したのですが…下記のエラーが発生しました。
原因が解らない…ご指導よろしくお願いいたします。
追記:実行は「Windows Vista」です…駄目!?
------------------------------------------------------
If logT And MP3INFP_HAS_MP3_ID3V2 Then
Msg1 = "[v2タグ]"
tagData_Titl_v2 = getItem("INAM_v2") 'タイトル
↓↓ 次に飛ぶ
Private Function getItem(Target As String) As String
Private Function getItem(Target As String) As String
Dim buf As String, logGV As Boolean
Dim pos As Integer
'すべて空白
getItem = ""
logGV = mp3infp_GetValue(Target, buf)
pos = InStr(buf, Chr(0))
↓↓
★ここでエラー発生。
1.小画面:Microsoft Windows「この問題に関する詳細情報を送信しますか?」が表示される
2.[情報の送信]/[キャンセル]をクリックする
↓↓
3.当該Excelが再起動される
------------------------------------------------------
以上