Yes Im Am
Elevated Bloon
Staff Message : This guy's the bee's knees, man.
Posts : 15686
Age : 29
Fuji Bucks™ : 19434
Reputation : 75
 |  Subject: the internet it co0o0o0o0ool Sat May 19, 2012 10: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
Moderator
Posts : 4769
Age : 31
Fuji Bucks™ : 4724
Reputation : 229
| | Subject: Re: the internet it co0o0o0o0ool Sat May 19, 2012 10: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
Honor Roll
Staff Message : You want a staff message? Too bad.
Posts : 5608
Age : 27
Fuji Bucks™ : 4379
Reputation : 90
| | Subject: Re: the internet it co0o0o0o0ool Sun May 20, 2012 6:38 am | |
| |
|
Yes Im Am
Elevated Bloon
Staff Message : This guy's the bee's knees, man.
Posts : 15686
Age : 29
Fuji Bucks™ : 19434
Reputation : 75
| | Subject: Re: the internet it co0o0o0o0ool Sun May 20, 2012 9: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
Co-Administrator
Posts : 4261
Age : 26
Fuji Bucks™ : 2665
Reputation : 105
| | Subject: Re: the internet it co0o0o0o0ool Sun May 20, 2012 10:27 pm | |
| They teach VB at my middle school  |
|
Yes Im Am
Elevated Bloon
Staff Message : This guy's the bee's knees, man.
Posts : 15686
Age : 29
Fuji Bucks™ : 19434
Reputation : 75
| | Subject: Re: the internet it co0o0o0o0ool Sun May 20, 2012 10:39 pm | |
|  In Middle school I didn't have a single computer teacher that knew what an internet browser was. |
|
Sponsored content
| | Subject: Re: the internet it co0o0o0o0ool | |
| |
|
