Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Criar PLaylist em W...
 
Notifications
Clear all

Criar PLaylist em WMPlayer via VBA

 
2024 - VBA & Macros
Post Recente por tonyvaz 9 anos atrás
3 Posts
2 Usuários
0 Reactions
1,163 Visualizações
RSS
 tonyvaz
(@tonyvaz)
Posts: 4
New Member
Topic starter
 

Estou precisando que o Windows Media Player seja aberto fora do Excel e que toque 3 arquivos, sendo a sequência:
1) arquivoentrada
2) novoarquivo
3) arquivosaida

Quando rodo via Shell

Shell ("C:Program Files (x86)Windows Media Playerwmplayer.exe " & "" & arquivoentrada & ""), vbNormalNoFocus
Shell ("C:Program Files (x86)Windows Media Playerwmplayer.exe " & "" & novoarquivo & ""), vbNormalNoFocus
Shell ("C:Program Files (x86)Windows Media Playerwmplayer.exe " & "" & arquivosaida & ""), vbNormalNoFocus

sempre só vai aparecer o último arquivo e não resolve o meu caso.

Pelo que entendi, tenho que fazer uma playlist com estes 3 arquivos primeiramente, para depois rodar o WMPlayer

O problema tá ai, pois o códigos que achei na internet mais próximo com algumas pequenas adaptações que fiz, não funcionou.

Gostaria da ajuda para saber como consigo, lembrando que sempre o novoarquivo.mp4 vais ser modificado e essa lista tem que ser atualizada para rodar o novo arquivo.

Sub listaWMPlayer()

Dim Xwmp As IWMPMedia
Dim WindowsMediaPlayer1 As WindowsMediaPlayer
     
Set WindowsMediaPlayer1 = CreateObject("new:{6BF52A52-394A-11d3-B153-00C04F79FAA6}")

WindowsMediaPlayer1.currentPlaylist.Clear
     
Set Xwmp = WindowsMediaPlayer1.newMedia("C:graficosarquivoentrada.mp4")
WindowsMediaPlayer1.currentPlaylist.insertItem 0, Xwmp
  
Set Xwmp = WindowsMediaPlayer1.newMedia("C:graficosnovoarquivo.mp4")
WindowsMediaPlayer1.currentPlaylist.insertItem 1, Xwmp

Set Xwmp = WindowsMediaPlayer1.newMedia("C:surfcoreReplaygraficosreplaysaida.mp4")
WindowsMediaPlayer1.currentPlaylist.insertItem 2, Xwmp

WindowsMediaPlayer1.Controls.Play
   
End Sub

Tony

 
Postado : 24/12/2015 4:57 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Se entendi; experimente criando uma playlist com extensão .m3u ( http://gurudoexcel.com/forum/viewtopic.php?f=12&t=1103 )

Sub listaWMPlayer()
'Altere aqui o caminho onde seu arquivo playlist estará
Caminho = ThisWorkbook.Path & Application.PathSeparator
'Altere aqui o nome de sua plalist
Arquivo = "mList.m3u"
Open Caminho & Arquivo For Output As #1

Cpo0 = "#EXTM3U" & vbCrLf

Cpo1 = "#EXTINF:0, arquivoentrada.mp4" & vbCrLf
Cpo2 = "C:graficosarquivoentrada.mp4" & vbCrLf
Cpo3 = "#EXTINF:0, novoarquivo.mp4" & vbCrLf
Cpo4 = "C:graficosnovoarquivo.mp4" & vbCrLf
Cpo5 = "#EXTINF:0, replaysaida.mp4" & vbCrLf
Cpo6 = "C:surfcoreReplaygraficosreplaysaida.mp4"
        
Dados = Cpo0 & Cpo1 & Cpo2 & Cpo3 & Cpo4 & Cpo5 & Cpo6
        
Print #1, Dados
        
Close #1
'Aqui o caminho de seu mplayer
Shell ("C:Program Files (x86)Windows Media Playerwmplayer.exe " & "" & Caminho & Arquivo & ""), vbNormalNoFocus
'Shell ("C:Arquivos de programasWindows Media Playerwmplayer.exe " & "" & Caminho & Arquivo & ""), vbNormalNoFocus
End Sub

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 26/12/2015 9:16 am
 tonyvaz
(@tonyvaz)
Posts: 4
New Member
Topic starter
 

Resolvido

Obrigado

 
Postado : 26/12/2015 9:47 am
Forum Jump:
  Tópico Anterior
Próximo Tópico