三河二奔子判了吗:打开一个Excel模板文件填充数据另存为一个文件

来源:百度文库 编辑:中财网 时间:2024/05/10 12:19:45

打开一个Excel模板文件填充数据另存为一个文件

分类: VSTO Office开发 2007-03-22 00:21 2086人阅读 评论(0) 收藏 举报 string strFileName = Environment.CurrentDirectory+@"/template/template.tpl";
    string strSaveFileName = Environment.CurrentDirectory+@"/excel/"+System.DateTime.Now.ToString().Replace(":","").Replace("-","").Replace(" ","")+@".xls";
    Excel.Application ThisApplication = new Excel.ApplicationClass(); 
    Excel.Workbook ThisWorkBook; 
    object missing = System.Reflection.Missing.Value; 
    try 
    { 
     //加载Excel模板文件
     ThisWorkBook = ThisApplication.Workbooks.Open(strFileName,missing,missing,missing,missing,missing,missing,missing,missing,missing,missing,missing,missing); 
     Excel.Worksheet ThisSheet = (Excel.Worksheet)ThisWorkBook.Sheets[1]; 
     ThisSheet.Cells[7,1] = dtEnd.ToShortDateString();
     progressBar.Value = 30;
     ThisApplication.Visible = false;
     DataRow dr = dt.Rows[0];
     for( int i=0; i     {
      ThisSheet.Cells[7,i+2] = dr[i].ToString();
      progressBar.Value +=1;
     }
     //更新数据后另存为新文件
     ThisSheet.SaveAs(strSaveFileName,missing,missing,missing,missing,missing,missing,missing,missing);
    } 
    catch{} 
    finally 
    { 
     ThisApplication.Quit(); 
     ThisWorkBook = null; 
     ThisApplication = null; 
     //dt = null;
    } 
    try
    { //打开刚才生成的Excel文件
     Excel.Workbook NewWorkBook; 
     NewWorkBook = NewApplication.Workbooks.Open(strSaveFileName,missing,missing,missing,missing,missing,missing,missing,missing,missing,missing,missing,missing); 
     Excel.Worksheet NewSheet = (Excel.Worksheet)NewWorkBook.Sheets[1]; 
     NewApplication.Visible = true;

//也可以使用System.Diagnostics.Process.Start(strSaveFileName);来打开新文件

    }