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

我试着在这里跟踪对话...... Using VLC player activex within excel vba as a registration-free 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

使用Excel VBA中的VLC播放电影

1 个答案: