使用 VLC 从 Excel VBA 播放电影

Question

我正在尝试创建一个 Excel VBA 程序/宏，它将使用 vlc activex 插件（axvlc.dll）在 vlc 播放器中启动本地存储在我的硬盘驱动器上的电影。 我能够注册 vlc，因此它会出现在我的项目参考中。 我还可以在“对象浏览器”中看到 AXVLC。 但我无法让任何代码正常工作，但不会给出“运行时错误‘429’：无法创建 ActiveX 组件”。 我使用的是 Excel 2016 和 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

我尝试跟踪这里的对话... 在 excel vba 中使用 VLC 播放器 activex 作为免注册 COM 和这里... https://social.msdn.microsoft.com/Forums/en-US/baec16d1-e85c-4be9-8751-966bef527756/vlc-player-and-excel-visual-basic-editor?forum=isvvba 没有成功。

我创建了很多简单的宏，但从来没有使用 ActiveX 或任何真正面向对象的东西。 任何帮助将不胜感激。

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

Answer 2

感谢您的代码。 它也适合我。