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

2011-08-09

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

対象: このトピックの情報は、Excel 2007 と Excel 2010 のドキュメントレベルのプロジェクトに適用されます。詳細については、「Office アプリケーションおよびプロジェクトタイプ別の使用可能な機能」を参照してください。

使用例

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

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

    ' 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.xlsx")
    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 デザイナーで開いている必要があります。ソリューションに他のプロジェクトはありません。
ExcelWorkbook1 プロジェクトを作成するときに、[新しいプロジェクト] ダイアログボックスの [ソリューションのディレクトリを作成] が選択されていないことを確認してください。

信頼性の高いプログラミング

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

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

参照

次の方法で共有

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

使用例

コードのコンパイル

信頼性の高いプログラミング

参照

処理手順

概念

その他の技術情報

その他のリソース

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