方法 : Visual Studio プロジェクト オートメーションを使用してブックにワークシートを追加する

更新 : 2007 年 11 月

この例では、Visual Studio デザイナで開いている既存の Microsoft Office Excel ブックに新規ワークシートを追加します。

使用例

Sub AddWorksheet()
    ' Find the Visual Studio Tools for Office project.
    Dim vstProject As Project = DTE.Solution.Item(1)

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

    ' Activate the Solution Explorer window.
    Dim solExpl As Window = _
        DTE.Windows.Item(Constants.vsWindowKindSolutionExplorer)
    solExpl.Activate()

    ' Find and select the Excel workbook.
    Dim uiHier As UIHierarchy = solExpl.Object

    ' The path follows the pattern
    ' SolutionName\ProjectName\WorkbookName.
    Dim item As UIHierarchyItem = _
        uiHier.GetItem("ExcelWorkbook1\ExcelWorkbook1.xls")
    item.Select(vsUISelectionType.vsUISelectionTypeSelect)

    ' Execute the shortcut menu command to add a new worksheet.
    Dim commandGuid As String = _
        "{AE97F291-448D-4F9F-93A8-B0D2B78475A4}"

    ' Set commandID to 1 to add a new worksheet, 2 to add a new chart.
    Dim commandID As Integer = 1 
    Dim customIn As Object
    Dim customOut As Object
    DTE.Commands.Raise(commandGuid, commandID, customIn, customOut)
End Sub

コードのコンパイル方法

この例の要件は以下のとおりです。

• ExcelWorkbook1 プロジェクト内の ExcelWorkbook1 という名前の Excel ブックが、Visual Studio デザイナで開いている必要があります。ソリューションに他のプロジェクトはありません。

• プロジェクト内のブックの形式は、Excel 97-2003 ブック (.xls) である必要があります。

• ExcelWorkbook1 プロジェクトを作成するときに、[新しいプロジェクト] ダイアログ ボックスの [ソリューションのディレクトリを作成] が選択されていないことを確認してください。

堅牢性の高いプログラム

Visual Studio マクロ統合開発環境 (IDE) でモジュールにコードを追加します。

[オプション] ダイアログ ボックスの [常にソリューションを表示] チェック ボックスをオフにします。このダイアログ ボックスを表示するには、[ツール] メニューの [オプション] をクリックし、[プロジェクトおよびソリューション] フォルダを選択して、[全般] をクリックします。

参照

処理手順

チュートリアル : Visual Studio プロジェクト オートメーションを使用した新しい Office プロジェクトの作成

方法 : Visual Studio プロジェクト オートメーションを使用して Excel のプロパティを変更する

概念

Visual Studio Tools for Office のプロジェクト機能拡張の概要

その他の技術情報

Visual Studio Tools for Office におけるプロジェクト機能拡張