如何使用 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 数据库。
示例项目
<script type=text/javascript> loadTOCNode(2, 'moreinformation'); </script>- 在 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;
- 将以下代码添加到 Excel9.h 的开头:
- 重复这些步骤以创建剩余的命名空间: 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 类型库有要传递给这些方法的其他参数。 请参见在"参考"部分的其他信息。
(c) Microsoft Corporation 2000 保留所有权利。 由 Lori B Turner,Microsoft Corporation 供稿。
自动化 Microsoft Office XP 的说明
<script type=text/javascript> loadTOCNode(2, 'references'); </script> 某些方法和属性已更改为 Microsoft Office XP。 有关使用与 Microsof Word 类型库本文所述的示例代码的其他信息,单击下面的文章编号,以查看 Microsoft 知识库中的文章:
Office XP 应用程序具有允许以编程方式访问 VBA 对象模型一个安全选项。 如果此设置是"关"(默认),您可能会收到错误运行上述示例代码。 有关此设置以及可以在如何纠正该错误的其他信息,单击下面的文章编号,以查看 Microsoft 知识库中的文章:
有关其他信息,请单击下面的文章编号,以查看 Microsoft 知识库中相应:
这篇文章中的信息适用于:
- Microsoft Office Word 2007
- Microsoft Office Word 2003
- Microsoft Word 2002 标准版
- Microsoft Word 2000 标准版
- Microsoft Office PowerPoint 2007
- Microsoft Office PowerPoint 2003
- Microsoft PowerPoint 2002 标准版
- Microsoft PowerPoint 2000 标准版
- Microsoft Office Excel 2007
- Microsoft Excel 2002 标准版
- Microsoft Excel 2000 标准版
- Microsoft Office Access 2007
- Microsoft Office Access 2003
- Microsoft Access 2002 标准版
- Microsoft Access 2000 标准版
- Microsoft Visual C++ 6.0 专业版
- Microsoft Foundation Class Library 4.2