从 Excel VBA 使用 VLC 播放电影

Question

I'm trying to create an excel vba program/macro that will start a movie stored locally on my hard-drive in vlc player using the vlc activex plug-in (axvlc.dll). I'm able to register vlc so it appears in my Project References. I'm also able to see AXVLC in the "Object Browser". But I can't get any code to work that doesn't give "Run-time error '429': ActiveX component can't create." I'm using Excel 2016 and VBA 7.1.

Sub Button1_Click()
   Dim myVlC As Object
   Set myVlC = CreateObject("AXVLC.VLCPlugin2")
   myVlC.Visible = True
   myVlC.playlist.Add ("test.mkv")
   myVlC.playlist.Play
End Sub

I tried to follow the conversation here... Using VLC player activex within excel vba as a registration-free COM and here... https://social.msdn.microsoft.com/Forums/en-US/baec16d1-e85c-4be9-8751-966bef527756/vlc-player-and-excel-visual-basic-editor?forum=isvvba with no success.

I've created a lot of simple macros, but never anything using ActiveX, or anything really this object oriented before. Any help will be greatly appreciated.

Answer 1

Public Sub Start_VLC()
'its working for me...
    Dim strProgramName As String
    Dim strArgument As String
    Dim strLoc As String

    strLoc = Worksheets("dbFilmes").Cells(2, 6).Value 'film location
    strProgramName = "C:\Program Files\VideoLAN\VLC\vlc.exe" 'vlc location
    strArgument = strLoc 'film location

    Call Shell("""" & strProgramName & """ """ & strArgument & """", vbNormalFocus)
End Sub