WorkbookBase.LinkInfo 方法
获取链接日期和更新状态。
命名空间： Microsoft.Office.Tools.Excel
程序集： Microsoft.Office.Tools.Excel.v4.0.Utilities（在 Microsoft.Office.Tools.Excel.v4.0.Utilities.dll 中）
语法
声明
Public Function LinkInfo ( _
name As String, _
linkInfoArgument As XlLinkInfo, _
type As Object, _
editionRef As Object _
) As Object
public Object LinkInfo(
string name,
XlLinkInfo linkInfoArgument,
Object type,
Object editionRef
)
参数
- name
类型：System.String
链接的名称。
- linkInfoArgument
类型：Microsoft.Office.Interop.Excel.XlLinkInfo
XlLinkInfo 值之一，指定要返回的信息的类型。
- type
类型：System.Object
XlLinkInfoType 值之一，指定要为之返回信息的链接的类型。
- editionRef
类型：System.Object
如果链接为版本，则此参数将版本引用指定为 R1C1 样式的字符串。如果工作簿中有多个同名的发行者或订户，则需要 EditionRef。
返回值
类型：System.Object
指示关于链接的信息的值。如果 LinkInfoArgument 为 xlUpdateState，则此方法返回 1（如果链接自动更新）或 2（如果链接必须手动更新）。
备注
可选参数
有关可选参数的信息，请参见Office 解决方案中的可选参数。
示例
下面的代码示例获取当前工作簿中的 DDE/OLE 链接的集合，然后使用 LinkInfo 方法确定每个 DDE/OLE 链接是自动更新还是手动更新。
此示例针对的是文档级自定义项。
Private Sub WorkbookLinkInfo()
' Get the collection of DDE/OLE links in the workbook.
Dim Links As Array = _
CType(Me.LinkSources(Excel.XlLink.xlOLELinks), _
Array)
' If there are DDE/OLE links, then display how each link
' updates.
If Links IsNot Nothing Then
Dim i As Integer
For i = 1 To Links.Length
Dim UpdateValue As Integer = Me.LinkInfo(Links(i), _
Excel.XlLinkInfo.xlUpdateState, _
Excel.XlLinkInfoType.xlLinkInfoOLELinks)
If UpdateValue = 1 Then
MsgBox(Links(i) & " link updates automatically.")
ElseIf UpdateValue = 2 Then
MsgBox(Links(i) & " link updates manually.")
End If
Next i
Else
MsgBox("The workbook contains no DDE/OLE links.")
End If
End Sub
private void WorkbookLinkInfo()
{
// Get the collection of DDE/OLE links in the workbook.
Array links = (Array)this.LinkSources(Excel.XlLink.xlOLELinks);
// If there are DDE/OLE links, then display how each link
// updates.
if (links != null)
{
for (int i = 1; i <= links.Length; i++)
{
string linkName = (string)links.GetValue(i);
int updateValue = (int)this.LinkInfo(linkName,
Excel.XlLinkInfo.xlUpdateState,
Excel.XlLinkInfoType.xlLinkInfoOLELinks);
if (updateValue == 1)
{
MessageBox.Show(linkName + " link updates automatically.");
}
else if (updateValue == 2)
{
MessageBox.Show(linkName + " link updates manually.");
}
}
}
else
{
MessageBox.Show("The workbook contains no DDE/OLE links.");
}
}
.NET Framework 安全性
- 对直接调用方的完全信任。此成员不能由部分信任的代码使用。有关更多信息，请参见通过部分受信任的代码使用库。