Set objPlayer = CreateObject("WMPlayer.OCX" )

Set objMediaCollection = objPlayer.MediaCollection
Set colSongList = objMediaCollection.getByAttribute("MediaType", "Audio")

Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
Set objWorkbook = objExcel.Workbooks.Add()
Set objWorksheet = objWorkbook.Worksheets(1)

objWorksheet.Cells(1,1) = "Название песни"
objWorksheet.Cells(1,2) = "Артист"
objWorksheet.Cells(1,3) = "Альбом"
objWorksheet.Cells(1,4) = "Длина"
objWorksheet.Cells(1,5) = "Количество проигрываний"

j = 2

For i = 0 to colSongList.Count - 1
    Set objSong = colSongList.Item(i)
    objWorksheet.Cells(j,1) = objSong.Name
    objWorksheet.Cells(j,2) = objSong.getItemInfo("Artist")
    objWorksheet.Cells(j,3) = objSong.getItemInfo("Album")
    objWorksheet.Cells(j,4) = objSong.durationString
    objWorksheet.Cells(j,5) = objSong.getItemInfo("UserPlayCount")
    j = j + 1
Next

Set objRange = objWorksheet.UsedRange
objRange.Columns.AutoFit()

Автор примера - Alexbootch.