是什么导致自定义功能区回调停止工作

问题描述

我开发了一个excel加载项，其中包含具有不同功能的其他按钮。我的初始代码基于“ Ron de Bruin Excel Automation”工具包，效果很好。 （为此我感谢他）。最近，我添加了另一个组和一个按钮，在我的excel（365 Excel版本2009）上运行良好，但在其他具有相同Excel版本的计算机上运行失败。错误是，它找不到任何回调。我消除了所有回调，只需要一个“ onAction”，但错误仍然存​​在。 任何帮助。

<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
  <ribbon>
    <tabs>
      <tab id="CustomTab" label="שמאות מקרקעין" insertAfterMso="TabDeveloper">
        <group id="GroupA" label="מידע נדלן רשות המיסים">
          <button id="aButton01" label="יבא נתונים" onAction="RunMacro" imageMso="GetExternalDataimportClassic" size="large" />
          <button id="aButton02" label="מזג גיליונות" onAction="RunMacro" imageMso="ReviewCombineRevisions" size="large" />
          <button id="aButton03" label="מיין ומחק עמודות" onAction="RunMacro" imageMso="createqueryFromWizard" size="large" />
          <button id="aButton04" label="שווי מר" onAction="RunMacro" imageMso="ConditionalFormattingAboveAverage" size="large" />
          <button id="aButton05" label="התאמת משקל" onAction="RunMacro" imageMso="PageScaletoFitScale" size="large" />
          <button id="aButton06" label="הכנה לדוח שומה" onAction="RunMacro" imageMso="MacroDefault" size="large" />
          <button id="aButton07" label="תמונת הנכס" onAction="RunMacro" imageMso="PictureReflectiongallery" size="large" />
          <button id="aButton08" label="וויסות הורדה אפשרויות" onAction="RunMacro" imageMso="StartTimer" size="large" />
          <button id="aButton09" label="מחיר למשתכן" onAction="RunMacro" imageMso="TentativeAcceptInvitation" size="large" />
        </group>
        <group id="GroupB" label="תכנה">
          <button id="bButton01" label="הוראות שימוש" onAction="RunMacro" imageMso="Help" size="large" />
          <button id="bButton02" label="הזמנת רישיון" onAction="RunMacro" imageMso="GroupOmsInsert" size="large" />
          <button id="bButton03" label="עידכון גירסה" onAction="RunMacro" imageMso="FillUp" size="large" />
          <button id="bButton04" label="נתוני משתמש" onAction="RunMacro" imageMso="ArrangeByAccount" size="large" />
        </group>
        <group id="GroupC" label="נסח טאבו">
          <button id="cButton01" label="PDF" onAction="RunMacro" imageMso="FileEmailAsPdfEmailAttachment" size="large" />
        </group>
      </tab>
    </tabs>
  </ribbon>
</customUI>

{

Sub RunMacro(control As IRibbonControl)
'PURPOSE: Tell each button which macro subroutine to run when clicked

Select Case control.ID
  
  Case "aButton01": Application.Run "Fromribbon"
  Case "aButton02": Application.Run "MergeSheetsmacro"
  Case "aButton03": Application.Run "CleanColumns"
  Case "aButton04": Application.Run "AddAverage"
  Case "aButton05": Application.Run "Weight"
  Case "aButton06": Application.Run "PrepareReport"
  Case "aButton07": Application.Run "ActivateGoogleView"
  Case "aButton08": Application.Run "GrabRegul"
  Case "aButton09": Application.Run "MechirLamishtaken"
  
  Case "bButton01": Application.Run "HelpForm"
  Case "bButton02": Application.Run "LicenseRequest"
  Case "bButton03": Application.Run "UpgradeVersion"
  Case "bButton04": Application.Run "PersonalData"
  
  Case "cButton01": Application.Run "ConvertPDF2Excel"
  
 End Select
    
End Sub

}

enter code here

解决方法

经过长时间的尝试，我发现了导致错误的原因。 64位与.32位Office。 我使用了一些为64 office未正确定义的dll函数。结果，它破坏了代码。