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) = "asdf"
dt.Rows.Add(dr)
For index = 0 To dt.Rows.Count - 1
wSheet.Cells(index + 1, index + 1) = dt.Rows(index)(index)
&nb