excel - VBA创建菜单项以打开文件？

Question

我创建了自己的菜单，其中列出了文件。我希望能够单击文件名并调用 workboo.open。我该如何修改：

Set cbButton = vParentMenu.Controls.Add(Type:=msoControlButton)
cbButton.Caption = strSubMenuCaption
If strButtonOnAction <> "" Then cbButton.OnAction = 

为达到这个？我知道我需要添加某种操作字符串，该字符串调用 workbook.open 并引用文件路径（我确实有）。

Answer 1

你会想要这样的东西：

cbButton.OnAction = "'<FunctionName> <Parametervalue>'"

如果您对函数使用字符串参数，则需要将值括在双引号中：

cbButton.OnAction = "'<FunctionName> """<Parametervalue>"""'"

例如：

cbButton.OnAction = "'OpenWB """c:\test.xls"""'"

Answer 2

你可以试试这样的..

Set cbButton = vParentMenu.Controls.Add(Type:=msoControlButton)
cbButton.Caption = strSubMenuCaption
If strButtonOnAction <> "" Then 
    With cbButton
        .OnAction = "'OpenWorkbook " & strButtonOnAction & "'"
    End With
End If

Sub OpenWorkbook(strFilePath)
    Set objExcel = CreateObject("Excel.Application")
    Set objWorkbook = objExcel.Workbooks.Open(strFilePath)
End Sub

请注意，我自己没有测试过这个......