原代码已经经过测试通过,有问题或者有更佳的代码,上传一起学习
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

该代码段展示了一个VB.NET应用程序如何将DataGridView中的数据导出到Excel文件。首先检查数据列表是否有数据,然后创建Excel应用,添加工作簿和工作表,并自动调整列宽。接着,它将DataGridView的列头写入工作表,再逐行填充数据。最后,保存Excel文件并关闭应用程序。在处理过程中,如果发生异常,会捕获并显示错误信息。
698

被折叠的 条评论
为什么被折叠?



