access中宏操作里if查找怎么写

转载

我是数据分析师 2024-07-21 10:26:13

文章标签 access中宏操作里if查找怎么写 office mfc 文档 microsoft 文章分类 架构后端开发

如何使用 MFC 检索 Office 文档中的宏名称的列表

本文介绍如何创建 MFC 自动化客户端检索 for Applications (VBA) 的 Visual Basic 列表的示例从 Microsoft Office 文档的宏（ Sub 和 Function 过程）。

要获取 Microsoft Excel 中的 VBA 过程的列表工作簿、 Microsoft PowerPoint 演示文稿或 Microsoft Word 文档，可以使用类和函数公开由 Microsoft Visual Basic for Applications 扩展性库与应用程序对象模型。当打开文档时使用自动化时，可以访问循环访问集合 VBComponents 文档的 VBProject 对象； VBComponents 集合包含标准模块，以及在项目中包含的类模块。后对 VBComponent 引用可以检索其属性（包括代码），并需要操作该组件。

请注意 特殊的考虑，Microsoft Access： Microsoft Access 是一个例外，在 Visual Basic for Applications 扩展性库不需要访问数据库项目中的代码。 Microsoft Access 对象模型公开方法或直接访问代码模块允许您的属性。有关检索或操作与在 Access 数据库模块代码警告之一是必须先打开该模块。

以下步骤演示如何创建一个 MFC 自动化客户端从 Office 文档中检索的 Sub 和 Function 过程列表。示例代码阐释如何使用 Office 应用程序类型库和 Visual Basic for Applications 扩展性库的类包装；该示例还提供了特殊的案例考虑，对于 Microsoft Access 数据库。

示例项目

在 Visual C++，创建命名 ListMacros 一个新的 MFC AppWizard EXE 项目。选择 对话框基于 作为类型，然后接受所有其他默认值。
在视图菜单中上, 单击 ClassWizard 。在 ClassWizard 对话框单击 自动化 选项卡，然后执行下列操作：

单击 添加类 并选择 从类型库 。
浏览到找到 Microsoft Visual Basic for Applications Extensibility 类型库 (VBE6EXT.olb)，，然后单击打开。

请注意 VBE6EXT.olb 在默认文件夹是 C:/Program Files /Common Files /Microsoft Shared/VBA/VBA6。
在类型库中选择所有类，然后单击确定以创建类包装。

重复上述步骤创建 Microsoft Excel、 Microsoft PowerPoint、 Microsoft Access 和 Microsoft Word 类型库的类包装。选择正确的类型库在自动化的 Office 的版本。请参见本文以获取有关查找正确的类型库的信息后面，"参考一节。
若要避免类名称冲突，请请为每个类包装通过执行以下添加命名空间：

将以下代码添加到 Excel9.h 的开头：
namespace Excel{
，然后添加结转大括号 (}) 文件的末尾。
将以下代码添加到显示"# endif"（不带引号）的行下方的 Excel9.cpp，开头之前在第一个类的定义：
using namespace Excel;

重复这些步骤以创建剩余的命名空间： MSWord 、 PPT 、 MSAccess 和 VBAExt 。
单击 ResourceView 并打开 IDD_LISTMACROS_DIALOG 对话框。删除所有控件，对话框上绘制其替换为以下控件：

Control Type     Properties
   ------------     -------------------------

   Button           ID:           ID_Run
                    Caption:      Run

   Edit Box         ID:           IDC_FILENAME

   List Box         ID:           IDC_MACROLIST
                    Use Tabstops: Checked

在视图菜单上单击 ClassWizard ，选择 成员变量 选项卡，在 类名称 下拉列表框中中, 选择 CListMacrosDlg ，然后执行下列操作：

在控件列表上双击 IDC_FILENAME 。在 添加成员变量 对话框提供在变量名 m_sFilename ，然后单击确定。
在控件列表上双击 IDC_MACROLIST 。在 添加成员变量 对话框提供变量名 m_MacroList 、控制，更改该类别，然后单击确定。

单击确定以关闭 ClassWizard 对话框。
双击运行按钮在对话框。单击要添加成员函数 OnRun 确定。将以下代码添加到 CListMacrosDlg::OnRun() ：

void CListMacrosDlg::OnRun() 
{
   USES_CONVERSION;

   UpdateData(TRUE);


   COleVariant vOpt(DISP_E_PARAMNOTFOUND, VT_ERROR); //for Optional args

   //Determine the PROGID for the filename supplied
   CLSID clsid;
   HRESULT hr = GetClassFile(T2OLE(m_sFilename), &clsid);
   if (FAILED(hr))
   {
      CString sMsg;
      sMsg.Format("Unable to determine progid for file: %s", m_sFilename);
      AfxMessageBox(sMsg);
      return;
   }

   LPOLESTR lpOleStr;
   ProgIDFromCLSID(clsid, &lpOleStr);
   CString sProgID = CString(lpOleStr);
   sProgID.MakeUpper();
   
   //If the version independent progid is EXCEL.SHEET, WORD.DOCUMENT, or
   //POWERPOINT.SHOW, then open the file in its associated application.
   //Once the file is open, call GetMacros to place the list of macro
   //names in the list box.

   if(sProgID.Find("EXCEL.SHEET",0)>=0)  //Microsoft Excel Workbook
   {
      Excel::_Application oApp;
      oApp.CreateDispatch("Excel.Application");
      Excel::Workbooks oBooks = oApp.GetWorkbooks();
      Excel::_Workbook oBook = oBooks.Open(m_sFilename, vOpt, vOpt, vOpt, 
                                           vOpt, vOpt, vOpt, vOpt, vOpt, 
                                           vOpt, vOpt, vOpt, vOpt);
      LPDISPATCH lpDisp = oBook.GetVBProject();
      GetMacros(lpDisp);
      oBook.Close(COleVariant((short)FALSE), vOpt, vOpt);
      oApp.Quit();
   }

   else if(sProgID.Find("WORD.DOCUMENT",0)>=0)    //Microsoft Word Document
   {
      MSWord::_Application oApp;
      oApp.CreateDispatch("Word.Application");
      MSWord::Documents oDocs = oApp.GetDocuments();
      MSWord::_Document oDoc = oDocs.Open(COleVariant(m_sFilename), vOpt,
                                          vOpt, vOpt, vOpt, vOpt, vOpt, 
                                          vOpt, vOpt, vOpt, vOpt, vOpt);
	   // For Office Word 2003 and Office Word 2007, 16 parameters are required.
    /*  MSWord::_Document oDoc = oDocs.Open(COleVariant(m_sFilename), vOpt,
                                          vOpt, vOpt, vOpt, vOpt, vOpt, 
                                          vOpt, vOpt, vOpt, vOpt, vOpt,
		                              								  vOpt,vOpt,vOpt,vOpt);
    */
      LPDISPATCH lpDisp = oDoc.GetVBProject();
      GetMacros(lpDisp);
      oDoc.Close(COleVariant((short)FALSE), vOpt, vOpt);
      oApp.Quit(vOpt, vOpt, vOpt);
   }

   else if(sProgID.Find("POWERPOINT.SHOW",0)>=0)  //Microsoft PowerPoint

                                                  //Presentation
   {
      PPT::_Application oApp;
      oApp.CreateDispatch("Powerpoint.Application");
      PPT::Presentations oAllPres = oApp.GetPresentations();
      PPT::_Presentation oPres = oAllPres.Open(m_sFilename, 0, 0, 0);
      LPDISPATCH lpDisp = oPres.GetVBProject();
      GetMacros(lpDisp);
      oPres.Close();
      oApp.Quit();
   }

   else if(sProgID.Find("ACCESS.APPLICATION", 0)>=0)  //Microsoft Access DB

   {   //** Special Consideration for Access Code Project

       MSAccess::_Application oApp;
       oApp.CreateDispatch("Access.Application");
       MSAccess::DoCmd oDoCmd = oApp.GetDoCmd();
       oApp.OpenCurrentDatabase(m_sFilename, FALSE);
       // For Office Access 2003 and Office Access 2007, 3 parameters are required.
       /*oApp.OpenCurrentDatabase(m_sFilename, FALSE,NULL);*/

       MSAccess::_CurrentProject oProj = oApp.GetCurrentProject();
       MSAccess::AllObjects oObjs = oProj.GetAllModules();

       CString sModName, sProcName, sItem;
       long lProcKind = 0;
       for(long i=0;i<=oObjs.GetCount()-1;i++)
       {
          MSAccess::AccessObject oObj = oObjs.GetItem(COleVariant(i));
          sModName = oObj.GetName();
          //Module must be open:
          oDoCmd.OpenModule(COleVariant(sModName), vOpt);
          MSAccess::Modules oMods = oApp.GetModules();
          MSAccess::Module oMod = oMods.GetItem(COleVariant(sModName));
          long lLineCount = oMod.GetCountOfLines();
          long j=1;
          while(j<lLineCount)
          {
             sProcName = oMod.GetProcOfLine(j, &lProcKind);
             if(!sProcName.IsEmpty()){
                sItem.Format("%s/t/t%s", sModName, sProcName);
                m_MacroList.AddString(sItem);
                j = j + oMod.GetProcCountLines(sProcName, lProcKind); }
             else {
                j++;    }
          }
       }

       oApp.Quit(0);
   }

   else  //Other...
   {
      CString sMsg;
      sMsg.Format("Unable to extract macro names for files with progid %s",
                  sProgID);
      AfxMessageBox(sMsg);
   }

}

添加以下包括 ListMacrosDlg.cpp：

#include <afxpriv.h>
#include "Excel9.h" // for Office Excel 2003 and later, use #include "Excel.h"
#include "MSWord9.h" // for Office Word 2003 and later, use #include "MSWord.h"
#include "MSPPT9.h"  // for Office Powerpoint 2003 and later, use #include "msppt.h"
#include "MSAcc9.h" // for Office Access 2003 and later, use #include "msacc.h"
#include "VBE6Ext.h"

单击 ClassView 选项 Right-click CListMacrosDlg 并选择 添加成员函数 。提供 void ， 函数类型 ， GetMacros(LPDISPATCH lpDisp) 为 函数声明 中，选择专用，然后单击确定。将以下代码添加 CListMacrosDlg::GetMacros ：

void CListMacrosDlg::GetMacros(LPDISPATCH lpDisp)
{
   long i, j; //counters

   //Clear the list box and set the tab stops
   j=m_MacroList.GetCount();
   for (i=j-1;i>=0;i--){
      m_MacroList.DeleteString(i);}
   m_MacroList.SetTabStops(50);

   //Iterate the collection of components in the VBA project
   //referenced by lpDisp.
   VBAExt::_VBProject oVBProj;
   oVBProj.AttachDispatch(lpDisp, TRUE);
   VBAExt::_VBComponents oVBComps = oVBProj.GetVBComponents();
   long lCompCount = oVBComps.GetCount();
   long lLineCount;
   long lProcKind = 0;
   VBAExt::_VBComponent oVBComp;
   VBAExt::_CodeModule oCode;

   for(i=1; i<=lCompCount; i++)
   {
      oVBComp = oVBComps.Item(COleVariant(i));
      oCode = oVBComp.GetCodeModule();

      //If the component contains any lines of code, then
      //retrieve the name of each procedure (Functions and Subs)
      //add it to the list box along with the module name.
      CString sProcName, sItem;
      lLineCount = oCode.GetCountOfLines();
      j=1;
      while(j<lLineCount)
      {
         sProcName = oCode.GetProcOfLine(j, &lProcKind);
         if(!sProcName.IsEmpty()){
            sItem.Format("%s/t/t%s", oVBComp.GetName(), sProcName);
            m_MacroList.AddString(sItem);
            j = j + oCode.GetProcCountLines(sProcName, lProcKind); }
         else {
            j++;    }
      }
   }
}

将下面的代码行添加到在 ListMacros.cpp CListMacrosApp::InitInstance() 的开头：

AfxOleInit();

生成项目并运行它。选择一个文件（.xls、.doc、.mdb 或.ppt）包含宏，然后单击运行。宏的列表将显示在列表框。

其他注意事项

此示例所示的代码检索仅的 Sub 和 Function 过程。如果想要检索 Property Get 、 Property Let ，或 Property Set 过程，您必须修改代码。 ProcOfLine 的第二个参数可以是下列之一（该代码示例使用它等效于 vbext_pk_Proc 的 0）：

Constant        Value     Description
-------------   -----     ------------------------------------------------
vbext_pk_Get    3         Procedure that returns the value of a property 
vbext_pk_Let    1         Procedure that assigns a value to a property

vbext_pk_Set    2         Procedure that sets a reference to an object 
vbext_pk_Proc   0         All procedures other than property procedures

如果 VBA 模块受密码保护，将显示要求输入密码，对话框。如果您不知道密码，程序不能列出这些过程。
打开（和 OpenCurrentDatabase ) 方法，上述示例中的用于 Office 2000 类型库。 Office XP 类型库有要传递给这些方法的其他参数。请参见在"参考"部分的其他信息。