全部显示

在 Visual Basic 中使用 Action 属性创建链接对象或嵌入对象时，使用 SourceDoc 属性可以指定要链接或要嵌入的文件。String 型，可读写。

expression.SourceDoc

expression     必需。返回“应用于”列表中的一个对象的表达式。

说明

对于嵌入对象，请在该属性中输入要作为模板的文件的完整路径和文件名，并将 Action 属性设为 acOLECreateEmbed 。

对于链接对象，则在该属性中输入要创建链接的文件的完整路径和文件名，并将 Action 属性设为 acOLECreateLink。

可以在属性表、宏中或使用 Visual Basic 对该属性进行设置。

注释  在属性表中出现该属性时，只有在宏中或使用 Visual Basic 对 Action 属性进行设置之后，该属性才起作用。

使用 SourceDoc 属性可以指定要链接的文件，使用控件的 SourceItem 属性可以指定文件中的具体数据。如果要创建对整个对象的链接，可以将 SourceItem 属性留空。

创建一个未绑定链接对象时，控件的 SourceItem 属性与其 SourceDoc 属性是连锁设置的。在“窗体”视图、“数据表”视图和“打印预览”中，控件的 SourceItem 属性设置为空字符串 (" ")，控件的 SourceDoc 属性设为链接文件的完整路径加上一个感叹号（!）或反斜杠（\）再加上 SourceItem 属性的设置，如下例所示：

"C:\Work\Qtr1\Revenue.xls!R1C1:R30C15"

示例

下面的示例使用称为 OLE1 的非绑定对象框创建链接的 OLE 对象，当用户单击一个命令按钮时会调整控件大小，以显示对象的全部内容。

Sub Command1_Click

    OLE1.Class = "Excel.Sheet"    ' Set class name.

    ' Specify type of object.

    OLE1.OLETypeAllowed = acOLELinked

    ' Specify source file.

    OLE1.SourceDoc = "C:\Excel\Oletext.xls"

    ' Specify data to create link to.

    OLE1.SourceItem = "R1C1:R5C5"

    ' Create linked object.

    OLE1.Action = acOLECreateLink

    ' Adjust control size.

    OLE1.SizeMode = acOLESizeZoom

End Sub