Sub MultipleValues(Col,Tag)
' Multiple values like more than 1 contributing artist
	for n= 0 to objSong.getAttributeCountByType(Tag,"")-1
		if n =0  then 
			objWorksheet.Cells(j,Col) = objSong.getItemInfoByType(Tag,"",n) 
		else 
			objWorksheet.Cells(j,Col) = objWorksheet.Cells(j,Col) + " / "  + objSong.getItemInfoByType(Tag,"",n) 
		end if
	next
end sub

Set objPlayer = CreateObject("WMPlayer.OCX" )

Set objMediaCollection = objPlayer.MediaCollection
Set colSongList = objMediaCollection.getByAttribute("MediaType", "Audio")
'Set colSongList = objMediaCollection.getByAttribute("Album", "Beethoven - String Quartet No. 1 op. 18.1 - Alban Berg Quartett")

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

' Label the columns

objWorksheet.Cells(1,1) = "Composer"
objWorksheet.Cells(1,2) = "Work"
objWorksheet.Cells(1,3) = "Part"
objWorksheet.Cells(1,4) = "Artist"
objWorksheet.Cells(1,5) = "Contributing Artist"
objWorksheet.Cells(1,6) = "Genre"

'objWorksheet.Cells(1,7) = "Length"
'objWorksheet.Cells(1,8) = "Times Played"
'objWorksheet.Cells(1,9) = "Conductor"

j = 2

' read the songs

For i = 0 to colSongList.Count - 1
    Set objSong = colSongList.Item(i)
	Album=objSong.getItemInfo("Album")
	if Album <> OldAlbum then
	
	    objWorksheet.Cells(j,1) = objSong.getItemInfo("WM/Composer")
	    objWorksheet.Cells(j,2) = objSong.getItemInfo("Album")
		objWorksheet.Cells(j,3) = objSong.Name
	    objWorksheet.Cells(j,4) = objSong.getItemInfo("WM/AlbumArtist")

' Tags with multiple values like more than 1 contributing artist
		MultipleValues 5, "Author"
		MultipleValues 6, "WM/Genre"
	
'    objWorksheet.Cells(j,7) = objSong.durationString
'    objWorksheet.Cells(j,8) = objSong.getItemInfo("UserPlayCount")
'    objWorksheet.Cells(j,9) = objSong.getItemInfo("WM/Conductor")
    j = j + 1
	end if
' Uncomment next line for albums only
'	OldAlbum=Album
Next

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