请教各office高手 用vba宏读取outlook文本存入数据库

发布网友 发布时间：2024-10-01 09:34

我来回答

共1个回答

热心网友 时间：2024-10-27 10:39

AddOLEObject 方法

创建 OLE 对象。返回一个 Shape 对象，该对象代表新 OLE 对象。

expression.AddOLEObject(ClassType, FileName, Link, DisplayAsIcon, IconFileName, IconIndex, IconLabel, Left, Top, Width, Height)

expression 必选。该表达式返回 Shapes 对象。

ClassType Variant 类型，可选。（必须指定 ClassType 或 FileName）。该字符串包含要创建的对象的程序标识符。如果指定了 ClassType 参数，则忽略 FileName 和 Link 参数。有关程序标识符的详细信息，请参阅 OLE 程序标识符。

FileName Variant 类型，可选。指定要创建的对象的源文件。如果未指定路径，则使用当前的工作文件夹。必须指定 ClassType 或 FileName 参数，但不能同时指定两者。

Link Variant 类型，可选。如果该值为 True，则建立 OLE 对象与其源文件之间的链接。如果该值为 False，则 OLE 对象成为其源文件的独立副本。如果为 ClassType 指定了值，则本参数必须为 False。默认值为 False。

DisplayAsIcon Variant 类型，可选。如果该值为 True，则 OLE 显示为图标。默认值为 False。

IconFileName StriVariantng 类型，可选。指定要显示的图标所在的文件。

IconIndex Variant 类型，可选。指定 IconFileName 内的图标编号。指定文件中图标的顺序与图标在“更改图标”对话框（选中“显示为图标”复选框后，可通过“对象”对话框访问该对话框）中出现的顺序相对应。文件中的第一个图标的编号为 0（零）。如果给定编号的图标在 IconFileName 所指定的文件中不存在，则使用编号为 1 的图标（即文件中的第二个图标）。默认值为 0（零）。

IconLabel Variant 类型，可选。在图标之下显示的标志（标题）。

Left, Top Variant 类型，可选。相对于文档的左上角，以磅为单位给出新对象的左上角位置。默认值为 0（零）。

Width, Height Variant 类型，可选。以磅为单位给出 OLE 对象的初始尺寸。

示例
本示例向 myDocument 中添加链接的 Word 文档。

Set myDocument = Worksheets(1)
myDocument.Shapes.AddOLEObject Left:=100, Top:=100, _
Width:=200, Height:=300, _
FileName:="c:\my documents\testing.doc", link:=True
本示例向 myDocument 中添加新的命令按钮。

Set myDocument = Worksheets(1)
myDocument.Shapes.AddOLEObject Left:=100, Top:=100, _
Width:=100, Height:=200, _
ClassType:="Forms.CommandButton.1"