//create a new workbook var workbook = new GrapeCity.Documents.Excel.Workbook(); IWorksheet sheet1 = workbook.Worksheets[0]; sheet1.Name = "VALUETOTEXT"; sheet1.Range["B3:E8"].Value = new object[,] { { "Movie", "Year", "Rank", "Sales"}, { "Fargo", 1996d, 5d, 61d}, { "L.A. Confidential", 1997d, 4d, 126d}, { "The Sixth Sense", 1999d, 1d, 673d}, { "Toy Story", 1995d, 2d, 362d}, { "Unforgiven", 1992d, 3d, 159d} }; ITable sheet1Table = sheet1.Tables.Add(sheet1.Range["B3:E8"], true); sheet1Table.ConvertToRange(); sheet1.Range["G2:O2"].Merge(); sheet1.Range["G2"].Value = "Formula(format=0, Default concise format, returned text will be presented in Excel universal format.)"; sheet1.Range["G4"].Value = "Results"; sheet1.Range["G12:S12"].Merge(); sheet1.Range["G12"].Value = "Formula(format = 1, Strict format with escape characters. When the source data is of text type, the returned string will be enclosed in quotation marks.)"; sheet1.Range["G14"].Value = "Results"; sheet1.Range["G2, G4, G12, G14"].Font.Bold = true; sheet1.Range["G5"].Formula2 = "=VALUETOTEXT(B3:E8)"; sheet1.Range["G3"].Formula = "=FORMULATEXT(G5)"; sheet1.Range["G15"].Formula2 = "=VALUETOTEXT(B3:E8,1)"; sheet1.Range["G13"].Formula = "=FORMULATEXT(G15)"; sheet1.Columns[1].AutoFit(); sheet1.Columns[6].AutoFit(); sheet1.Columns[11].AutoFit(); workbook.Calculate(); // Save to an excel file workbook.Save("ValueToTextFunction.xlsx");
' Create a new Workbook Dim workbook As New Workbook Dim sheet1 As IWorksheet = workbook.Worksheets(0) sheet1.Name = "VALUETOTEXT" sheet1.Range("B3:E8").Value = New Object(,) { {"Movie", "Year", "Rank", "Sales"}, {"Fargo", 1996.0R, 5.0R, 61.0R}, {"L.A. Confidential", 1997.0R, 4.0R, 126.0R}, {"The Sixth Sense", 1999.0R, 1.0R, 673.0R}, {"Toy Story", 1995.0R, 2.0R, 362.0R}, {"Unforgiven", 1992.0R, 3.0R, 159.0R} } Dim sheet1Table As ITable = sheet1.Tables.Add(sheet1.Range("B3:E8"), True) sheet1Table.ConvertToRange() sheet1.Range("G2:O2").Merge() sheet1.Range("G2").Value = "Formula(format=0, Default concise format, returned text will be presented in Excel universal format.)" sheet1.Range("G4").Value = "Results" sheet1.Range("G12:S12").Merge() sheet1.Range("G12").Value = "Formula(format = 1, Strict format with escape characters. When the source data is of text type, the returned string will be enclosed in quotation marks.)" sheet1.Range("G14").Value = "Results" sheet1.Range("G2, G4, G12, G14").Font.Bold = True sheet1.Range("G5").Formula2 = "=VALUETOTEXT(B3:E8)" sheet1.Range("G3").Formula = "=FORMULATEXT(G5)" sheet1.Range("G15").Formula2 = "=VALUETOTEXT(B3:E8,1)" sheet1.Range("G13").Formula = "=FORMULATEXT(G15)" sheet1.Columns(1).AutoFit() sheet1.Columns(6).AutoFit() sheet1.Columns(11).AutoFit() workbook.Calculate() ' save to an excel file workbook.Save("ValueToTextFunction.xlsx")