首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > .NET > C# >

急 C#DataTable导出成Execl 老是提示object未包含"get_Range"的定义

2012-08-07 
急 C#DataTable导出成Execl 总是提示object未包含get_Range的定义各位高手请帮帮忙,在下面红色区域总是

急 C#DataTable导出成Execl 总是提示object未包含"get_Range"的定义
各位高手请帮帮忙,在下面红色区域总是提示:object未包含"get_Range"的定义,导致导出数据失败
 try
  {
  System.Data.DataTable objDtResult = new System.Data.DataTable();
  objDtResult.Columns.Add("姓名");
  objDtResult.Columns.Add("性别");
  objDtResult.Columns.Add("年龄");
  objDtResult.Columns.Add("身份证号");

  objDtResult.Columns.Add("职业工种");

  objDtResult.Columns.Add("工作单位");

  objDtResult.Columns.Add("套餐名称");

  objDtResult.Columns.Add("企业分组");

  //指定数据源
  string m_strSerName = string.Empty;//套餐名
  string m_strGroup = string.Empty;//分组名
  string m_strSex = "男,女";
  string m_strEnterprise = this.m_objViewer.m_dgvEnterpriseDetail.Rows[0].Cells["entname_vchr"].Value.ToString();
  for (int intI = 0; intI < this.m_objViewer.m_dgvEnterpriseDetail.Rows.Count; intI++)
  {
  if (intI == 0)
  {
  m_strSerName = this.m_objViewer.m_dgvEnterpriseDetail.Rows[intI].Cells["sername_vchr"].Value.ToString();
  m_strGroup = this.m_objViewer.m_dgvEnterpriseDetail.Rows[intI].Cells["entgroupname_vchr"].Value.ToString();
  }
  else
  {
  m_strSerName += "," + this.m_objViewer.m_dgvEnterpriseDetail.Rows[intI].Cells["sername_vchr"].Value.ToString();
  m_strGroup += "," + this.m_objViewer.m_dgvEnterpriseDetail.Rows[intI].Cells["entgroupname_vchr"].Value.ToString();
  }
  }
  string saveFileName = "";
  SaveFileDialog saveDialog = new SaveFileDialog();
  saveDialog.DefaultExt = "xls";
  saveDialog.Filter = "Excel文件|*.xls";
  saveDialog.FileName = "";
  saveDialog.ShowDialog();
  saveFileName = saveDialog.FileName;
  if (saveFileName.IndexOf(":") < 0) return; //被点了取消 
  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 

  //新方法
  iCare.Pub.Utility.clsExcelExporter m_objExcelExporter = new Pub.Utility.clsExcelExporter();
  m_objExcelExporter.m_mthExport(saveFileName);

  //写入标题
  for (int i = 0; i < objDtResult.Columns.Count; i++) 
  {
  worksheet.Cells[1, i + 1] = objDtResult.Columns[i].ColumnName;//myDGV.Columns[i].HeaderText;


  }
  //指定格式
  worksheet.get_Range(worksheet.Cells[2, 2], worksheet.Cells[1000, 2]).Validation.Add(Microsoft.Office.Interop.Excel.XlDVType.xlValidateList, Microsoft.Office.Interop.Excel.XlDVAlertStyle.xlValidAlertStop, Type.Missing, m_strSex, Type.Missing);
  worksheet.get_Range(worksheet.Cells[2, 6], worksheet.Cells[1000, 6]).Validation.Add(Microsoft.Office.Interop.Excel.XlDVType.xlValidateList, Microsoft.Office.Interop.Excel.XlDVAlertStyle.xlValidAlertStop, Type.Missing, m_strEnterprise, Type.Missing);
  worksheet.get_Range(worksheet.Cells[2, 7], worksheet.Cells[1000, 7]).Validation.Add(Microsoft.Office.Interop.Excel.XlDVType.xlValidateList, Microsoft.Office.Interop.Excel.XlDVAlertStyle.xlValidAlertStop, Type.Missing, m_strSerName, Type.Missing);
  worksheet.get_Range(worksheet.Cells[2, 8], worksheet.Cells[1000, 8]).Validation.Add(Microsoft.Office.Interop.Excel.XlDVType.xlValidateList, Microsoft.Office.Interop.Excel.XlDVAlertStyle.xlValidAlertStop, Type.Missing, m_strGroup, Type.Missing);
  worksheet.Columns.EntireColumn.AutoFit();//列宽自适应
  if (saveFileName != "")
  {
  try
  {
  workbook.Saved = true;
  workbook.SaveCopyAs(saveFileName);
  //fileSaved = true;
  }
  catch (Exception ex)
  {
  MessageBox.Show("导出文件时出错,文件可能正被打开!\n" + ex.Message);
  }

  }
  xlApp.Quit();
  xlApp = null;
  GC.Collect();//强行销毁 
  MessageBox.Show("操作成功", "提示", MessageBoxButtons.OK);
  }

[解决办法]
参考:
“呵呵,就应当用Range这个才对。“
http://topic.csdn.net/u/20101206/09/81a314d4-f655-41fc-9766-575668a51bb3.html
[解决办法]
worksheet.get_Range((object)worksheet.Cells[2, 2]
我用这个解决了问题

热点排行