日期:2014-05-18  浏览次数:20906 次

datagridview的部分列导出到excel
有一个datagridview里面有12列,有几个列为隐藏列。
我要的是把datagridview里的部分列导出成excel。就是说有选择性的导出。
如果我直接用datagridview作为参数导出的话,我在选择了导出的字段后,
原来的datagridview里的字段也跟着改变,因为datagridview为引用类型。
这样就不是想要的效果了。
我希望选择的列后原来的datagridview的显示不变,有什么办法解决?
麻烦能者援手。谢谢!

------解决方案--------------------
有一个比较简单的做法,把要输出的按插入tab建的格式排好,然后通过剪贴板复制粘贴到excel,就会自动根据tab分割到3列n行

C# code
String TempFileName = Path.GetTempFileName();
                                    SW = new StreamWriter(TempFileName);
                                    foreach (DataGridViewRow DR in GvLog.Rows)
                                    {
                                        //  假设输出1,2,5 列
                                        SW.WriteLine(DR.Cells["第一列"].Value.ToString() + Convert.ToChar((int)Keys.Tab)
                                            + DR.Cells["第二列"].Value.ToString() + Convert.ToChar((int)Keys.Tab)
                                            + DR.Cells["第五列"].Value.ToString());                                        );
                                    }
                                    SW.Close();
                                    SW = null;
                                    StreamReader SR = new StreamReader(TempFileName);
                                    Clipboard.Clear();
                                    Clipboard.SetText(SR.ReadToEnd(), TextDataFormat.UnicodeText);
                                    Excel.Application ExcelApplication = new Excel.Application();
                                    Excel.Workbooks ExcelWorkbooks = ExcelApplication.Workbooks;
                                    Excel.Workbook ExcelWorkbook = ExcelWorkbooks.Add(Missing.Value);
                                    Excel.Worksheet ExcelWorksheet = (Excel.Worksheet)ExcelWorkbook.ActiveSheet;
                                    ExcelWorksheet.Paste(Missing.Value, Missing.Value);
                                    ExcelWorkbook.SaveAs(DlgSaveFile.FileName, Missing.Value, Missing.Value, Missing.Value, Missing.Value,
                                        Missing.Value, Excel.XlSaveAsAccessMode.xlShared, Missing.Value,
                                        Missing.Value, Missing.Value, Missing.Value, Missing.Value);
                                    FreeExcelObject(ExcelWorksheet);
                                    ExcelWorkbook.Close(Missing.Value, Missing.Value, Missing.Value);
                                    FreeExcelObject(ExcelWorkbook);
                                    FreeExcelObject(ExcelWorkbooks);
                                    ExcelApplication.Quit();
                                    FreeExcelObject(ExcelApplication);

------解决方案--------------------
C# code
根据你要的列,for循环去写,参考
  Microsoft.Office.Interop.Excel.Application xlApp = new Microsoft.Office.Interop.Excel.Application();
                if (xlApp == null)
                {
                    MessageBox.Show("无法创建Excel对象,可能您的机器未安装Excel");
                    return;
                }
                Microsoft.Office.Interop.Excel.Workbooks workbooks = xlApp.Workbooks;
                Microsoft.Office.Interop.Excel.Workbook workbook = workbooks.Add(Microsoft.Office.Interop.Excel.XlWBATemplate.xlWBATWorksheet);
                Microsoft.Office.Interop.Excel.Worksheet worksheet = (Microsoft.Office.Interop.Excel.Worksheet)workbook.Worksheets[1];//取得sheet1 
                Microsoft.Office.Interop.Excel.Range range;
                xlApp.Visible = false;
                worksheet.Cells[1, 1] = "抽奖结果" + this.cmbCity.SelectedItem.ToString() + "(" + DateTime.Now.ToString("yyyy-MM-dd HH") + ")";

                worksheet.get_Range(worksheet.Cells[1, 1], worksheet.Cells[1, 7]).MergeCells = true; //合并单元格
                worksheet.get_Range(worksheet.Cells[1