/*注意：测试过程中将执行时间设为非月末，此类放在实际中需要改成月末。改变方法是把16行的==变为!=*/
using System;
using System.Data;
using System.Data.SqlClient;
using System.Data.OleDb ;
using System.Windows.Forms;
using System.Text;
using System.IO;
using System.Reflection;
/*SQL server 2000中的电话记录以及信息发布记录打入数据导入excel文件*/
public class IntroduceExcel:System.Windows.Forms.Form
{
 public IntroduceExcel ( )
 {
  DateTime today = System.DateTime.Today;//获取当前时间
  if (today.Day==DateTime.DaysInMonth(today.Year,today.Month))
  {//如果并非月底，不执行导入
   return;
  }
  else//否则执行导入
   if (MessageBox.Show("点击确定开始导入，点击否可日后手动导入\n ", "月末电话记录，信息发布记录导入Excel程序自动开启", MessageBoxButtons.YesNo, MessageBoxIcon.Warning) == DialogResult.No)
  {
   return; }//if
  else
  {
  
   GetConnect ( "CallRecord") ; //打开数据链接，开启导入函数
   GetConnect ( "PubInfRecord") ;
   DeleteRecord("CallRecord");//清空本月的数据
   DeleteRecord("PubInfRecord");
  }//else
 }
 
 /*exel文件导入函数*/
 private void GetConnect (string origin)
 {
  SqlConnection con=creCon();//创建一个SQL 2000数据库链接
  con.Open();
  string sql="select * from "+origin+" order by NetId"; //查询数据库
  SqlDataAdapter sa=new SqlDataAdapter(sql,con);
  DataSet ds=new DataSet();
  sa.Fill(ds,origin); //填充数据
  try
  {
   Excel.Application excel = new Excel.Application ( ) ; //开启excel
   excel.Application.Workbooks.Add ( true );
   Excel.Sheets ExcelSheets = excel.Worksheets; //建立一个新的工作表
   excel.Cells[ 1 , 1 ] ="NetId（网号）";
   excel.Cells[ 1,  2 ] ="MemId(成员号)";
   excel.Cells[ 1 , 3 ] ="CurCallNum(当前打入电话)";
   excel.Cells[ 1 , 4 ] ="CompanyName（公司名）";
   excel.Cells[ 1 , 5 ] ="UpWorker（坐席人员）";
   excel.Cells[ 1 , 6 ] ="SumNumber（本月次数统计）";
   object missing=Missing.Value;
   excel.Visible =true ;     //excel文件可见
   int RoLength=ds.Tables[0].Rows.Count; //行数
   int i;
   for (i=0;i<RoLength;i++)
   {
    /*从数据库中取出电话相关信息*/
    string NetId=ds.Tables[0].Rows[i][0].ToString();
    string MemId=ds.Tables[0].Rows[i].ToString();
    string CallNumber=ds.Tables[0].Rows[i].ToString();
    string CompanyName=ds.Tables[0].Rows[i].ToString();
    string Worker=ds.Tables[0].Rows[i].ToString();
    string Number=ds.Tables[0].Rows[i].ToString();
    /*填充到excel的工作表中*/
    excel.Cells[ i+1 , 1 ]