vb.net和c#.net保存EXCEL

 

vb.net

 

 Dim sfDialog As SaveFileDialog = New SaveFileDialog()
        sfDialog.FileName = DateTime.Now.ToString("yyyyMMddHHmmss") + ".xls"
        sfDialog.Filter = "xls | *.xls"
        Dim app As Microsoft.Office.Interop.Excel.Application = New Microsoft.Office.Interop.Excel.Application()
        If sfDialog.ShowDialog() = DialogResult.OK Then
            Try

                Dim wBooks As Microsoft.Office.Interop.Excel.Workbooks = app.Workbooks
                Dim wBook As Microsoft.Office.Interop.Excel.Workbook = wBooks.Add(True)
                Dim wSheet As Microsoft.Office.Interop.Excel.Worksheet = wBook.ActiveSheet
                Dim dt As DataTable = New DataTable()
                dt.Columns.Add("ID")
                Dim dr As DataRow = dt.NewRow()
                dr(0)