如何：使用 Visual Studio 项目自动化更改 Excel 属性

此示例更改 Microsoft Office Excel 工作表的属性以重命名工作表。

**适用于：**本主题中的信息适用于 Excel 2007 和 Excel 2010 的文档级项目。有关更多信息，请参见按 Office 应用程序和项目类型提供的功能。

示例

Sub ChangeProperties()
    ' Find the Office project.
    Dim vstProject As Project = DTE.Solution.Item(1)

    ' Find the Excel workbook.
    Dim docItem As ProjectItem = _
        vstProject.ProjectItems.Item("ChangeProperties.xls")

    ' Find and rename the worksheet.
    Dim sheetItem As ProjectItem = _
        docItem.ProjectItems.Item("Sheet1.vb")
    Dim sheetProperties As Properties = sheetItem.Properties
    sheetProperties.Item("VST.FileName").Value = "RenamedSheet.vb"
End Sub

编译代码

此示例有以下要求：

• 有一个以 Visual Basic 编写的 Excel 工作簿文档级项目，名为**“ChangeProperties”**。 该项目必须是解决方案中的第一个项目。

• 项目中工作簿的格式必须是 Excel 97-2003 工作簿 (.xls)。

• 工作簿中一个名为**“Sheet1.vb”**的工作表。

可靠编程

在 Visual Studio 宏集成开发环境 (IDE) 中将代码添加到模块中。

请参见

任务

如何：使用 Visual Studio 项目自动化向工作簿添加工作表

其他资源

Office 项目中的可扩展性

演练：使用 Visual Studio 项目自动化新建 Office 项目

Office 项目中的可扩展性