机房收费系统~导出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")

总结：