//create a new workbook var workbook = new GrapeCity.Documents.Excel.Workbook(); IWorksheet worksheet = workbook.Worksheets[0]; worksheet.Range["B2:E8"].Value = new object[,] { { "Number", "Text", "Logical","Mix" }, { 100, "Apple", true, 100.5 }, { 200, "Banana", true, -12.34 }, { 300, "Cherry", false, "Text123" }, { 400, "\"Hello\"", true, 1000000 }, { 500, "Grape", false, "Special@Symbol" }, { 600, "Tom", true, 1.23e2 } }; worksheet.Tables.Add(worksheet.Range["B2:E8"], true); worksheet.Range["G1"].Value = "Concise format"; worksheet.Range["G2"].Value = "[format] = 0"; worksheet.Range["G7"].Value = "Strict format"; worksheet.Range["G8"].Value = "[format] = 1"; worksheet.Range["H1"].Value = "Formula"; worksheet.Range["I1"].Value = "Result"; worksheet.Range["H2"].Formula2 = "=FORMULATEXT(I2)"; worksheet.Range["I2"].Formula2 = "=ARRAYTOTEXT(B3:B8, 0)"; worksheet.Range["H3"].Formula2 = "=FORMULATEXT(I3)"; worksheet.Range["I3"].Formula2 = "=ARRAYTOTEXT(C3:C8, 0)"; worksheet.Range["H4"].Formula2 = "=FORMULATEXT(I4)"; worksheet.Range["I4"].Formula2 = "=ARRAYTOTEXT(D3:D8, 0)"; worksheet.Range["H5"].Formula2 = "=FORMULATEXT(I5)"; worksheet.Range["I5"].Formula2 = "=ARRAYTOTEXT(E3:E8, 0)"; worksheet.Range["H7"].Value = "Formula"; worksheet.Range["I7"].Value = "Result"; worksheet.Range["H8"].Formula2 = "=FORMULATEXT(I8)"; worksheet.Range["I8"].Formula2 = "=ARRAYTOTEXT(B3:B8, 1)"; worksheet.Range["H9"].Formula2 = "=FORMULATEXT(I9)"; worksheet.Range["I9"].Formula2 = "=ARRAYTOTEXT(C3:C8, 1)"; worksheet.Range["H10"].Formula2 = "=FORMULATEXT(I10)"; worksheet.Range["I10"].Formula2 = "=ARRAYTOTEXT(D3:D8, 1)"; worksheet.Range["H11"].Formula2 = "=FORMULATEXT(I11)"; worksheet.Range["I11"].Formula2 = "=ARRAYTOTEXT(E3:E8, 1)"; worksheet.Columns.AutoFit(); // Save to an excel file workbook.Save("ArrayToTextFunction.xlsx");
' Create a new Workbook Dim workbook As New Workbook Dim worksheet As IWorksheet = workbook.Worksheets(0) worksheet.Range("B2:E8").Value = New Object(,) { {"Number", "Text", "Logical", "Mix"}, {100, "Apple", True, 100.5}, {200, "Banana", True, -12.34}, {300, "Cherry", False, "Text123"}, {400, """Hello""", True, 1000000}, {500, "Grape", False, "Special@Symbol"}, {600, "Tom", True, 123.0} } worksheet.Tables.Add(worksheet.Range("B2:E8"), True) worksheet.Range("G1").Value = "Concise format" worksheet.Range("G2").Value = "[format] = 0" worksheet.Range("G7").Value = "Strict format" worksheet.Range("G8").Value = "[format] = 1" worksheet.Range("H1").Value = "Formula" worksheet.Range("I1").Value = "Result" worksheet.Range("H2").Formula2 = "=FORMULATEXT(I2)" worksheet.Range("I2").Formula2 = "=ARRAYTOTEXT(B3:B8, 0)" worksheet.Range("H3").Formula2 = "=FORMULATEXT(I3)" worksheet.Range("I3").Formula2 = "=ARRAYTOTEXT(C3:C8, 0)" worksheet.Range("H4").Formula2 = "=FORMULATEXT(I4)" worksheet.Range("I4").Formula2 = "=ARRAYTOTEXT(D3:D8, 0)" worksheet.Range("H5").Formula2 = "=FORMULATEXT(I5)" worksheet.Range("I5").Formula2 = "=ARRAYTOTEXT(E3:E8, 0)" worksheet.Range("H7").Value = "Formula" worksheet.Range("I7").Value = "Result" worksheet.Range("H8").Formula2 = "=FORMULATEXT(I8)" worksheet.Range("I8").Formula2 = "=ARRAYTOTEXT(B3:B8, 1)" worksheet.Range("H9").Formula2 = "=FORMULATEXT(I9)" worksheet.Range("I9").Formula2 = "=ARRAYTOTEXT(C3:C8, 1)" worksheet.Range("H10").Formula2 = "=FORMULATEXT(I10)" worksheet.Range("I10").Formula2 = "=ARRAYTOTEXT(D3:D8, 1)" worksheet.Range("H11").Formula2 = "=FORMULATEXT(I11)" worksheet.Range("I11").Formula2 = "=ARRAYTOTEXT(E3:E8, 1)" worksheet.Columns.AutoFit() ' save to an excel file workbook.Save("ArrayToTextFunction.xlsx")