VB.NET向Excel写入并保存数据

原代码已经经过测试通过，有问题或者有更佳的代码，上传一起学习

 

Private Sub bttnToExcel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttnToExcel.Click

        'DataGridView1导出到Excel

 

        If DataGridView1.Rows.Count = 0 Then

            MsgBox("数据列表中没有数据！", MsgBoxStyle.OkOnly, "温馨提示！")

            Exit Sub

        Else

            Dim strFName As String

            strFName = "G:/Temperature/Temperature" & Format(Now, "yyyyMMddhhmmss") & ".xls"   '" & Now.ToString("yyMMddhhmmss") & "

            Dim xlsApp As New Excel.Application

            Dim xlsBook As Excel.Workbook

            Dim xlsSheet As Excel.Worksheet

            Try

                xlsApp = CreateObject("Excel.Application&