代码之家 › 专栏 › 技术社区 › sergtk

未在Excel中为约会项定义用户定义的类型

ms-office vba

sergtk · 技术社区 · 14 年前

我将示例复制到 http://support.microsoft.com/kb/220595 到Excel中的VBA。

我的代码如下:

Dim olApp As Outlook.Application
Set olApp = CreateObject("Outlook.Application")

Dim olAppt As Outlook.AppointmentItem
Set olAppt = olApp.CreateItem(olAppointmentItem)

我在线路上得到了以下错误 Dim olAppt As Outlook.AppointmentItem : “未定义用户定义类型”。

该如何修复?

我使用MS Office 2003。

2 回复 | 直到 14 年前

GSerg 14 年前

这篇文章列出了四个先决条件步骤。它们列在代码块之前。

你可能忘了遵循第二步, 添加对Outlook对象库的引用 .
唯一的区别是,在VBA中,菜单项位于 Tools 不是 Project .

Fionnuala 14 年前

您需要按其值引用所有常量,因此,作为olappointmentItem=1:

 Set olAppt = olApp.CreateItem(1)

例如,您可以查找值 http://msdn.microsoft.com/en-us/library/aa911356.aspx 或使用Outlook的对象浏览器获取值。

推荐文章

CPS · 当变量值为空时,在另一个变量中赋值

2 年前

xris23 · 通过VBA选择命名范围,让用户直接编辑单元格

2 年前

Stormer · 从Access格式化Excel单元格无效

2 年前

j johns · 通过VBA将ascii art添加到命令提示符

2 年前

BinaryCat · Excel-将单元格转换为具有成对数据的行

2 年前

Waleed · 以下拆分函数的(0)表示什么?

2 年前

judo_ürgens · vlookup和sumif(每个项目的总利润)

2 年前

Louay Alkhawam · 在任意多个列中计算包含子字符串*[橙色]*的行,而不重复计算?

2 年前

smrmodel78 · VBA创建表格未选择正确的范围

2 年前

HouÅ¡tí · 如何检测鼠标释放

2 年前