通过

WorksheetBase.Scripts 属性

  • 项目

获取一个 Microsoft.Office.Core.Scripts 集合，其中包含表示在将工作表另存为网页时该工作表中的脚本块或代码块的 Script 对象。

命名空间：  Microsoft.Office.Tools.Excel
程序集：  Microsoft.Office.Tools.Excel.v4.0.Utilities（在 Microsoft.Office.Tools.Excel.v4.0.Utilities.dll 中）

语法

声明
Public ReadOnly Property Scripts As Scripts

public Scripts Scripts { get; }

属性值

类型：Microsoft.Office.Core.Scripts
Microsoft.Office.Core.Scripts 集合，其中包含表示在将工作表另存为网页时该工作表中的脚本块或代码块的 Script 对象。

示例

下面的代码示例使用 Scripts 属性显示当前工作表中的脚本数，向工作表添加脚本，然后显示更新的脚本数。

此示例针对的是文档级自定义项。

Private Sub AddScript()
    MsgBox("There are " & Me.Scripts.Count & " scripts in this worksheet.")

    Me.Scripts.Add(Me.Range("A1"), _
        Office.MsoScriptLocation.msoScriptLocationInBody, _
        Office.MsoScriptLanguage.msoScriptLanguageVisualBasic, _
        "ScriptOne", String.Empty, "MsgBox ""This is ScriptOne.""")

    MsgBox("There are " & Me.Scripts.Count & " scripts in this worksheet.")
End Sub

private void AddScript()
{
    MessageBox.Show("There are " + this.Scripts.Count +
        " scripts in this worksheet.");

    this.Scripts.Add(this.Range["A1"],
        Office.MsoScriptLocation.msoScriptLocationInBody,
        Office.MsoScriptLanguage.msoScriptLanguageVisualBasic,
        "ScriptOne", String.Empty, @"MsgBox ""This is ScriptOne.""");

    MessageBox.Show("There are " + this.Scripts.Count +
        " scripts in this worksheet.");
}

.NET Framework 安全性

请参见

参考

WorksheetBase 类

Microsoft.Office.Tools.Excel 命名空间