问题描述
这是很多年前写的，用于表格中的数据倒出成EXCEL。软件的运行环境是：Winxp+office2003现在客户换成了Win7+office2007。结果执行try{}内语句就出错了。请各位大侠帮忙看看。privateExcel.Applicationexcel;try{excel=newExcel.Application();excel.Application.Workbooks.Add(true);}catch{MessageBox.Show("您可能没有安装Office，请安装再使用该功能");return;}intiRow;intiCol;intcolcount=this.dataGrid1.TableStyles[0].GridColumnStyles.Count;introwcount=Convert.ToInt32(button3.Tag);for(iCol=0;iCol<colcount;iCol++){excel.Cells[1,iCol+1]=dataGrid1.TableStyles[0].GridColumnStyles[iCol].HeaderText;}for(iRow=0;iRow<rowcount;iRow++){for(iCol=0;iCol<colcount;iCol++){excel.Cells[iRow+2,iCol+1]=dataGrid1[iRow,iCol].ToString();}}excel.Visible=true;
解决方案
解决方案二：
你用到的dll是低版本的，换成高版本，支持2007的
解决方案三：
导excel直接用文件流，每列用英文逗号隔开，保存为csv格式的文件就可以了……这种方法最简单
解决方案四：
然后，我换成了WIN7+OFFICE2003也一样，不知道是什么问题
解决方案五：
publicvoidDataGridViewtoExcel(DataGridViewdataGridView1){//导出到execltry{if(dataGridView1.Rows.Count==0){toolStripStatusLabel1.Text="当前时间点没有数据，请重新选择时间范围！";}else{Microsoft.Office.Interop.Excel.Applicationexcel=newMicrosoft.Office.Interop.Excel.Application();excel.Visible=false;excel.Application.Workbooks.Add(true);for(inti=0;i<dataGridView1.Columns.Count;i++){excel.Cells[1,i+1]=dataGridView1.Columns[i].HeaderText;}for(inti=0;i<dataGridView1.Rows.Count-1;i++){for(intj=0;j<dataGridView1.Columns.Count;j++){if(dataGridView1[j,i].ValueType==typeof(string)){excel.Cells[i+2,j+1]="'"+dataGridView1[j,i].Value.ToString();}else{excel.Cells[i+2,j+1]=dataGridView1[j,i].Value.ToString();}}}Worksheetworksheet=(Worksheet)excel.ActiveSheet;worksheet.SaveAs(System.Windows.Forms.Application.StartupPath+"\excel\"+DateTime.Now.ToString("yyyyMMddHHmmss")+".xls",Missing.Value,Missing.Value,Missing.Value,Missing.Value,Missing.Value,Missing.Value,Missing.Value,Missing.Value,Missing.Value);excel.DisplayAlerts=false;excel.AlertBeforeOverwriting=false;excel.Quit();excel=null;}}catch(Exceptionex){MessageBox.Show(ex.Message,"错误提示");}}
解决方案六：
office2007的EXCEL是10版本,XLSX格式与原来的XLS不兼容要重新引用新的EXCEL的类代码结构差不多
解决方案七：
楼主可以看看这个应该会满足你
解决方案八：
引用6楼diaodiaop的回复:
楼主可以看看这个应该会满足你
dll版本已经不兼容了。用6楼的方法不是挺好吗。。
解决方案九：
把多个Excel文件汇总到一个Excel文件中privatevoidbtn_Gather_Click(objectsender,EventArgse){objectmissing=System.Reflection.Missing.Value;//定义object缺省值string[]P_str_Names=txt_MultiExcel.Text.Split(',');//存储所有选择的Excel文件名stringP_str_Name="";//存储遍历到的Excel文件名List<string>P_list_SheetNames=newList<string>();//实例化泛型集合对象，用来存储工作表名称Microsoft.Office.Interop.Excel.Applicationexcel=newMicrosoft.Office.Interop.Excel.Application();//实例化Excel对象//打开指定的Excel文件Microsoft.Office.Interop.Excel.Workbookworkbook=excel.Application.Workbooks.Open(txt_Excel.Text,missing,missing,missing,missing,missing,missing,missing,missing,missing,missing,missing,missing,missing,missing);Microsoft.Office.Interop.Excel.WorksheetnewWorksheet=(Microsoft.Office.Interop.Excel.Worksheet)workbook.Worksheets.Add(missing,missing,missing,missing);//创建新工作表for(inti=0;i<P_str_Names.Length-1;i++)//遍历所有选择的Excel文件名{P_str_Name=P_str_Names[i];//记录遍历到的Excel文件名//指定要复制的工作簿Microsoft.Office.Interop.Excel.WorkbookTempworkbook=excel.Application.Workbooks.Open(P_str_Name,missing,missing,missing,missing,missing,missing,missing,missing,missing,missing,missing,missing,missing,missing);P_list_SheetNames=GetSheetName(P_str_Name);//获取Excel文件中的所有工作表名for(intj=0;j<P_list_SheetNames.Count;j++)//遍历所有工作表{//指定要复制的工作表Microsoft.Office.Interop.Excel.WorksheetTempWorksheet=(Microsoft.Office.Interop.Excel.Worksheet)Tempworkbook.Sheets[P_list_SheetNames[j]];//创建新工作表TempWorksheet.Copy(missing,newWorksheet);//将工作表内容复制到目标工作表中}//CodeGo.net/Tempworkbook.Close(false,missing,missing);//关闭临时工作簿}workbook.Save();//保存目标工作簿workbook.Close(false,missing,missing);//关闭目标工作簿MessageBox.Show("已经将所有选择的Excel工作表汇总到了一个Excel工作表中！","提示",MessageBoxButtons.OK,MessageBoxIcon.Information);CloseProcess("EXCEL");//关闭所有Excel进程}
解决方案十：
用EXCEL本身的DLL问题挺多,需要考虑2003,2007,2010版本不同引用的DLL也不同WIN764位和32位也不同,32位DLL在64位下无法运行建议还是改成NPOI导入导出吧
解决方案十一：
如果不要求格式的话，可以参见，
解决方案十二：
用NPOI吧，