silverlight datagrid/grid导出到excel 方法

由于权限问题,此方法智能在OOB模式时使用

由于DataGrid的功能限制,要导出全部数据需要将DataGrid放在ScrollViewer中,同时不设置DataGrid高度,即DataGrid中显示全部数据行

适用于任何数据源

泛型方法,可扩展为导出DataGrid/Grid等

可自由修改,修改后请Email给我一份: azjcdy@163.com

请保留作者信息

不多说,上代码


导出方法:

        /// <summary>
        /// By: Yixuan  导出到Excel.需要将DataGrid放在ScrollViewer中,同时不设置DataGrid高度,即DataGrid中显示全部数据行
        /// </summary>
        /// <typeparam name="T">源控件类型</typeparam>
        /// <param name="custome">源控件名称(目前支持DataGrid和Grid)</param>
        public static void LaunchExcel<T>(T custome)
        {
            excel = AutomationFactory.CreateObject("Excel.Application");
            ((dynamic)excel).Visible = true;
            dynamic Excelbooks = ((dynamic)excel).workbooks;
            Excelbooks.Add();
            dynamic ExcelSheet = ((dynamic)excel).ActiveSheet;
            dynamic ExcelCell = null;
            if (custome.GetType().Name == "DataGrid")
            {
                int row = 0;
                DataGrid datagrid = custome as DataGrid;
                foreach (var p in datagrid.ItemsSource)
                {
                    int column = 0;
                    for (column = 0; column < datagrid.Columns.Count; column++)
                    {
                        ExcelCell = ExcelSheet.Cells[row + 1, column + 1];
                        if (row == 0)
                        {
                            ExcelCell.Value = datagrid.Columns[column].Header.ToString();
                        }
                        else
                        {
                            var dgcell = datagrid.Columns[column].GetCellContent(p) as TextBlock;
                            
                            ExcelCell.Value = dgcell.Text;
                        }
                    }
                    row++;
                }
            }
            else if (custome.GetType().Name == "Grid")
            {
                //Grid支持TextBlock 和 TextBox ,未详细测试,会有问题,等待你发挥才智 ^_^
                Grid grid2 = custome as Grid;
                foreach (UIElement element in grid2.Children)
                {
                    int row;
                    int column;
                    if (element.GetType().Name == "TextBlock")
                    {
                        TextBlock block = element as TextBlock;
                        row = Grid.GetRow(block);
                        column = Grid.GetColumn(block);
                        ExcelCell = ExcelSheet.Cells[row + 1, column + 1];
                        ExcelCell.Value = block.Text;
                    }
                    else if (element.GetType().Name == "TextBox")
                    {
                        TextBox box = element as TextBox;
                        row = Grid.GetRow(box);
                        column = Grid.GetColumn(box);
                        ExcelCell = ExcelSheet.Cells[row + 1, column + 1];
                        ExcelCell.Value = box.Text;
                    }
                }
            }
            excel = null;
        }

调用方法:

ExcelClass.LaunchExcel<DataGrid>(DataGrid实例);

xmal:

        <ScrollViewer Grid.Column="1" Grid.Row="1">
<sdk:DataGrid


  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
以下是将VB6.0 Datagrid中的数据导出Excel的示例代码: ``` Private Sub cmdExport_Click() Dim xlApp As Excel.Application Dim xlBook As Excel.Workbook Dim xlSheet As Excel.Worksheet Dim i As Integer Dim j As Integer ' 创建Excel应用程序对象 Set xlApp = New Excel.Application ' 创建新的工作簿 Set xlBook = xlApp.Workbooks.Add ' 获取默认工作表 Set xlSheet = xlBook.Worksheets(1) ' 复制datagrid的表头到Excel工作表 For i = 0 To DataGrid1.Columns.Count - 1 xlSheet.Cells(1, i + 1).Value = DataGrid1.Columns(i).Caption Next ' 复制datagrid的数据到Excel工作表 For i = 0 To DataGrid1.Rows.Count - 1 For j = 0 To DataGrid1.Columns.Count - 1 xlSheet.Cells(i + 2, j + 1).Value = DataGrid1.Columns(j).CellText(i) Next Next ' 显示Excel应用程序 xlApp.Visible = True ' 释放对象 Set xlSheet = Nothing Set xlBook = Nothing Set xlApp = Nothing End Sub ``` 在代码中,我们首先创建了一个Excel应用程序对象,并通过它创建了一个新的工作簿和默认的工作表。然后,我们将Datagrid的表头复制到Excel工作表的第一行,将Datagrid的数据复制到Excel工作表的后续行。最后,我们显示Excel应用程序,并释放了所有对象。 请注意,此代码需要引用Microsoft Excel 11.0 Object Library。要添加此引用,请打开项目菜单,选择引用,然后选择“Microsoft Excel 11.0 Object Library”并单击确定。如果您正在使用不同版本的Excel,请选择相应的版本。

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值