Dim report As String="<html><body><table>........</table></body></html>"
Private Sub WordToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles WordToolStripMenuItem.Click Dim sa As New SaveFileDialog sa.FileName = "report1" sa.DefaultExt = ".doc" sa.Filter = "word document (*.doc)|" If sa.ShowDialog() = DialogResult.OK Then System.IO.File.WriteAllText(sa.FileName, report) End If End Sub Private Sub ExcelToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExcelToolStripMenuItem.Click Dim sa As New SaveFileDialog sa.FileName = "report1" sa.DefaultExt = ".xls" sa.Filter = "excel workbook (*.xls)|" If sa.ShowDialog() = DialogResult.OK Then System.IO.File.WriteAllText(sa.FileName, report) End If End Sub
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)