//注意引用excel的命名空间,点击按钮导出
ppt
关于艾滋病ppt课件精益管理ppt下载地图下载ppt可编辑假如ppt教学课件下载triz基础知识ppt
privatevoidbutton1_Click(objectsender,EventArgse){stringfileName="";stringsaveFileName="";SaveFileDialogsaveDialog=newSaveFileDialog();saveDialog.DefaultExt="xls";saveDialog.Filter="Excel文件|*.xls";saveDialog.FileName=fileName;saveDialog.ShowDialog();saveFileName=saveDialog.FileName;if(saveFileName.IndexOf(":")<0)return;//被点了取消Microsoft.Office.Interop.Excel.ApplicationxlApp=newMicrosoft.Office.Interop.Excel.Application();if(xlApp==null){MessageBox.Show("无法创建Excel对象,您的电脑可能未安装Excel");return;}Microsoft.Office.Interop.Excel.Workbooksworkbooks=xlApp.Workbooks;Microsoft.Office.Interop.Excel.Workbookworkbook=workbooks.Add(Microsoft.Office.Interop.Excel.XlWBATemplate.xlWBATWorksheet);Microsoft.Office.Interop.Excel.Worksheetworksheet=(Microsoft.Office.Interop.Excel.Worksheet)workbook.Worksheets[1];//取得sheet1//写入标题for(inti=0;i<dataGridView1.ColumnCount;i++){worksheet.Cells[1,i+1]=dataGridView1.Columns[i].HeaderText;}//写入数值for(intr=0;r<dataGridView1.Rows.Count;r++){for(inti=0;i<dataGridView1.ColumnCount;i++){worksheet.Cells[r+2,i+1]=dataGridView1.Rows[r].Cells[i].Value;}System.Windows.Forms.Application.DoEvents();}worksheet.Columns.EntireColumn.AutoFit();//列宽自适应MessageBox.Show(fileName+"的简明资料保存成功","提示",MessageBoxButtons.OK);if(saveFileName!=""){try{workbook.Saved=true;workbook.SaveCopyAs(saveFileName);//fileSaved=true;}catch(Exceptionex){//fileSaved=false;MessageBox.Show("导出文件时出错,文件可能正被打开!\n"+ex.Message);}}xlApp.Quit();GC.Collect();//强行销毁}