Access VBA教程:SourceDoc属性

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

expression.SourceDoc

expression   必需。返回“Applies To”列表中的一个对象的表达式。

说明

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

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

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

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

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

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


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

VBA示例

下面的示例使用称为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

上页:Access VBA教程:SourceConnectStr、SourceDatabase属性 下页:Access VBA教程:SourceItem属性

Access VBA教程:SourceDoc属性

Access VBA教程:SourceItem属性 Access VBA教程:SourceObject属性
Access VBA教程:SpecialEffect属性 Access VBA教程:StartupForm属性
Access VBA教程:StartupMenuBar属性 Access VBA教程:StartupShortcutMenuBar属性
Access VBA教程:StartupShowDBWindow属性 Access VBA教程:StartupShowStatusBar属性
Access VBA教程:StatusBarText属性 Access VBA教程:Style属性
Access VBA教程:SubAddress属性 Access VBA教程:SubdatasheetExpanded属性
Access VBA教程:SubdatasheetHeight属性 Access VBA教程:SubdatasheetName属性
Access VBA教程:TabFixedHeight属性 Access VBA教程:TabFixedWidth属性
Access VBA教程:TabIndex属性 Access VBA教程:TabStop属性
Access VBA教程:Tag属性 Access VBA教程:TargetBrowser属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号