养殖 - 种植 - 加工 - 创业 - 骗局 - 问答 - 百科 - 节气 - 民俗 - 手机版
您的当前位置: 致富创业网 > 养殖致富 > 养鹅 > [Excel代码教程,模板文件填充数据另存为一个文件]excel填充颜色快捷键

[Excel代码教程,模板文件填充数据另存为一个文件]excel填充颜色快捷键

来源:养鹅 时间:2018-08-16 点击:

今天我们来分享Excel模板代码的教程,看看如何打开一个Excel模板文件填充数据另存为一个文件。

具体代码如下呈现:

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);来打开新文件

推荐访问:文件 另存为 填充 Excel代码教程 模板文件填充数据另存为一个文件 excel填充上一行数据 excel另存为文本文件

致富创业网 www.csyzzm.com

Copyright © 2002-2018 . 致富创业网 版权所有 湘ICP备12008529号-1

Top