Question

vb.net问题请教高手 datagridview控件怎么将内容导出到excel

vb.net问题请教高手

datagridview控件怎么将内容导出到excel

Answer 1

我有现成的，你直接调用哈，没有时间给你看代码 Public Function daochu(ByVal x As DataGridView) As Boolean '导出到Excel函数 Try If x.Rows.Count "System.Guid" Then str(u - 1, v - 1) = x.Item(v - 1, u - 1).Value Else str(u - 1, v - 1) = x.Item(v - 1, u - 1).Value.ToString End If Next Next yy.worksheets(1).range("A2").Resize(x.Rows.Count, x.Columns.Count).Value = str '把数组一起写入Excel yy.worksheets(1).Cells.EntireColumn.AutoFit() '自动调整Excel列 ' yy.worksheets(1).name = x.TopLeftHeaderCell.Value.ToString '表标题写入作为Excel工作表名称 xx.visible = True '设置Excel可见 yy = Nothing '销毁组建释放资源 xx = Nothing '销毁组建释放资源 End If Return True Catch ex As Exception '错误处理 MessageBox.Show(Err.Description.ToString, "错误", MessageBoxButtons.OK, MessageBoxIcon.Error) '出错提示 Return False End Try End Function