// 新規ワークブックの作成 var workbook = new GrapeCity.Documents.Excel.Workbook(); IWorksheet worksheet = workbook.Worksheets[0]; object[,] data = new object[,]{ {"Luigi", "New York", new DateTime(1998, 4, 7), "Blue", 67, 165}, {"Richard", "New York", new DateTime(1968, 6, 8), "Blue", 67, 165}, {"Nia", "New York", new DateTime(1972, 7, 3), "Brown", 62, 134}, {"Jared", "New York", new DateTime(1964, 3, 2), "Hazel", 72, 180}, {"Natalie", "Washington", new DateTime(1972, 8, 8), "Blue", 66, 163}, {"Damon", "Washington", new DateTime(1986, 2, 2), "Hazel", 76, 176}, {"Angela", "Washington", new DateTime(1993, 2, 15), "Brown", 68, 145} }; worksheet.Range["A1:F7"].Value = data; worksheet.Range["A:F"].ColumnWidth = 15; // 体重が72未満を抽出 worksheet.Range["A1:F7"].AutoFilter(true, 4, "<72"); // SSJSON ファイルストリームの作成 FileStream outputStream = new FileStream("HeadersAsData.ssjson", FileMode.Create); workbook.ToJson(outputStream); // SSJSON ストリームを閉じる outputStream.Close();
' 新規ワークブックの作成 Dim workbook As New Workbook Dim worksheet As IWorksheet = workbook.Worksheets(0) Dim data As Object(,) = { {"Luigi", "New York", #4/7/1998#, "Blue", 67, 165}, {"Richard", "New York", #6/8/1968#, "Blue", 67, 165}, {"Nia", "New York", #7/3/1972#, "Brown", 62, 134}, {"Jared", "New York", #3/2/1964#, "Hazel", 72, 180}, {"Natalie", "Washington", #8/8/1972#, "Blue", 66, 163}, {"Damon", "Washington", #2/2/1986#, "Hazel", 76, 176}, {"Angela", "Washington", #2/15/1993#, "Brown", 68, 145} } worksheet.Range("A1:F7").Value = data worksheet.Range("A:F").ColumnWidth = 15 ' 体重が72未満を抽出 worksheet.Range("A1:F7").AutoFilter(True, 4, "<72") ' SSJSON ファイルストリームの作成 Using outputStream = File.Create("HeadersAsData.ssjson") workbook.ToJson(outputStream) End Using