Yes Im Am
Co-Administrator
Posts: 14761
Age: 16
Fuji Bucks™: 18712
Reputation: 364
 | | Subject: the internet it co0o0o0o0ool Sat May 19, 2012 8:30 pm | |
| How to export your Windows Media Player songs/artists to Excel: 1. Open a new text document by right clicking on your desktop, left clicking New, and then left clicking Text Document 2. Rename the new text document (anythingyouwant).vbs 3. Open document and copy this into it: | Code: | 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) = "Song"
objWorksheet.Cells(1,2) = "Artist"
objWorksheet.Cells(1,3) = "Album"
objWorksheet.Cells(1,4) = "Length"
objWorksheet.Cells(1,5) = "Times Played"
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("WM/AlbumArtist")
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() |
4. Save
5. Open the new VBS file and it should automatically fire off Excel and fill it in with the Artist, Title, Album, and Times Played. |
|
JesterDon IVVVI
Secretly Sinister
Posts: 4006
Age: 19
Fuji Bucks™: 5394
Reputation: 188
| | Subject: Re: the internet it co0o0o0o0ool Sat May 19, 2012 8:56 pm | |
| LOL VISUAL BASIC. Hop off your dinosaur and take a step into the 21st century YEM. Nobody uses that archaic language anymore. Java and C/C++ is where it's at nowadays. |
|
Johnywilko
Global Moderator
Posts: 5062
Age: 15
Fuji Bucks™: 3770
Reputation: 72
| | Subject: Re: the internet it co0o0o0o0ool Sun May 20, 2012 4:38 am | |
| |
|
Yes Im Am
Co-Administrator
Posts: 14761
Age: 16
Fuji Bucks™: 18712
Reputation: 364
| | Subject: Re: the internet it co0o0o0o0ool Sun May 20, 2012 7:46 pm | |
| Dan remember that I'm a n00b and I don't have the patience to learn Java, C++++, HTML, or anything like that |
|
Syfte
Secretly Sinister
Posts: 4081
Age: 13
Fuji Bucks™: 2472
Reputation: 98
| |
Yes Im Am
Co-Administrator
Posts: 14761
Age: 16
Fuji Bucks™: 18712
Reputation: 364
| | Subject: Re: the internet it co0o0o0o0ool Sun May 20, 2012 8:39 pm | |
|  In Middle school I didn't have a single computer teacher that knew what an internet browser was. |
|
