自定义菜单通过.OnAction传递WorkSheetvariables

我一直在使用这篇文章作为指导，直到现在Excel，VBA：如何将多个variables传递给.OnAction

它工作得很好。 不幸的是，我试图通过一个工作表参数这一次，它不工作。 这是一段代码，所以你可以看看。 这是一个右键菜单：

With menu.Controls.Add(Temporary:=True, Type:=msoControlButton, before:=i_menu) .BeginGroup = False ' ' ' ' ' ' .OnAction = "'" & ThisWorkbook.Name & "'!" & "'saute """ & num_doc & """,""" & num_etape & """'" .OnAction = "'" & ThisWorkbook.Name & "'!" & "'saute """ & num_doc & """,""" & num_etape & """,""" & ws & """'" .FaceId = 478 .Caption = "Sauté" .Tag = "commande_custom" End With 

带有多个撇号的行是我的旧行，正在工作。 我在它下面添加了一个工作表参数。 作为参考，saute是一个子类，它的参数是（num_doc作为string，num_etape作为string，ws作为工作表）。 我也试过用ws左右两个引号，都无济于事。 任何人都可以帮助找出如何发送，和/或build议另一种方式发送信息到我的小组（是一个string或其他）？

Answer 1

显然，在摆弄之后，我发现一个工作表并不是一个，而是三个，而是两个引号。 用数字variables和variables取1对引号，取string3.parsing的行：

 .OnAction = "'" & ThisWorkbook.Name & "'!" & "'saute """ & num_doc & """,""" & num_etape & ""","" & ws & ""'"