// 新規ワークブックの作成 var workbook = new GrapeCity.Documents.Excel.Workbook(); workbook.Worksheets[0].Range["A1"].Value = "総売上高"; // ワークブック全体にテーブル数式を設定 workbook.Worksheets[0].Range["B1"].Formula = "=SUM('[test.xlsx]'!Table1[売上高])"; workbook.Worksheets[0].Range["B1"].NumberFormat = "$#,##0.00"; workbook.Worksheets[0].Range["A:B"].ColumnWidth = 12; // 外部ワークブックのインスタンスとして新しいワークブックを作成 GrapeCity.Documents.Excel.Workbook workbook2 = new GrapeCity.Documents.Excel.Workbook(); workbook2.ActiveSheet.Range["A1:C6"].Value = new object[,] { {"商品", "分類", "売上高"}, {"りんご", "果物", 25000}, {"ぶどう", "果物", 30000}, {"にんじん", "野菜", 28000}, {"いちご", "果物", 50000}, {"たまねぎ", "野菜", 23000} }; workbook2.ActiveSheet.Tables.Add(workbook2.ActiveSheet.Range["A1:C6"], true); workbook2.ActiveSheet.Range["C2:C6"].NumberFormat = "$#,##0.00"; workbook2.ActiveSheet.Range["A:C"].ColumnWidthInPixel = 100; // 外部ワークブック データのキャッシュを更新 workbook.UpdateExcelLink("test.xlsx", workbook2); // Excelで正しい結果を確認するには、workbook2を対応するディレクトリに保存する // workbook2.Save("test.xlsx"); // xlsx ファイルに保存 workbook.Save("CrossWorkbookTableFormula.xlsx");
' 新規ワークブックの作成 Dim workbook As New Workbook workbook.Worksheets(0).Range("A1").Value = "総売上高" ' ワークブック全体にテーブル数式を設定 workbook.Worksheets(0).Range("B1").Formula = "=SUM('[test.xlsx]'!Table1[売上高])" workbook.Worksheets(0).Range("B1").NumberFormat = "$#,##0.00" workbook.Worksheets(0).Range("A:B").ColumnWidth = 12 ' 外部ワークブックのインスタンスとして新しいワークブックを作成 Dim workbook2 As New Excel.Workbook Dim data As Object(,) = { {"商品", "分類", "売上高"}, {"りんご", "果物", 25000}, {"ぶどう", "果物", 30000}, {"にんじん", "野菜", 28000}, {"いちご", "果物", 50000}, {"たまねぎ", "野菜", 23000} } workbook2.ActiveSheet.Range("A1:C6").Value = data workbook2.ActiveSheet.Tables.Add(workbook2.ActiveSheet.Range("A1:C6"), True) workbook2.ActiveSheet.Range("C2:C6").NumberFormat = "$#,##0.00" workbook2.ActiveSheet.Range("A:C").ColumnWidthInPixel = 100 ' 外部ワークブック データのキャッシュを更新 workbook.UpdateExcelLink("test.xlsx", workbook2) ' Excelで正しい結果を確認するには、workbook2を対応するディレクトリに保存する ' workbook2.Save("test.xlsx") ' xlsx ファイルに保存 workbook.Save("CrossWorkbookTableFormula.xlsx")