如何从VBA打印和从Excel到Excel

Question

我一直在尝试编码&，如字符& chr（38），但它保留底层的单词。任何解决方案？

Private Sub createMenu() 
'define the variables 
    Dim mnuDownload1 As Menu 

    'create the menue bar 
    With MenuBars(xlWorksheet) 
     .Reset 
     .Menus.Add "Import", 1 

     'define the menue bar 
     Set mnuDownload1 = MenuBars(xlWorksheet).Menus("Import") 

     'for each defined menu bar at the sub item , the first "" is the name of the item. The second "" is the macro name 
     With mnuDownload1.MenuItems 
     .AddMenu Caption:="P&S" 
     .Item("P&S").MenuItems.Add "Exclude P" & Chr(38) & "S", "changes" 
     End With 
End With 
End Sub 

Answer 1

事实上正常的行为，一周时间Chr(38)伏于下一个字符时忙中menuitems。 A msgbox将显示正常的＆符号。如果要将＆符号用作菜单项中的字符，请使用"Exclude P" & Chr(38) & Chr(38) & "S"或"Exclude P&&S"中的字符两次。