C++如何调用VBA？

2014-05-26 11:31:08 811 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

VBA调用C/C++ DLL 在VBA开发过程中，为了能够使用系统已经提供的函数，或已经用C++语言开发的功能，本文对VBA调用C++ DLL进行了总结。 1. 函数声明 Function prototype: DWORD WINAPI GetCurrentDirectory( __i 阅读详情

Microsoft Office 的开发，微软提供了VBA的宏语言和相关文档，但是C++如何VBA啊？有为没有推荐的相关资料啊？比如要在C++程序中实现ppt、word、excel转pdf的功能。本人是Office开发方面的新手，只会C++和Java，VB不太懂，求指教！

...全文

VBA,VB 6.0计算数据类型占用内存大小需求背景 C、C++和.net语言都提供了计算机变量内存大小的函数即SizeOf,该函数能正确返回数据类型占用的内存字节数，但是VBA、VB6.0没有直接提供。特别在调用Windows API的时候，该功能显示得特别重要。实现思路 VBA、VB6.0虽然没有提供指针运算符，但提供了几个获取变量指针（内存地址）的值的函数。 public function VarPtr(ptr as Any) as longPtr '获取变量自身的内存地址 public function StrPtr(ptr as A 阅读详情

陌尘(MoChen)

领域专家: 系统编程技术领域

C++ 语言 65,214 成员 250,514 内容

+ 关注 + 加入社区

切换为时间正序

赵4老师 2014-05-26

打赏
举报

在Office 2003中开始记录宏，手动完成所需功能，结束记录宏，按Alt+F11键，查看刚才记录的宏对应的VBA代码。 1.在VC中新建一控制台程序，选支持MFC（当然，你也可以不选择支持MFC的，不过会很麻烦） 2.按CTRL+W调出MFC ClassWizard，Add Class->From a type library,选择你的word的类型库 (例如我的是word2003，安装在e盘，我的路径是"e:\edittools\microsoft office\office11\msword.olb"), 选择完毕后，在弹出的窗口中选择要让classwizard生成的包装类，在本例中要用到 _Application, Documents, _Document, Range 这四个类，选中他们后按OK 3.进入你的main函数所在的cpp文件，加入头文件引用 #include "msword.h" //引用刚才classwizard生成的idispatch包装类 4.加入代码

// console_word.cpp : Defines the entry point for the console application.
//

#include "stdafx.h"
#include "console_word.h"
#include "msword.h"
#ifdef _DEBUG
#define new DEBUG_NEW
#undef THIS_FILE
static char THIS_FILE[] = __FILE__;
#endif

/////////////////////////////////////////////////////////////////////////////
// The one and only application object

CWinApp theApp;

int _tmain(int argc, TCHAR* argv[], TCHAR* envp[])
{
    int nRetCode = 0;

    // initialize MFC and print and error on failure
    if (!AfxWinInit(::GetModuleHandle(NULL), NULL, ::GetCommandLine(), 0))
    {
        // TODO: change error code to suit your needs
        printf(_T("Fatal Error: MFC initialization failed!\n"));
        nRetCode = 1;
    }
    else
    {
        // TODO: code your application's behavior here.
        if  (CoInitialize(NULL)  !=  S_OK)
        {
            AfxMessageBox("初始化COM支持库失败!");
            return  -1;
        }

        _Application  wordApp;
        Documents     docs;
        _Document     doc;
        Range         aRange;
        COleVariant   vTrue((short)TRUE), vFalse((short)FALSE), vOpt((long)DISP_E_PARAMNOTFOUND, VT_ERROR);
        CString       txt;

        wordApp.CreateDispatch("Word.Application",NULL);
        wordApp.SetVisible(FALSE);
            docs=wordApp.GetDocuments();
                doc=docs.Open(COleVariant("c:\\new\\测试.doc"),vFalse,vTrue,vFalse,vOpt,vOpt,vOpt,vOpt,vOpt,vOpt,vOpt,vOpt,vOpt,vOpt,vOpt,vOpt);
                    aRange=doc.Range(vOpt,vOpt);
                        txt=aRange.GetText();
                        AfxMessageBox(txt);//这里GetText得到的就是word文件的纯文本了,你可以将其写到txt文件中
                        printf("[%s]\n",txt.GetBuffer(txt.GetLength()));//里面的换行不是\r\n而是\r，所以需要输出重定向到文本文件看结果。
                    aRange.ReleaseDispatch();
                doc.Close(vOpt,vOpt,vOpt);
                doc.ReleaseDispatch();
            docs.ReleaseDispatch();
        wordApp.Quit(vOpt,vOpt,vOpt);
        wordApp.ReleaseDispatch();

        CoUninitialize();
    }

    return nRetCode;
}

C++如何调用VBA？

相关推荐