这次做机房收费系统，正好赶上和小伙伴们做项目，学到了很多，在导出Excel的基础上添加了一些以前没有尝试过的功能，供大家参考。
Dim MyExcel As New Microsoft.Office.Interop.Excel.Application() '定义并实例化excel工作表 MyExcel.Application.Workbooks.Add(True) '打开excel工作簿,显示excel界面
<span style="white-space:pre"> </span>MyExcel.ActiveWorkbook.Password = "123" 给excel设置密码
<span style="white-space:pre"> </span>MyExcel.Visible = False 'excel设置为不可见的 Dim Col As Integer '定义整形变量
设置单元格格式：
MyExcel.WindowState = Excel.XlWindowState.xlMaximized '窗体最大化显示 MyExcel.Cells.HorizontalAlignment = 3 MyExcel.Cells.Font.Size = 18 MyExcel.Range("A2", "G2").ColumnWidth = 20 MyExcel.Cells(1, 3).value = "学生充值记录" '表头内容，在第一行，第三列 MyExcel.Range("A1", "G1").Font.Bold = True '字体加粗 MyExcel.Range("A1", "G1").Font.ColorIndex = 32 '字体颜色蓝色 MyExcel.Range("A1", "G1").Font.Size = 25 '字号25 MyExcel.Range("A1", "G1").Merge() '合并单元格
修改Excel的标题名：
MyExcel.ActiveWindow.Caption = "学生充值记录" '在打开的excel的名称上显示：学生充值记录 MyExcel.Caption = "加油，加油" '显示的后缀
导出Excel：
Try For Col = 0 To DataGridView1.ColumnCount - 1 'col的变化范围 MyExcel.Cells(2, Col + 1) = Me.DataGridView1.Columns(Col).HeaderText '从数据库中对应列 Next Col Catch ex As Exception MsgBox(ex.Message) '弹出捕获的消息 Exit Sub End Try Dim i As Integer '定义整型行变量 i Dim j As Integer '定义整型列变量 j Try For i = 0 To DataGridView1.RowCount - 1 For j = 0 To DataGridView1.ColumnCount - 1 '列变量取值范围 If Me.DataGridView1(j, i).Value IsNot System.DBNull.Value Then MyExcel.Cells(i + 3, j + 1) = DataGridView1(j, i).Value.ToString() '将datagridview中的数据添加到excel表中 End If Next j Next i MsgBox("导出成功！") Catch ex As Exception MsgBox(ex.Message) '弹出捕获的消息 End Try
将导出的Excel保存到指定的位置，并修改导出的Excel的文件名
（为实现这个功能，查了一天多的时间）
MyExcel.ActiveWorkbook.SaveAs("D:\MyDcment\" & Filename:="学生充值记录" & ".xls")
总结：
没有做不出来的程序，只有下的功夫不够的人。
多问同学，多百度。。。
