GrapeCity.ActiveReports.Export.Excel.v9 アセンブリ > GrapeCity.SpreadBuilder 名前空間 > DDSheet クラス : DisplayGridLines プロパティ |
private void btnSpread_Click(object sender, System.EventArgs e) { //ワークブックの次元を設定し、そのワークブックのSheetsコレクションにシートを追加する GrapeCity.SpreadBuilder.Workbook sb = new GrapeCity.SpreadBuilder.Workbook(); sb.Sheets.AddNew(); //列、行、およびセルのプロパティと値を、必要に応じて設定する sb.Sheets[0].Name = "Customer Call List"; sb.Sheets[0].Columns(0).Width = 2 * 1440; sb.Sheets[0].Columns(1).Width = 1440; sb.Sheets[0].Columns(2).Width = 1440; sb.Sheets[0].Rows(0).Height = 1440/4; //ヘッダー行 sb.Sheets[0].Cell(0,0).SetValue("Company Name"); sb.Sheets[0].Cell(0,0).FontBold = true; sb.Sheets[0].Cell(0,1).SetValue("Contact Name"); sb.Sheets[0].Cell(0,1).FontBold = true; sb.Sheets[0].Cell(0,2).SetValue("Phone"); sb.Sheets[0].Cell(0,2).FontBold = true; //データの最初の行 sb.Sheets[0].Cell(1,0).SetValue("GrapeCity"); sb.Sheets[0].Cell(1,1).SetValue("Mortimer"); sb.Sheets[0].Cell(1,2).SetValue("(614) 895-3142"); //ワークブックをExcelファイルに保存する sb.Save (Application.StartupPath + @"\x.xls"); MessageBox.Show("Your Spreadsheet, " + sb.Sheets[0].Columns(0).OwnerSheet.Name + ", has been saved to " + Application.StartupPath + "\\x.xls"); }
Private Sub btnSpread_Click(sender As Object, e As System.EventArgs) 'ワークブックの次元を設定し、そのワークブックのSheetsコレクションにシートを追加する Dim sb As New GrapeCity.SpreadBuilder.Workbook() sb.Sheets.AddNew() '列、行、およびセルのプロパティと値を、必要に応じて設定する sb.Sheets(0).Name = "Customer Call List" sb.Sheets(0).Columns(0).Width = 2 * 1440 sb.Sheets(0).Columns(1).Width = 1440 sb.Sheets(0).Columns(2).Width = 1440 sb.Sheets(0).Rows(0).Height = 1440 / 4 'ヘッダー行 sb.Sheets(0).Cell(0, 0).SetValue("Company Name") sb.Sheets(0).Cell(0, 0).FontBold = True sb.Sheets(0).Cell(0, 1).SetValue("Contact Name") sb.Sheets(0).Cell(0, 1).FontBold = True sb.Sheets(0).Cell(0, 2).SetValue("Phone") sb.Sheets(0).Cell(0, 2).FontBold = True 'データの最初の行 sb.Sheets(0).Cell(1, 0).SetValue("GrapeCity") sb.Sheets(0).Cell(1, 1).SetValue("Mortimer") sb.Sheets(0).Cell(1, 2).SetValue("(614) 895-3142") 'ワークブックをExcelファイルに保存する sb.Save(Application.StartupPath + "\x.xls") MessageBox.Show("Your Spreadsheet, " + sb.Sheets(0).Columns(0).OwnerSheet.Name + ", has been saved to " + Application.StartupPath + "\x.xls") End Sub