// 新規ワークブックの作成 var workbook = new GrapeCity.Documents.Excel.Workbook(); // 帳票テンプレートを読み込む var templateFile = this.GetResourceStream("xlsx\\Template_SetFillModeOverwrite.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("北米", "シカゴ", "家電製品", "Haier 394L 4Star", 367050); datasource.Rows.Add("南米", "サンティアゴ", "家電製品", "Haier 394L 4Star", 578900); datasource.Rows.Add("南米", "メデジン", "家電製品", "IFB 6.5 Kg FullyAuto", 82910); datasource.Rows.Add("北米", "シカゴ", "家電製品", "Sennheiser HD 4.40-BT", 178100); datasource.Rows.Add("南米", "キト", "携帯電話", "OnePlus 7Pro", 215000); datasource.Rows.Add("北米", "ミネソタ", "携帯電話", "Redmi 7", 81650); datasource.Rows.Add("南米", "キト", "携帯電話", "Samsung S9", 716520); #endregion // グローバル設定を追加 workbook.Names.Add("TemplateOptions.KeepLineSize", "true"); // データソースを追加 workbook.AddDataSource("ds", datasource); // データを連結して帳票を作成 workbook.ProcessTemplate(); // xlsx ファイルに保存 workbook.Save("SetFillModeOverwrite.xlsx");
' 新規ワークブックの作成 Dim workbook As New Workbook ' 帳票テンプレートを読み込む Dim templateFile = GetResourceStream("xlsx\Template_SetFillModeOverwrite.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("北米", "シカゴ", "家電製品", "Haier 394L 4Star", 367050) .Add("南米", "サンティアゴ", "家電製品", "Haier 394L 4Star", 578900) .Add("南米", "メデジン", "家電製品", "IFB 6.5 Kg FullyAuto", 82910) .Add("北米", "シカゴ", "家電製品", "Sennheiser HD 4.40-BT", 178100) .Add("南米", "キト", "携帯電話", "OnePlus 7Pro", 215000) .Add("北米", "ミネソタ", "携帯電話", "Redmi 7", 81650) .Add("南米", "キト", "携帯電話", "Samsung S9", 716520) End With #End Region ' グローバル設定を追加 workbook.Names.Add("TemplateOptions.KeepLineSize", "true") ' データソースを追加 workbook.AddDataSource("ds", datasource) ' データを連結して帳票を作成 workbook.ProcessTemplate() ' xlsx ファイルに保存 workbook.Save("SetFillModeOverwrite.xlsx")