// 新規ワークブックの作成 var workbook = new GrapeCity.Documents.Excel.Workbook(); // 帳票テンプレートを読み込む var templateFile = this.GetResourceStream("xlsx\\Template_WorkWithChart.xlsx"); workbook.Open(templateFile); #region データの初期化 var datasource = new DataTable(); datasource.Columns.Add(new DataColumn("Area", typeof(string))); datasource.Columns.Add(new DataColumn("City", typeof(string))); datasource.Columns.Add(new DataColumn("Category", typeof(string))); datasource.Columns.Add(new DataColumn("Name", typeof(string))); datasource.Columns.Add(new DataColumn("Revenue", typeof(double))); datasource.Rows.Add("北米", "シカゴ", "家電製品", "Bose 785593-0050", 92800); datasource.Rows.Add("北米", "ニューヨーク", "家電製品", "Bose 785593-0050", 92800); datasource.Rows.Add("南米", "サンティアゴ", "家電製品", "Bose 785593-0050", 19550); datasource.Rows.Add("北米", "シカゴ", "家電製品", "Canon EOS 1500D", 98650); datasource.Rows.Add("北米", "ミネソタ", "家電製品", "Canon EOS 1500D", 89110); datasource.Rows.Add("南米", "サンティアゴ", "家電製品", "Canon EOS 1500D", 459000); datasource.Rows.Add("北米", "シカゴ", "家電製品", "Haier 394L 4Star", 367050); datasource.Rows.Add("南米", "キト", "家電製品", "Haier 394L 4Star", 729100); datasource.Rows.Add("南米", "サンティアゴ", "家電製品", "Haier 394L 4Star", 578900); datasource.Rows.Add("北米", "フリーモント", "家電製品", "IFB 6.5 Kg FullyAuto", 904930); datasource.Rows.Add("南米", "ブエノスアイレス", "家電製品", "IFB 6.5 Kg FullyAuto", 673800); datasource.Rows.Add("南米", "メデジン", "家電製品", "IFB 6.5 Kg FullyAuto", 82910); datasource.Rows.Add("北米", "シカゴ", "家電製品", "Mi LED 40inch", 550010); datasource.Rows.Add("北米", "ミネソタ", "家電製品", "Mi LED 40inch", 1784702); datasource.Rows.Add("南米", "サンティアゴ", "家電製品", "Mi LED 40inch", 102905); datasource.Rows.Add("北米", "シカゴ", "家電製品", "Sennheiser HD 4.40-BT", 178100); datasource.Rows.Add("南米", "キト", "家電製品", "Sennheiser HD 4.40-BT", 234459); datasource.Rows.Add("北米", "ミネソタ", "携帯電話", "Iphone XR", 1734621); datasource.Rows.Add("南米", "サンティアゴ", "携帯電話", "Iphone XR", 109300); datasource.Rows.Add("北米", "シカゴ", "携帯電話", "OnePlus 7Pro", 499100); datasource.Rows.Add("南米", "キト", "携帯電話", "OnePlus 7Pro", 215000); datasource.Rows.Add("北米", "ミネソタ", "携帯電話", "Redmi 7", 81650); datasource.Rows.Add("南米", "キト", "携帯電話", "Redmi 7", 276390); datasource.Rows.Add("北米", "ミネソタ", "携帯電話", "Samsung S9", 896250); datasource.Rows.Add("南米", "ブエノスアイレス", "携帯電話", "Samsung S9", 896250); datasource.Rows.Add("南米", "キト", "携帯電話", "Samsung S9", 716520); #endregion // グローバル設定を追加 workbook.Names.Add("TemplateOptions.KeepLineSize", "true"); // データソースを追加 workbook.AddDataSource("ds", datasource); // データを連結して帳票を作成 workbook.ProcessTemplate(); // xlsx ファイルに保存 workbook.Save("TemplateWorkWithChart.xlsx");
' 新規ワークブックの作成 Dim workbook As New Workbook ' 帳票テンプレートを読み込む Dim templateFile = GetResourceStream("xlsx\Template_WorkWithChart.xlsx") workbook.Open(templateFile) #Region "データの初期化" Dim datasource As New DataTable With datasource.Columns .Add(New DataColumn("Area", GetType(String))) .Add(New DataColumn("City", GetType(String))) .Add(New DataColumn("Category", GetType(String))) .Add(New DataColumn("Name", GetType(String))) .Add(New DataColumn("Revenue", GetType(Double))) End With With datasource.Rows .Add("北米", "シカゴ", "家電製品", "Bose 785593-0050", 92800) .Add("北米", "ニューヨーク", "家電製品", "Bose 785593-0050", 92800) .Add("南米", "サンティアゴ", "家電製品", "Bose 785593-0050", 19550) .Add("北米", "シカゴ", "家電製品", "Canon EOS 1500D", 98650) .Add("北米", "ミネソタ", "家電製品", "Canon EOS 1500D", 89110) .Add("南米", "サンティアゴ", "家電製品", "Canon EOS 1500D", 459000) .Add("北米", "シカゴ", "家電製品", "Haier 394L 4Star", 367050) .Add("南米", "キト", "家電製品", "Haier 394L 4Star", 729100) .Add("南米", "サンティアゴ", "家電製品", "Haier 394L 4Star", 578900) .Add("北米", "フリーモント", "家電製品", "IFB 6.5 Kg FullyAuto", 904930) .Add("南米", "ブエノスアイレス", "家電製品", "IFB 6.5 Kg FullyAuto", 673800) .Add("南米", "メデジン", "家電製品", "IFB 6.5 Kg FullyAuto", 82910) .Add("北米", "シカゴ", "家電製品", "Mi LED 40inch", 550010) .Add("北米", "ミネソタ", "家電製品", "Mi LED 40inch", 1784702) .Add("南米", "サンティアゴ", "家電製品", "Mi LED 40inch", 102905) .Add("北米", "シカゴ", "家電製品", "Sennheiser HD 4.40-BT", 178100) .Add("南米", "キト", "家電製品", "Sennheiser HD 4.40-BT", 234459) .Add("北米", "ミネソタ", "携帯電話", "Iphone XR", 1734621) .Add("南米", "サンティアゴ", "携帯電話", "Iphone XR", 109300) .Add("北米", "シカゴ", "携帯電話", "OnePlus 7Pro", 499100) .Add("南米", "キト", "携帯電話", "OnePlus 7Pro", 215000) .Add("北米", "ミネソタ", "携帯電話", "Redmi 7", 81650) .Add("南米", "キト", "携帯電話", "Redmi 7", 276390) .Add("北米", "ミネソタ", "携帯電話", "Samsung S9", 896250) .Add("南米", "ブエノスアイレス", "携帯電話", "Samsung S9", 896250) .Add("南米", "キト", "携帯電話", "Samsung S9", 716520) End With #End Region ' グローバル設定を追加 workbook.Names.Add("TemplateOptions.KeepLineSize", "true") ' データソースを追加 workbook.AddDataSource("ds", datasource) ' データを連結して帳票を作成 workbook.ProcessTemplate() ' xlsx ファイルに保存 workbook.Save("TemplateWorkWithChart.xlsx")