如何将DataGrid中的数据导入到Excel中

JacksonH 2003-05-26 06:26:36

我在Windows Form中的DataGrid绑定了一个DataView，可以动态隐藏DataGrid中的列内容，怎样将DataGrid中的当前显示内容导入（不包含隐藏列）到Excel中？

...全文

160 12 打赏收藏转发到动态举报

写回复

用AI写文章

12 条回复

切换为时间正序

请发表友善的回复…

发表回复

cuike519 2003-09-09

打赏
举报

You refer to "http://www.dotnet247.com/247reference/msgs/26/132455.aspx"!
Maybe help you!

bluenight911 2003-09-09

打赏
举报

datagrid和excel的源使用同一个datatable.实现两个同时更新,起到的效果是一样的.

cloud_scorpion 2003-08-06

打赏
举报

直接用前端脚本，将DataGrid控件作为一个Table来看待，就可导出到excel了

ltach 2003-05-27

打赏
举报

供您参考！
public object oDataSourse;
public object[] oDataRow = new object [100] ;
public int i;
string sConn = "server=HEHE; uid=sa; pwd=; database=bookstore";
string sComm = "SELECT * FROM book_detail";
SqlDataAdapter DataAdapter =new SqlDataAdapter(sComm,sConn);
DataSet ds = new DataSet ();
DataAdapter.Fill(ds,"book_detail");

oDataSourse = ds.Tables [0].DefaultView ;

DataTable dt = ds.Tables [0];

for(i = 0 ;i <=9 ;i++)
{
oDataRow[i] = dt.Rows[0][i];//第0行任意列！
}

hzg_yujia 2003-05-27

打赏
举报

JacksonH(傲清风) ,你可以将这个DataTable复制一份，用DataTable.Copy();
然后将复制后的DataTable中的相关列（需要隐藏的）删除，然后再导出。

SmallCase 2003-05-27

打赏
举报

密切关注

JacksonH 2003-05-27

打赏
举报

呵呵，雨佳，谢谢你提供了这条思路，我也想过，但是考虑到这样会引起不必要的内存开销，如果有相当多的数据，这样会产生性能瓶颈，所以没敢用，不过我们的思路还是不谋而合了：）

晓：对不起，我没怎么看明白你这段代码的意图，不好意思。

我现在只能控制DataGrid的样式，最大的障碍是不能将标题列的属性对应到数据表的行中，理论上应该是可以对应起来进行循环操作，不导出隐藏列，可我却找不到方法，所以希望大家能够共同思考帮我把这个问题解决掉！

JacksonH 2003-05-26

打赏
举报

楼上的没事，谢谢参与

JacksonH 2003-05-26

打赏
举报

由于我不能删除隐藏了的列，还需要重新显示它们，但如果通过数据表来操作它，确是将表中所有的内容都导出了，而我的目的却是只将当前DataGrid中显示的列导出，而不包含隐藏的列

netwan 2003-05-26

打赏
举报

不好意思,投错稿了,才发现这里是.net技术区,我那代码是vb写的.i 'm sorry.

netwan 2003-05-26

打赏
举报

我用过的一个例子:
Sub ExportExcelRecordset(Adorecordset As Recordset)
On Error GoTo err_handle
Dim excelsheet As Object
MDImain.StatusBar1.Panels(1).Text = "正在启动EXCEL，请稍侯...."
Set excelsheet = CreateObject("excel.application")
excelsheet.Workbooks.Add
excelsheet.Visible = True
Adorecordset.MoveFirst
Dim rows As Long, cols As Long
Dim Row As Long, Col As Long
rows = Adorecordset.RecordCount
cols = Adorecordset.Fields.Count
For Col = 0 To cols - 1
excelsheet.Cells(1, Col + 1).Value = Adorecordset.Fields(Col).name
Next
For Row = 2 To rows + 1
For Col = 0 To cols - 1
excelsheet.Cells(Row, Col + 1).Value = IIf(IsNull(Adorecordset.Fields(Col).Value), "", Adorecordset.Fields(Col).Value)
Next
Adorecordset.MoveNext
Next

MDImain.StatusBar1.Panels(1).Text = "就绪"
Exit Sub
Screen.MousePointer = 0
Exit Sub

err_handle:
If err.Number = 1004 Then
MsgBox "因Excel被用户关闭而中断输出!", vbInformation
Else
Resume Next
End If
Screen.MousePointer = 0
End Sub

coollzh 2003-05-26