Wednesday, 28 July 2010 07:18
Data Export Html in C#, VB.NET
This sample demonstrates how to export data table to HTML.
private void button1_Click(object sender, EventArgs e) { System.Data.OleDb.OleDbConnection oleDbConnection1 = new System.Data.OleDb.OleDbConnection(); oleDbConnection1.ConnectionString = @"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=..\..\..\..\Database\demo.mdb"; System.Data.OleDb.OleDbCommand oleDbCommand1 = new System.Data.OleDb.OleDbCommand(); oleDbCommand1.CommandText = "select * from parts"; oleDbCommand1.Connection = oleDbConnection1; Spire.DataExport.HTML.HTMLExport htmlExport1 = new Spire.DataExport.HTML.HTMLExport(); htmlExport1.ActionAfterExport = Spire.DataExport.Common.ActionType.OpenView; htmlExport1.DataFormats.CultureName = "zh-CN"; htmlExport1.DataFormats.Currency = "c"; htmlExport1.DataFormats.DateTime = "yyyy-M-d H:mm"; htmlExport1.DataFormats.Float = "g"; htmlExport1.DataFormats.Integer = "g"; htmlExport1.DataFormats.Time = "H:mm"; htmlExport1.FileName = "test.html"; htmlExport1.HtmlTableOptions.BackColor = System.Drawing.Color.FromArgb(((System.Byte)(0)), ((System.Byte)(122)), ((System.Byte)(236))); htmlExport1.HtmlTableOptions.FontColor = System.Drawing.Color.FromArgb(((System.Byte)(255)), ((System.Byte)(255)), ((System.Byte)(255))); htmlExport1.HtmlTableOptions.HeadersBackColor = System.Drawing.Color.FromArgb(((System.Byte)(255)), ((System.Byte)(0)), ((System.Byte)(0))); htmlExport1.HtmlTableOptions.HeadersFontColor = System.Drawing.Color.FromArgb(((System.Byte)(255)), ((System.Byte)(255)), ((System.Byte)(255))); htmlExport1.HtmlTableOptions.OddBackColor = System.Drawing.Color.FromArgb(((System.Byte)(0)), ((System.Byte)(107)), ((System.Byte)(206))); htmlExport1.HtmlTextOptions.BackgroundColor = System.Drawing.Color.FromArgb(((System.Byte)(51)), ((System.Byte)(51)), ((System.Byte)(153))); htmlExport1.HtmlTextOptions.Font = new System.Drawing.Font("Arial", 8F); htmlExport1.HtmlTextOptions.FontColor = System.Drawing.Color.FromArgb(((System.Byte)(255)), ((System.Byte)(255)), ((System.Byte)(255))); htmlExport1.HtmlTextOptions.LinkActiveColor = System.Drawing.Color.FromArgb(((System.Byte)(0)), ((System.Byte)(255)), ((System.Byte)(0))); htmlExport1.HtmlTextOptions.LinkColor = System.Drawing.Color.FromArgb(((System.Byte)(105)), ((System.Byte)(239)), ((System.Byte)(125))); htmlExport1.HtmlTextOptions.LinkVisitedColor = System.Drawing.Color.FromArgb(((System.Byte)(255)), ((System.Byte)(0)), ((System.Byte)(255))); htmlExport1.SQLCommand = oleDbCommand1; oleDbConnection1.Open(); try { htmlExport1.HtmlStyle = Spire.DataExport.HTML.HtmlStyle.Plain; htmlExport1.SaveToFile(); } finally { oleDbConnection1.Close(); } }
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim oleDbConnection1 As New System.Data.OleDb.OleDbConnection() oleDbConnection1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=..\..\..\..\Database\demo.mdb" Dim oleDbCommand1 As New System.Data.OleDb.OleDbCommand() oleDbCommand1.CommandText = "select * from parts" oleDbCommand1.Connection = oleDbConnection1 Dim htmlExport1 As New Spire.DataExport.HTML.HTMLExport() htmlExport1.ActionAfterExport = Spire.DataExport.Common.ActionType.OpenView htmlExport1.DataFormats.CultureName = "zh-CN" htmlExport1.DataFormats.Currency = "c" htmlExport1.DataFormats.DateTime = "yyyy-M-d H:mm" htmlExport1.DataFormats.Float = "g" htmlExport1.DataFormats.[Integer] = "g" htmlExport1.DataFormats.Time = "H:mm" htmlExport1.FileName = "test.html" htmlExport1.HtmlTableOptions.BackColor = System.Drawing.Color.FromArgb(CByte(0), CByte(122), CByte(236)) htmlExport1.HtmlTableOptions.FontColor = System.Drawing.Color.FromArgb(CByte(255), CByte(255), CByte(255)) htmlExport1.HtmlTableOptions.HeadersBackColor = System.Drawing.Color.FromArgb(CByte(255), CByte(0), CByte(0)) htmlExport1.HtmlTableOptions.HeadersFontColor = System.Drawing.Color.FromArgb(CByte(255), CByte(255), CByte(255)) htmlExport1.HtmlTableOptions.OddBackColor = System.Drawing.Color.FromArgb(CByte(0), CByte(107), CByte(206)) htmlExport1.HtmlTextOptions.BackgroundColor = System.Drawing.Color.FromArgb(CByte(51), CByte(51), CByte(153)) htmlExport1.HtmlTextOptions.Font = New System.Drawing.Font("Arial", 8.0F) htmlExport1.HtmlTextOptions.FontColor = System.Drawing.Color.FromArgb(CByte(255), CByte(255), CByte(255)) htmlExport1.HtmlTextOptions.LinkActiveColor = System.Drawing.Color.FromArgb(CByte(0), CByte(255), CByte(0)) htmlExport1.HtmlTextOptions.LinkColor = System.Drawing.Color.FromArgb(CByte(105), CByte(239), CByte(125)) htmlExport1.HtmlTextOptions.LinkVisitedColor = System.Drawing.Color.FromArgb(CByte(255), CByte(0), CByte(255)) htmlExport1.SQLCommand = oleDbCommand1 oleDbConnection1.Open() Try htmlExport1.HtmlStyle = Spire.DataExport.HTML.HtmlStyle.Plain htmlExport1.SaveToFile() Finally oleDbConnection1.Close() End Try End Sub
Published in
Html
Wednesday, 28 July 2010 07:05
Data Export Cell in C#, VB.NET
Not needing to have Microsoft Excel installed on the machine, The Spire.DataExport can create Excel spreadsheet.
private void btnRun_Click(object sender, System.EventArgs e) { oleDbConnection1.Open(); try { cellExport1.SaveToFile(); } finally { this.oleDbConnection1.Close(); } } private void Form1_Load(object sender, System.EventArgs e) { LoadData(); } private void button2_Click(object sender, System.EventArgs e) { LoadData(); } private void btnAbout_Click(object sender, System.EventArgs e) { Close(); } private void button1_Click(object sender, System.EventArgs e) { oleDbConnection1.Open(); try { cellExport2.SaveToFile(); } finally { this.oleDbConnection1.Close(); } } private void button3_Click(object sender, System.EventArgs e) { oleDbConnection1.Open(); try { cellExport3.SaveToFile(); } finally { this.oleDbConnection1.Close(); } } private void button4_Click(object sender, System.EventArgs e) { oleDbConnection1.Open(); try { cellExport4.SaveToFile(); } finally { this.oleDbConnection1.Close(); } } private void button5_Click(object sender, System.EventArgs e) { ushort currentRow = 1; string currentFormula = string.Empty; Cell cell = null; cellExport5.Cells.Clear(); cellExport5.SetColumnWidth(1, 32); cellExport5.SetColumnWidth(2, 16); cellExport5.SetColumnWidth(3, 16); cell = cellExport5.AddString(1,currentRow++,"Examples of formulas :"); cell.Format.Font.Bold = true; cell.Format.FillStyle.Background = CellColor.LightGreen; cell.Format.FillStyle.Pattern = Pattern.Solid; cell.Format.Borders.Bottom.Style = CellBorderStyle.Medium; cell = cellExport5.AddString(1,++currentRow,"Test data:"); cell.Format.Font.Bold = true; cell.Format.FillStyle.Background = CellColor.LightGreen; cell.Format.FillStyle.Pattern = Pattern.Solid; cell.Format.Borders.Bottom.Style = CellBorderStyle.Medium; //test data cellExport5.AddNumeric(2,currentRow, 7.3); cellExport5.AddNumeric(3,currentRow,5); cellExport5.AddNumeric(4,currentRow,8.2); cellExport5.AddNumeric(5,currentRow, 4); cellExport5.AddNumeric(6,currentRow, 3); cellExport5.AddNumeric(7,currentRow++, 11.3); cell = cellExport5.AddString(1,++currentRow, "Formulas"); cell.Format.Font.Bold = true; cell.Format.FillStyle.Background = CellColor.LightGreen; cell.Format.FillStyle.Pattern = Pattern.Solid; cell.Format.Borders.Bottom.Style = CellBorderStyle.Medium; cell = cellExport5.AddString(2,currentRow, "Results"); cell.Format.Font.Bold = true; cell.Format.FillStyle.Background = CellColor.LightGreen; cell.Format.FillStyle.Pattern = Pattern.Solid; cell.Format.Borders.Bottom.Style = CellBorderStyle.Medium; //str. currentFormula = "=\"hello\""; cellExport5.AddString(1, ++currentRow, currentFormula); cellExport5.AddFormula(2, currentRow, "=\"hello\""); cellExport5.AddFormula(3, currentRow, "=\"" + new string(new char[]{'\u4f60', '\u597d'})+ "\""); //int. currentFormula = "=300"; cellExport5.AddString(1, ++currentRow,currentFormula); cellExport5.AddFormula(2,currentRow, currentFormula); // float currentFormula = "=3389.639421"; cellExport5.AddString(1, ++currentRow, currentFormula); cellExport5.AddFormula(2,currentRow,currentFormula); //bool. currentFormula = "=false"; cellExport5.AddString(1, ++currentRow, currentFormula); cellExport5.AddFormula(2, currentRow, currentFormula); currentFormula = "=1+2+3+4+5-6-7+8-9"; cellExport5.AddString( 1, ++currentRow, currentFormula); cellExport5.AddFormula(2, currentRow, currentFormula); currentFormula = "=33*3/4-2+10"; cellExport5.AddString( 1,++currentRow,currentFormula); cellExport5.AddFormula(2, currentRow, currentFormula); // sheet reference currentFormula = "=Sheet1!$B$3"; cellExport5.AddString(1,++currentRow, currentFormula); cellExport5.AddFormula(2,currentRow, currentFormula); // sheet area reference currentFormula = "=AVERAGE(Sheet1!$D$3:G$3)"; cellExport5.AddString(1, ++currentRow, currentFormula); cellExport5.AddFormula(2,currentRow, currentFormula); // Functions currentFormula = "=Count(3,5,8,10,2,34)"; cellExport5.AddString(1,++currentRow, currentFormula); cellExport5.AddFormula(2,currentRow++, currentFormula); currentFormula = "=NOW()"; cellExport5.AddString( 1, currentRow, currentFormula); cellExport5.AddFormula( 2, currentRow++, currentFormula); currentFormula = "=SECOND(11)"; cellExport5.AddString(1 ,currentRow, currentFormula); cellExport5.AddFormula(2, currentRow++, currentFormula); currentFormula = "=MINUTE(12)"; cellExport5.AddString(1, currentRow,currentFormula); cellExport5.AddFormula(2, currentRow++, currentFormula); currentFormula = "=MONTH(9)"; cellExport5.AddString( 1, currentRow, currentFormula); cellExport5.AddFormula( 2, currentRow++, currentFormula); currentFormula = "=DAY(10)"; cellExport5.AddString( 1, currentRow, currentFormula); cellExport5.AddFormula( 2, currentRow++, currentFormula); currentFormula = "=TIME(4,5,7)"; cellExport5.AddString( 1, currentRow, currentFormula); cellExport5.AddFormula( 2, currentRow++, currentFormula); currentFormula = "=DATE(6,4,2)"; cellExport5.AddString( 1, currentRow, currentFormula); cellExport5.AddFormula( 2, currentRow++, currentFormula); currentFormula = "=RAND()"; cellExport5.AddString( 1, currentRow, currentFormula); cellExport5.AddFormula( 2, currentRow++, currentFormula); currentFormula = "=HOUR(12)"; cellExport5.AddString(1, currentRow,currentFormula); cellExport5.AddFormula(2, currentRow++, currentFormula); currentFormula = "=TEXT(\"world\", \"$d\")"; cellExport5.AddString( 1, currentRow, currentFormula); cellExport5.AddFormula( 2, currentRow++, currentFormula); currentFormula = "=MOD(5,3)"; cellExport5.AddString( 1, currentRow, currentFormula); cellExport5.AddFormula( 2, currentRow++, currentFormula); currentFormula = "=WEEKDAY(3)"; cellExport5.AddString(1, currentRow, currentFormula); cellExport5.AddFormula(2, currentRow++, currentFormula); currentFormula = "=YEAR(23)"; cellExport5.AddString(1, currentRow, currentFormula); cellExport5.AddFormula(2, currentRow++, currentFormula); currentFormula = "=NOT(true)"; cellExport5.AddString( 1, currentRow, currentFormula); cellExport5.AddFormula( 2, currentRow++, currentFormula); currentFormula = "=OR(true)"; cellExport5.AddString( 1, currentRow, currentFormula); cellExport5.AddFormula( 2, currentRow++, currentFormula); currentFormula = "=AND(TRUE)"; cellExport5.AddString( 1, currentRow, currentFormula); cellExport5.AddFormula( 2, currentRow++, currentFormula); currentFormula = "=VALUE(30)"; cellExport5.AddString( 1, currentRow, currentFormula); cellExport5.AddFormula( 2, currentRow++, currentFormula); currentFormula = "=LEN(\"world\")"; cellExport5.AddString( 1, currentRow, currentFormula); cellExport5.AddFormula( 2, currentRow++, currentFormula); currentFormula = "=MID(\"world\",4,2)"; cellExport5.AddString( 1, currentRow, currentFormula); cellExport5.AddFormula( 2, currentRow++, currentFormula); currentFormula = "=ROUND(7,3)"; cellExport5.AddString( 1, currentRow, currentFormula); cellExport5.AddFormula( 2, currentRow++, currentFormula); currentFormula = "=SIGN(4)"; cellExport5.AddString( 1, currentRow, currentFormula); cellExport5.AddFormula( 2, currentRow++, currentFormula); currentFormula = "=INT(200)"; cellExport5.AddString( 1, currentRow, currentFormula); cellExport5.AddFormula( 2, currentRow++, currentFormula); currentFormula = "=ABS(-1.21)"; cellExport5.AddString( 1, currentRow, currentFormula); cellExport5.AddFormula( 2, currentRow++, currentFormula); currentFormula = "=LN(15)"; cellExport5.AddString( 1, currentRow, currentFormula); cellExport5.AddFormula( 2, currentRow++, currentFormula); currentFormula = "=EXP(20)"; cellExport5.AddString( 1, currentRow, currentFormula); cellExport5.AddFormula( 2, currentRow++, currentFormula); currentFormula = "=SQRT(40)"; cellExport5.AddString( 1, currentRow, currentFormula); cellExport5.AddFormula( 2, currentRow++, currentFormula); currentFormula = "=PI()"; cellExport5.AddString( 1, currentRow, currentFormula); cellExport5.AddFormula( 2, currentRow++, currentFormula); currentFormula = "=COS(9)"; cellExport5.AddString( 1, currentRow, currentFormula); cellExport5.AddFormula( 2, currentRow++, currentFormula); currentFormula = "=SIN(45)"; cellExport5.AddString( 1, currentRow, currentFormula); cellExport5.AddFormula( 2, currentRow++, currentFormula); currentFormula = "=MAX(10,30)"; cellExport5.AddString( 1, currentRow, currentFormula); cellExport5.AddFormula( 2, currentRow++, currentFormula); currentFormula = "=MIN(5,7)"; cellExport5.AddString( 1, currentRow, currentFormula); cellExport5.AddFormula( 2, currentRow++, currentFormula); currentFormula = "=AVERAGE(12,45)"; cellExport5.AddString( 1, currentRow, currentFormula); cellExport5.AddFormula( 2, currentRow++, currentFormula); currentFormula = "=SUM(18,29)"; cellExport5.AddString( 1, currentRow, currentFormula); cellExport5.AddFormula( 2, currentRow++, currentFormula); currentFormula = "=IF(4,2,2)"; cellExport5.AddString( 1, currentRow, currentFormula); cellExport5.AddFormula( 2, currentRow++, currentFormula); currentFormula = "=SUBTOTAL(3,Sheet1!B2:E3)"; cellExport5.AddString( 1, currentRow, currentFormula); cellExport5.AddFormula( 2, currentRow++, currentFormula); this.cellExport5.SaveToFile(); } private void cellExport1_GetDataParams(object sender, Spire.DataExport.EventArgs.DataParamsEventArgs e) { if ((e.Sheet == 0) && (e.Col == 6)) { e.FormatText = cellExport1.DataFormats.Currency; } }
Private Sub btnRun_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnRun.Click oleDbConnection1.Open() Try cellExport1.SaveToFile() Finally Me.oleDbConnection1.Close() End Try End Sub Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load LoadData() End Sub Private Sub button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles button2.Click LoadData() End Sub Private Sub btnAbout_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnAbout.Click Close() End Sub Private Sub button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles button1.Click oleDbConnection1.Open() Try cellExport2.SaveToFile() Finally Me.oleDbConnection1.Close() End Try End Sub Private Sub button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles button3.Click oleDbConnection1.Open() Try cellExport3.SaveToFile() Finally Me.oleDbConnection1.Close() End Try End Sub Private Sub button4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles button4.Click oleDbConnection1.Open() Try cellExport4.SaveToFile() Finally Me.oleDbConnection1.Close() End Try End Sub Private Sub button5_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles button5.Click Dim currentRow As Integer = 1 Dim firstCol As UInt16 = Convert.ToUInt16(1) Dim secondCol As UInt16 = Convert.ToUInt16(2) Dim currentFormula As String = String.Empty Dim cell As cell = Nothing cellExport5.Cells.Clear() cellExport5.SetColumnWidth(System.Convert.ToUInt16(1), System.Convert.ToUInt16(32)) cellExport5.SetColumnWidth(System.Convert.ToUInt16(2), System.Convert.ToUInt16(16)) cellExport5.SetColumnWidth(System.Convert.ToUInt16(3), System.Convert.ToUInt16(16)) cell = cellExport5.AddString(System.Convert.ToUInt16(1), System.Convert.ToUInt16(currentRow), "Examples of formulas :") currentRow += 1 cell.Format.Font.Bold = True cell.Format.FillStyle.Background = CellColor.LightGreen cell.Format.FillStyle.Pattern = Pattern.Solid cell.Format.Borders.Bottom.Style = CellBorderStyle.Medium cell = cellExport5.AddString(System.Convert.ToUInt16(1), System.Convert.ToUInt16(currentRow), "Test data:") currentRow += 1 cell.Format.Font.Bold = True cell.Format.FillStyle.Background = CellColor.LightGreen cell.Format.FillStyle.Pattern = Pattern.Solid cell.Format.Borders.Bottom.Style = CellBorderStyle.Medium 'test data cellExport5.AddNumeric(System.Convert.ToUInt16(2), System.Convert.ToUInt16(currentRow), 7.3) cellExport5.AddNumeric(System.Convert.ToUInt16(3), System.Convert.ToUInt16(currentRow), 5) cellExport5.AddNumeric(System.Convert.ToUInt16(4), System.Convert.ToUInt16(currentRow), 8.2) cellExport5.AddNumeric(System.Convert.ToUInt16(5), System.Convert.ToUInt16(currentRow), 4) cellExport5.AddNumeric(System.Convert.ToUInt16(6), System.Convert.ToUInt16(currentRow), 3) cellExport5.AddNumeric(System.Convert.ToUInt16(7), System.Convert.ToUInt16(currentRow), 11.3) currentRow += 1 currentRow += 1 cell = cellExport5.AddString(Convert.ToUInt16(1), Convert.ToUInt16(currentRow), "Formulas") cell.Format.Font.Bold = True cell.Format.FillStyle.Background = CellColor.LightGreen cell.Format.FillStyle.Pattern = Pattern.Solid cell.Format.Borders.Bottom.Style = CellBorderStyle.Medium cell = cellExport5.AddString(secondCol, Convert.ToUInt16(currentRow), "Results") currentRow += 1 cell.Format.Font.Bold = True cell.Format.FillStyle.Background = CellColor.LightGreen cell.Format.FillStyle.Pattern = Pattern.Solid cell.Format.Borders.Bottom.Style = CellBorderStyle.Medium 'str. currentFormula = "=""hello""" cellExport5.AddString(firstCol, Convert.ToUInt16(currentRow), currentFormula) cellExport5.AddFormula(secondCol, Convert.ToUInt16(currentRow), "=""hello""") cellExport5.AddFormula(Convert.ToUInt16(3), Convert.ToUInt16(currentRow), "=""" & ChrW(20320) & ChrW(22909) + """") currentRow += 1 'int. currentFormula = "=300" cellExport5.AddString(firstCol, Convert.ToUInt16(currentRow), currentFormula) cellExport5.AddFormula(secondCol, Convert.ToUInt16(currentRow), currentFormula) currentRow += 1 ' float currentFormula = "=3389.639421" cellExport5.AddString(firstCol, Convert.ToUInt16(currentRow), currentFormula) cellExport5.AddFormula(secondCol, Convert.ToUInt16(currentRow), currentFormula) currentRow += 1 'bool. currentFormula = "=false" cellExport5.AddString(firstCol, Convert.ToUInt16(currentRow), currentFormula) cellExport5.AddFormula(secondCol, Convert.ToUInt16(currentRow), currentFormula) currentRow += 1 currentFormula = "=1+2+3+4+5-6-7+8-9" cellExport5.AddString(firstCol, Convert.ToUInt16(currentRow), currentFormula) cellExport5.AddFormula(secondCol, Convert.ToUInt16(currentRow), currentFormula) currentRow += 1 currentFormula = "=33*3/4-2+10" cellExport5.AddString(firstCol, Convert.ToUInt16(currentRow), currentFormula) cellExport5.AddFormula(secondCol, Convert.ToUInt16(currentRow), currentFormula) currentRow += 1 ' sheet reference currentFormula = "=Sheet1!$B$3" cellExport5.AddString(firstCol, Convert.ToUInt16(currentRow), currentFormula) cellExport5.AddFormula(secondCol, Convert.ToUInt16(currentRow), currentFormula) currentRow += 1 ' sheet area reference currentFormula = "=AVERAGE(Sheet1!$D$3:G$3)" cellExport5.AddString(firstCol, Convert.ToUInt16(currentRow), currentFormula) cellExport5.AddFormula(secondCol, Convert.ToUInt16(currentRow), currentFormula) currentRow += 1 ' Functions currentFormula = "=Count(3,5,8,10,2,34)" cellExport5.AddString(firstCol, Convert.ToUInt16(currentRow), currentFormula) cellExport5.AddFormula(secondCol, Convert.ToUInt16(currentRow), currentFormula) currentRow += 1 currentFormula = "=NOW()" cellExport5.AddString(firstCol, Convert.ToUInt16(currentRow), currentFormula) cellExport5.AddFormula(secondCol, Convert.ToUInt16(currentRow), currentFormula) currentRow += 1 currentFormula = "=SECOND(11)" cellExport5.AddString(firstCol, Convert.ToUInt16(currentRow), currentFormula) cellExport5.AddFormula(secondCol, Convert.ToUInt16(currentRow), currentFormula) currentRow += 1 currentFormula = "=MINUTE(12)" cellExport5.AddString(firstCol, Convert.ToUInt16(currentRow), currentFormula) cellExport5.AddFormula(secondCol, Convert.ToUInt16(currentRow), currentFormula) currentRow += 1 currentFormula = "=MONTH(9)" cellExport5.AddString(firstCol, Convert.ToUInt16(currentRow), currentFormula) cellExport5.AddFormula(secondCol, Convert.ToUInt16(currentRow), currentFormula) currentRow += 1 currentFormula = "=DAY(10)" cellExport5.AddString(firstCol, Convert.ToUInt16(currentRow), currentFormula) cellExport5.AddFormula(secondCol, Convert.ToUInt16(currentRow), currentFormula) currentRow += 1 currentFormula = "=TIME(4,5,7)" cellExport5.AddString(firstCol, Convert.ToUInt16(currentRow), currentFormula) cellExport5.AddFormula(secondCol, Convert.ToUInt16(currentRow), currentFormula) currentRow += 1 currentFormula = "=DATE(6,4,2)" cellExport5.AddString(firstCol, Convert.ToUInt16(currentRow), currentFormula) cellExport5.AddFormula(secondCol, Convert.ToUInt16(currentRow), currentFormula) currentRow += 1 currentFormula = "=RAND()" cellExport5.AddString(firstCol, Convert.ToUInt16(currentRow), currentFormula) cellExport5.AddFormula(secondCol, Convert.ToUInt16(currentRow), currentFormula) currentRow += 1 currentFormula = "=HOUR(12)" cellExport5.AddString(firstCol, Convert.ToUInt16(currentRow), currentFormula) cellExport5.AddFormula(secondCol, Convert.ToUInt16(currentRow), currentFormula) currentRow += 1 currentFormula = "=TEXT(""world"", ""$d"")" cellExport5.AddString(firstCol, Convert.ToUInt16(currentRow), currentFormula) cellExport5.AddFormula(secondCol, Convert.ToUInt16(currentRow), currentFormula) currentRow += 1 currentFormula = "=MOD(5,3)" cellExport5.AddString(firstCol, Convert.ToUInt16(currentRow), currentFormula) cellExport5.AddFormula(secondCol, Convert.ToUInt16(currentRow), currentFormula) currentRow += 1 currentFormula = "=WEEKDAY(3)" cellExport5.AddString(firstCol, Convert.ToUInt16(currentRow), currentFormula) cellExport5.AddFormula(secondCol, Convert.ToUInt16(currentRow), currentFormula) currentRow += 1 currentFormula = "=YEAR(23)" cellExport5.AddString(firstCol, Convert.ToUInt16(currentRow), currentFormula) cellExport5.AddFormula(secondCol, Convert.ToUInt16(currentRow), currentFormula) currentRow += 1 currentFormula = "=NOT(true)" cellExport5.AddString(firstCol, Convert.ToUInt16(currentRow), currentFormula) cellExport5.AddFormula(secondCol, Convert.ToUInt16(currentRow), currentFormula) currentRow += 1 currentFormula = "=OR(true)" cellExport5.AddString(firstCol, Convert.ToUInt16(currentRow), currentFormula) cellExport5.AddFormula(secondCol, Convert.ToUInt16(currentRow), currentFormula) currentRow += 1 currentFormula = "=AND(TRUE)" cellExport5.AddString(firstCol, Convert.ToUInt16(currentRow), currentFormula) cellExport5.AddFormula(secondCol, Convert.ToUInt16(currentRow), currentFormula) currentRow += 1 currentFormula = "=VALUE(30)" cellExport5.AddString(firstCol, Convert.ToUInt16(currentRow), currentFormula) cellExport5.AddFormula(secondCol, Convert.ToUInt16(currentRow), currentFormula) currentRow += 1 currentFormula = "=LEN(""world"")" cellExport5.AddString(firstCol, Convert.ToUInt16(currentRow), currentFormula) cellExport5.AddFormula(secondCol, Convert.ToUInt16(currentRow), currentFormula) currentRow += 1 currentFormula = "=MID(""world"",4,2)" cellExport5.AddString(firstCol, Convert.ToUInt16(currentRow), currentFormula) cellExport5.AddFormula(secondCol, Convert.ToUInt16(currentRow), currentFormula) currentRow += 1 currentFormula = "=ROUND(7,3)" cellExport5.AddString(firstCol, Convert.ToUInt16(currentRow), currentFormula) cellExport5.AddFormula(secondCol, Convert.ToUInt16(currentRow), currentFormula) currentRow += 1 currentFormula = "=SIGN(4)" cellExport5.AddString(firstCol, Convert.ToUInt16(currentRow), currentFormula) cellExport5.AddFormula(secondCol, Convert.ToUInt16(currentRow), currentFormula) currentRow += 1 currentFormula = "=INT(200)" cellExport5.AddString(firstCol, Convert.ToUInt16(currentRow), currentFormula) cellExport5.AddFormula(secondCol, Convert.ToUInt16(currentRow), currentFormula) currentRow += 1 currentFormula = "=ABS(-1.21)" cellExport5.AddString(firstCol, Convert.ToUInt16(currentRow), currentFormula) cellExport5.AddFormula(secondCol, Convert.ToUInt16(currentRow), currentFormula) currentRow += 1 currentFormula = "=LN(15)" cellExport5.AddString(firstCol, Convert.ToUInt16(currentRow), currentFormula) cellExport5.AddFormula(secondCol, Convert.ToUInt16(currentRow), currentFormula) currentRow += 1 currentFormula = "=EXP(20)" cellExport5.AddString(firstCol, Convert.ToUInt16(currentRow), currentFormula) cellExport5.AddFormula(secondCol, Convert.ToUInt16(currentRow), currentFormula) currentRow += 1 currentFormula = "=SQRT(40)" cellExport5.AddString(firstCol, Convert.ToUInt16(currentRow), currentFormula) cellExport5.AddFormula(secondCol, Convert.ToUInt16(currentRow), currentFormula) currentRow += 1 currentFormula = "=PI()" cellExport5.AddString(firstCol, Convert.ToUInt16(currentRow), currentFormula) cellExport5.AddFormula(secondCol, Convert.ToUInt16(currentRow), currentFormula) currentRow += 1 currentFormula = "=COS(9)" cellExport5.AddString(firstCol, Convert.ToUInt16(currentRow), currentFormula) cellExport5.AddFormula(secondCol, Convert.ToUInt16(currentRow), currentFormula) currentRow += 1 currentFormula = "=SIN(45)" cellExport5.AddString(firstCol, Convert.ToUInt16(currentRow), currentFormula) cellExport5.AddFormula(secondCol, Convert.ToUInt16(currentRow), currentFormula) currentRow += 1 currentFormula = "=MAX(10,30)" cellExport5.AddString(firstCol, Convert.ToUInt16(currentRow), currentFormula) cellExport5.AddFormula(secondCol, Convert.ToUInt16(currentRow), currentFormula) currentRow += 1 currentFormula = "=MIN(5,7)" cellExport5.AddString(firstCol, Convert.ToUInt16(currentRow), currentFormula) cellExport5.AddFormula(secondCol, Convert.ToUInt16(currentRow), currentFormula) currentRow += 1 currentFormula = "=AVERAGE(12,45)" cellExport5.AddString(firstCol, Convert.ToUInt16(currentRow), currentFormula) cellExport5.AddFormula(secondCol, Convert.ToUInt16(currentRow), currentFormula) currentRow += 1 currentFormula = "=SUM(18,29)" cellExport5.AddString(firstCol, Convert.ToUInt16(currentRow), currentFormula) cellExport5.AddFormula(secondCol, Convert.ToUInt16(currentRow), currentFormula) currentRow += 1 currentFormula = "=IF(4,2,2)" cellExport5.AddString(firstCol, Convert.ToUInt16(currentRow), currentFormula) cellExport5.AddFormula(secondCol, Convert.ToUInt16(currentRow), currentFormula) currentRow += 1 currentFormula = "=SUBTOTAL(3,Sheet1!B2:E3)" cellExport5.AddString(firstCol, Convert.ToUInt16(currentRow), currentFormula) cellExport5.AddFormula(secondCol, Convert.ToUInt16(currentRow), currentFormula) currentRow += 1 Me.cellExport5.SaveToFile() End Sub Private Sub cellExport1_GetDataParams(ByVal sender As Object, ByVal e As Spire.DataExport.EventArgs.DataParamsEventArgs) Handles cellExport1.GetDataParams, cellExport3.GetDataParams If (e.Sheet = 0) AndAlso (e.Col = 6) Then e.FormatText = cellExport1.DataFormats.Currency End If End Sub
Published in
Cell
Thursday, 22 July 2010 07:42
Word Merge in C#, VB.NET
The sample demonstrates how to merge two documents.
private void button1_Click(object sender, EventArgs e) { string fileName = OpenFile(); string fileMerge = OpenFile(); if ((!string.IsNullOrEmpty(fileName)) && (!string.IsNullOrEmpty(fileMerge))) { //Create word document Document document = new Document(); document.LoadFromFile(fileName,FileFormat.Doc); Document documentMerge = new Document(); documentMerge.LoadFromFile(fileMerge, FileFormat.Doc); foreach( Section sec in documentMerge.Sections) { document.Sections.Add(sec.Clone()); } //Save doc file. document.SaveToFile("Sample.doc", FileFormat.Doc); //Launching the MS Word file. WordDocViewer("Sample.doc"); } } private string OpenFile() { openFileDialog1.Filter = "Word Document (*.doc)|*.doc"; openFileDialog1.Title = "Choose a document to merage"; openFileDialog1.RestoreDirectory = true; if (openFileDialog1.ShowDialog() == DialogResult.OK) { return openFileDialog1.FileName; } return string.Empty; } private void WordDocViewer(string fileName) { try { System.Diagnostics.Process.Start(fileName); } catch { } }
Private Sub button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles button1.Click Dim fileName As String = OpenFile() Dim fileMerge As String = OpenFile() If ((Not String.IsNullOrEmpty(fileName))) AndAlso ((Not String.IsNullOrEmpty(fileMerge))) Then 'Create word document Dim document_Renamed As New Document() document_Renamed.LoadFromFile(fileName,FileFormat.Doc) Dim documentMerge As New Document() documentMerge.LoadFromFile(fileMerge, FileFormat.Doc) For Each sec As Section In documentMerge.Sections document_Renamed.Sections.Add(sec.Clone()) Next sec 'Save doc file. document_Renamed.SaveToFile("Sample.doc", FileFormat.Doc) 'Launching the MS Word file. WordDocViewer("Sample.doc") End If End Sub Private Function OpenFile() As String openFileDialog1.Filter = "Word Document (*.doc)|*.doc" openFileDialog1.Title = "Choose a document to merage" openFileDialog1.RestoreDirectory = True If openFileDialog1.ShowDialog() = DialogResult.OK Then Return openFileDialog1.FileName End If Return String.Empty End Function Private Sub WordDocViewer(ByVal fileName As String) Try Process.Start(fileName) Catch End Try End Sub
Published in
Misc
Thursday, 22 July 2010 07:38
Word Insert Break in C#, VB.NET
The sample demonstrates how to insert break.
private void button1_Click(object sender, EventArgs e) { //Create word document Document document = new Document(); InsertBreak(document); //Save doc file. document.SaveToFile("Sample.doc",FileFormat.Doc); //Launching the MS Word file. WordDocViewer("Sample.doc"); } private void InsertBreak(Document document) { Section section = document.AddSection(); Paragraph paragraph = section.AddParagraph(); paragraph.AppendText("The sample demonstrates how to insert break."); paragraph.ApplyStyle(BuiltinStyle.Heading2); section.AddParagraph(); paragraph = section.AddParagraph(); paragraph.AppendText("Insert new page."); paragraph.ApplyStyle(BuiltinStyle.Heading4); section = document.AddSection(); section.BreakCode = SectionBreakType.NewPage; section.AddParagraph(); paragraph = section.AddParagraph(); paragraph.AppendText("Next page."); paragraph.ApplyStyle(BuiltinStyle.Heading4); } private void WordDocViewer(string fileName) { try { System.Diagnostics.Process.Start(fileName); } catch { } }
Private Sub button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles button1.Click 'Create word document Dim document_Renamed As New Document() InsertBreak(document_Renamed) 'Save doc file. document_Renamed.SaveToFile("Sample.doc",FileFormat.Doc) 'Launching the MS Word file. WordDocViewer("Sample.doc") End Sub Private Sub InsertBreak(ByVal document_Renamed As Document) Dim section_Renamed As Section = document_Renamed.AddSection() Dim paragraph_Renamed As Paragraph = section_Renamed.AddParagraph() paragraph_Renamed.AppendText("The sample demonstrates how to insert break.") paragraph_Renamed.ApplyStyle(BuiltinStyle.Heading2) section_Renamed.AddParagraph() paragraph_Renamed = section_Renamed.AddParagraph() paragraph_Renamed.AppendText("Insert new page.") paragraph_Renamed.ApplyStyle(BuiltinStyle.Heading4) section_Renamed = document_Renamed.AddSection() section_Renamed.BreakCode = SectionBreakType.NewPage section_Renamed.AddParagraph() paragraph_Renamed = section_Renamed.AddParagraph() paragraph_Renamed.AppendText("Next page.") paragraph_Renamed.ApplyStyle(BuiltinStyle.Heading4) End Sub Private Sub WordDocViewer(ByVal fileName As String) Try Process.Start(fileName) Catch End Try End Sub
Published in
Misc
Thursday, 22 July 2010 07:24
Word Mail Merge in C#, VB.NET
The sample demonstrates how to merge mail into a document.
private void button1_Click(object sender, EventArgs e) { //Create word document Document document = new Document(); document.LoadFromFile(@"..\..\..\..\..\..\Data\Fax.doc"); string[] filedNames = new string[]{"Contact Name","Fax","Date"}; string[] filedValues = new string[]{"John Smith","+1 (69) 123456",System.DateTime.Now.Date.ToString()}; document.MailMerge.Execute(filedNames, filedValues); //Save doc file. document.SaveToFile("Sample.doc", FileFormat.Doc); //Launching the MS Word file. WordDocViewer("Sample.doc"); } private void WordDocViewer(string fileName) { try { System.Diagnostics.Process.Start(fileName); } catch { } }
Private Sub button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles button1.Click 'Create word document Dim document_Renamed As New Document() document_Renamed.LoadFromFile("..\..\..\..\..\..\Data\Fax.doc") Dim filedNames() As String = {"Contact Name","Fax","Date"} Dim filedValues() As String = {"John Smith","+1 (69) 123456",Date.Now.Date.ToString()} document_Renamed.MailMerge.Execute(filedNames, filedValues) 'Save doc file. document_Renamed.SaveToFile("Sample.doc", FileFormat.Doc) 'Launching the MS Word file. WordDocViewer("Sample.doc") End Sub Private Sub WordDocViewer(ByVal fileName As String) Try Process.Start(fileName) Catch End Try End Sub
Published in
Mail Merge
Thursday, 22 July 2010 07:16
Word Encrypt in C#, VB.NET
The sample demonstrates how to encrypt a document.
private void button1_Click(object sender, EventArgs e) { //Create word document Document document = new Document(); //Create a new paragraph Paragraph paragraph = document.AddSection().AddParagraph(); //Append Text paragraph.AppendText("The sample demonstrates how to encryt a document."); paragraph.ApplyStyle(BuiltinStyle.Heading4); paragraph = document.Sections[0].AddParagraph(); paragraph.AppendText("Microsoft Word is a word processor designed by Microsoft. It was first released in 1983 under the name Multi-Tool Word for Xenix systems. Subsequent versions were later written for several other platforms including IBM PCs running DOS (1983), the Apple Macintosh (1984), the AT&T Unix PC (1985), Atari ST (1986), SCO UNIX, OS/2, and Microsoft Windows (1989)."); paragraph = document.Sections[0].AddParagraph(); paragraph.AppendText("Microsoft Word is a word processor designed by Microsoft. It was first released in 1983 under the name Multi-Tool Word for Xenix systems. Subsequent versions were later written for several other platforms including IBM PCs running DOS (1983), the Apple Macintosh (1984), the AT&T Unix PC (1985), Atari ST (1986), SCO UNIX, OS/2, and Microsoft Windows (1989)."); document.Encrypt(this.textBox1.Text); //Save doc file. document.SaveToFile("Sample.doc",FileFormat.Doc); //Launching the MS Word file. WordDocViewer("Sample.doc"); } private void WordDocViewer(string fileName) { try { System.Diagnostics.Process.Start(fileName); } catch { } }
Private Sub button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles button1.Click 'Create word document Dim document_Renamed As New Document() 'Create a new paragraph Dim paragraph_Renamed As Paragraph = document_Renamed.AddSection().AddParagraph() 'Append Text paragraph_Renamed.AppendText("The sample demonstrates how to encryt a document.") paragraph_Renamed.ApplyStyle(BuiltinStyle.Heading4) document_Renamed.Encrypt(Me.textBox1.Text) 'Save doc file. document_Renamed.SaveToFile("Sample.doc",FileFormat.Doc) 'Launching the MS Word file. WordDocViewer("Sample.doc") End Sub Private Sub WordDocViewer(ByVal fileName As String) Try Process.Start(fileName) Catch End Try End Sub
Published in
Protect
Thursday, 22 July 2010 07:10
Word Decrypt in C#, VB.NET
The sample demonstrates how to decrypt a document.
private void button1_Click(object sender, EventArgs e) { string fileName = OpenFile(); if (!string.IsNullOrEmpty(fileName)) { //Create word document Document document = new Document(); document.LoadFromFile(fileName,FileFormat.Doc,this.textBox1.Text); //Save doc file. document.SaveToFile("Sample.doc", FileFormat.Doc); //Launching the MS Word file. WordDocViewer("Sample.doc"); } } private string OpenFile() { openFileDialog1.Filter = "Word Document (*.doc)|*.doc"; openFileDialog1.Title = "Choose a document to Decrypt"; openFileDialog1.RestoreDirectory = true; if (openFileDialog1.ShowDialog() == DialogResult.OK) { return openFileDialog1.FileName; } return string.Empty; } private void WordDocViewer(string fileName) { try { System.Diagnostics.Process.Start(fileName); } catch { } }
Private Sub button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles button1.Click Dim fileName As String = OpenFile() If Not String.IsNullOrEmpty(fileName) Then 'Create word document Dim document_Renamed As New Document() document_Renamed.LoadFromFile(fileName,FileFormat.Doc,Me.textBox1.Text) 'Save doc file. document_Renamed.SaveToFile("Sample.doc", FileFormat.Doc) 'Launching the MS Word file. WordDocViewer("Sample.doc") End If End Sub Private Function OpenFile() As String openFileDialog1.Filter = "Word Document (*.doc)|*.doc" openFileDialog1.Title = "Choose a document to Decrypt" openFileDialog1.RestoreDirectory = True If openFileDialog1.ShowDialog() = DialogResult.OK Then Return openFileDialog1.FileName End If Return String.Empty End Function Private Sub WordDocViewer(ByVal fileName As String) Try Process.Start(fileName) Catch End Try End Sub
Published in
Protect
Thursday, 22 July 2010 07:02
Word To Rtf in C#, VB.NET
The sample demonstrates how to Convert Word to RTF.
private void button1_Click(object sender, EventArgs e) { //Create word document Document document = new Document(); document.LoadFromFile(@"..\..\..\..\..\..\Data\FindAndReplace.doc"); //Save doc file. document.SaveToFile("Sample.rtf", FileFormat.Rtf); //Launching the MS Word file. WordDocViewer("Sample.rtf"); } private void WordDocViewer(string fileName) { try { System.Diagnostics.Process.Start(fileName); } catch { } }
Private Sub button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles button1.Click 'Create word document Dim document_Renamed As New Document() document_Renamed.LoadFromFile("..\..\..\..\..\..\Data\FindAndReplace.doc") 'Save doc file. document_Renamed.SaveToFile("Sample.rtf", FileFormat.Rtf) 'Launching the MS Word file. WordDocViewer("Sample.rtf") End Sub Private Sub WordDocViewer(ByVal fileName As String) Try Process.Start(fileName) Catch End Try End Sub
Published in
Convertors
Thursday, 22 July 2010 06:52
Word To Image in C#, VB.NET
The sample demonstrates how to save a Word document to image with Spire.Doc.
private void button1_Click(object sender, EventArgs e) { //Create word document Document document = new Document(); document.LoadFromFile(@"..\..\..\..\..\..\Data\FindAndReplace.doc"); //Save doc file. Image img = document.SaveToImages(0, ImageType.Bitmap); img.Save("sample.bmp"); //Launching the image file. WordDocViewer("sample.bmp"); } private void WordDocViewer(string fileName) { try { System.Diagnostics.Process.Start(fileName); } catch { } }
Private Sub button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles button1.Click 'Create word document Dim document_Renamed As New Document() document_Renamed.LoadFromFile("..\..\..\..\..\..\Data\FindAndReplace.doc") 'Save doc file. Dim img As Image = document_Renamed.SaveToImages(0, ImageType.Bitmap) img.Save("sample.bmp") 'Launching the image file. WordDocViewer("sample.bmp") End Sub Private Sub WordDocViewer(ByVal fileName As String) Try Process.Start(fileName) Catch End Try End Sub
Published in
Convertors
Thursday, 22 July 2010 06:48
Word To Html in C#, VB.NET
The sample demonstrates how to Convert Word to HTML.
private void button1_Click(object sender, EventArgs e) { //Create word document Document document = new Document(); document.LoadFromFile(@"..\..\..\..\..\..\Data\FindAndReplace.doc"); //Save doc file. document.SaveToFile("Sample.html", FileFormat.Html); //Launching the MS Word file. WordDocViewer("Sample.html"); } private void WordDocViewer(string fileName) { try { System.Diagnostics.Process.Start(fileName); } catch { } }
Private Sub button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles button1.Click 'Create word document Dim document_Renamed As New Document() document_Renamed.LoadFromFile("..\..\..\..\..\..\Data\FindAndReplace.doc") 'Save doc file. document_Renamed.SaveToFile("Sample.html", FileFormat.Html) 'Launching the MS Word file. WordDocViewer("Sample.html") End Sub Private Sub WordDocViewer(ByVal fileName As String) Try Process.Start(fileName) Catch End Try End Sub
Published in
Convertors