SourceDoc 屬性

全部顯示

在 Visual Basic 中使用 Action 屬性創(chuàng)建鏈接對象或嵌入對象時，使用 SourceDoc 屬性可以指定要鏈接或要嵌入的文件。String 型，可讀寫。

expression.SourceDoc

expression     必需。返回“應(yīng)用于”列表中的一個對象的表達式。

說明

對于嵌入對象，請在該屬性中輸入要作為模板的文件的完整路徑和文件名，并將 Action 屬性設(shè)為 acOLECreateEmbed 。

對于鏈接對象，則在該屬性中輸入要創(chuàng)建鏈接的文件的完整路徑和文件名，并將 Action 屬性設(shè)為 acOLECreateLink。

可以在屬性表、宏中或使用 Visual Basic 對該屬性進行設(shè)置。

注釋  在屬性表中出現(xiàn)該屬性時，只有在宏中或使用 Visual Basic 對 Action 屬性進行設(shè)置之后，該屬性才起作用。

使用 SourceDoc 屬性可以指定要鏈接的文件，使用控件的 SourceItem 屬性可以指定文件中的具體數(shù)據(jù)。如果要創(chuàng)建對整個對象的鏈接，可以將 SourceItem 屬性留空。

創(chuàng)建一個未綁定鏈接對象時，控件的 SourceItem 屬性與其 SourceDoc 屬性是連鎖設(shè)置的。在“窗體”視圖、“數(shù)據(jù)表”視圖和“打印預(yù)覽”中，控件的 SourceItem 屬性設(shè)置為空字符串 (" ")，控件的 SourceDoc 屬性設(shè)為鏈接文件的完整路徑加上一個感嘆號（!）或反斜杠（\）再加上 SourceItem 屬性的設(shè)置，如下例所示：

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

示例

下面的示例使用稱為 OLE1 的非綁定對象框創(chuàng)建鏈接的 OLE 對象，當用戶單擊一個命令按鈕時會調(diào)整控件大小，以顯示對象的全部內(nèi)容。

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