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

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

VBA创建菜单项打开文件？

2 个答案: