目前位置: VCer资源中心 >>> VCer论坛 >>> 技术问答

[本帖已阅读1697次 分值2 回复0次] 张贴资源 发回信箱 控制面板

关于office自动化编程的一个问题

提供者:vcnovice 张贴时间:2004-06-20 16:19:03.0 出处:vcer.net 作者:不祥

关于office自动化编程的一个问题(2004-06-20 16:19:03.0)


(hci)


 
级别: VCer小兵
头衔: VCer会员

经验: 109
作品: 7
分会: 华北分会
注册: 2004-05-29 10:50:11.0
登录: 2004-06-20 16:15:24.0

在office 2000和 office 97有如下下引用

请问在office xp下调用哪些呢?

#define Uses_MSO2000

#ifdef Uses_MSO2000

// for MS Office 2000

#import "C:\Program Files\Microsoft Office\Office\MSO9.DLL"

#import "C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6EXT.OLB"

#import "C:\Program Files\Microsoft Office\Office\MSWORD9.OLB" \

        rename("ExitWindows","_ExitWindows")

#import "C:\Program Files\Microsoft Office\Office\EXCEL9.OLB" \

        rename("DialogBox","_DialogBox") \

        rename("RGB","_RGB") \

        exclude("IFont","IPicture")

#import "C:\Program Files\Common Files\Microsoft Shared\DAO\DAO360.DLL" \

        rename("EOF","EndOfFile") rename("BOF","BegOfFile")

#import "C:\Program Files\Microsoft Office\Office\MSACC9.OLB"

#else

// for MS Office 97

#import "C:\Program Files\Microsoft Office\Office\MSO97.DLL"

#import "C:\Program Files\Common Files\Microsoft Shared\VBA\VBEEXT1.OLB"

#import "C:\Program Files\Microsoft Office\Office\MSWORD8.OLB" \

        rename("ExitWindows","_ExitWindows")

#import "C:\Program Files\Microsoft Office\Office\EXCEL8.OLB" \

        rename("DialogBox","_DialogBox") \

        rename("RGB","_RGB") \

        exclude("IFont","IPicture")

#import "C:\Program Files\Common Files\Microsoft Shared\DAO\DAO350.DLL" \

        rename("EOF","EndOfFile")

        rename("BOF","BegOfFile")

#import "C:\Program Files\Microsoft Office\Office\MSACC8.OLB"

#endif

注:转载文章需注明来源:VCer.net 文章地址:http://vcer.net/2555.html

  如果你觉得VCer.net不错,而且你愿意为VCer.net捐赠一元钱,那么点击后面的捐赠按钮吧:) vcer.net捐赠

[回复该贴] [加入个人书签]