Playing a Window Media Player's playlist in Excel|VBA & Macros|Excel Forum|My Online Training Hub

Hi Catalin,

 Thanks for your prompt reply. I copied your code into my Sub Worksheet_PivotTableUpdate function as it was triggered by Pivot Table update then changed the initial cell to "A33" as listed below. However, after running the code the program would be stuck on line 8 with a run-time error 424 - 'Object required". Could you please check it out what's missing?

Regards,

Julian 

 Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
 Dim NewFile As Variant
 Range("A33").Select
 Do While Not IsEmpty(ActiveCell)
 WindowsMediaPlayer1.playlistCollection.getByName ("MyNewPlaylist")
 WindowsMediaPlayer1.currentPlaylist.Clear
 Text1 = ActiveCell.Value
 Set NewFile = WindowsMediaPlayer1.newMedia(Text1)
 WindowsMediaPlayer1.currentPlaylist.insertItem 0, newMedia
 Selection.Offset(1, 0).Select
 Loop
 'the playlist is created, play it
 'WindowsMediaPlayer1.Controls.Play
 
End Sub        

Hi Catalin,

The same problem "Object required" still exists. Does it need to create a playlistarray instead?

Regards,

Julian

Hi Catalin,

Here you are the attached file. There are 3 Window Media Players embedded in, Please check the tab with name "Media". The rest two works well. Sorry again for bothering you so much.

Best regards,

Julian

Hi Catalin / SunnyKow's :

Let me report my test results as follows:

I' m sorry to say all the solutions provided below were failed and I'm not sure did it has something with my 64-bit operating sytem. In order to get support memory amounts over 4 GB for Power query and DAX running I've installed my Excel 2013 and PowerBI desk in 64-bit versions. If this is the case, how the VBA script can be modified?

Scripts from Catalin - got the same error message "Object does'nt suppport this property or method" and stuck on the line in bold font type

(1).

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
  Dim NewFile As Variant
  NewFile = WindowsMediaPlayer1.newMedia(Text1)
  Range("A33").Select
  Do While Not IsEmpty(ActiveCell)
  WindowsMediaPlayer1.playlistCollection.getByName ("NewFile")
  WindowsMediaPlayer1.currentPlaylist.Clear
  Text1 = ActiveCell.Value
  Set NewFile = WindowsMediaPlayer1.newMedia(Text1)
  WindowsMediaPlayer1.currentPlaylist.insertItem 0, newMedia
  Selection.Offset(1, 0).Select
  Loop
  'the playlist is created, play it
  'WindowsMediaPlayer1.Controls.Play
End Sub

(2).

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
 Dim NewFile As Variant

Dim Playlist As IWMPPlaylist
Set Playlist = WindowsMediaPlayer1.newPlaylist("MyNewPlayList", "")
 Range("A33").Select

'the following 2 lines were inside the loop, which was wrong... we don't have to clear the list at each loop

 WindowsMediaPlayer1.playlistCollection.getByName ("MyNewPlaylist")
 WindowsMediaPlayer1.currentPlaylist.Clear

 Do While Not IsEmpty(ActiveCell)
 Text1 = ActiveCell.Value
  NewFile = WindowsMediaPlayer1.newMedia(Text1)
 WindowsMediaPlayer1.currentPlaylist.insertItem 0, newMedia
 Selection.Offset(1, 0).Select
 Loop
 'the playlist is created, play it
 'WindowsMediaPlayer1.Controls.Play

Script from SunnyKow's fixed code - got the error message: "Method 'add' of object ' IWMPMedia Collectio2' failed" and stuck on the line in bold font type

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
Dim NewFile As Variant
Dim Playlist As IWMPPlaylist
Set Playlist = WindowsMediaPlayer1.newPlaylist("MyNewPlayList", "")
Range("A33").Select
WindowsMediaPlayer1.playlistCollection.getByName ("MyNewPlaylist")
WindowsMediaPlayer1.currentPlaylist.Clear
Do While Not IsEmpty(ActiveCell)
Text1 = ActiveCell.Value
'NewFile = WindowsMediaPlayer1.newMedia(Text1)
Set NewFile = WindowsMediaPlayer1.mediaCollection.Add(Text1)
WindowsMediaPlayer1.currentPlaylist.insertItem (WindowsMediaPlayer1.currentPlaylist.Count), NewFile
Selection.Offset(1, 0).Select
Loop

'the playlist is created, play it
WindowsMediaPlayer1.Controls.Play

End Sub

Hi SunnyKow,

Just tried run your file on my computer and it worked well. Therefore, I would modify my script based on your version later on. By the way, Just wonder if you have ever tried to play the transcripts files together with the videos synchronously also using VBA script? I think it's worth a trial. Any way, Thanks for your early Christmas gift. You are my this year's Santa Claus.

Best regards,

Julian

It's about SubRip file format with (.srt) extension or simply a plain text file showing what was said (ii.e. subtitle or caption) in a video / movie....

Hi Sunny,

Just came out two more findings for your reference: Both simplified Chinese characters and m4a file extensions could not be recognized when you Set sMedia = WindowsMediaPlayer2.mediaCollection.Add(SelVideo). And it's very nice to hear your new year resolution. I believe you must have had a very fruitful year 2016. I also wish you Merry Christmas and a happy new year soon in next two weeks. Thank you very much again for the wonderful gift you gave me.

Best regards,

Julian