国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 辦公 > Excel > 正文

Excel代碼教程 模板文件填充數據另存為一個文件

2024-08-23 19:58:39
字體:
來源:轉載
供稿:網友

  今天我們來分享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);來打開新文件


發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 榆树市| 蕉岭县| 七台河市| 镶黄旗| 宁德市| 万载县| 闽清县| 横山县| 泰宁县| 淮滨县| 攀枝花市| 贵州省| 香格里拉县| 贵定县| 衡南县| 青阳县| 新巴尔虎右旗| 民县| 岳阳市| 科技| 揭阳市| 昌乐县| 齐河县| 太湖县| 故城县| 沙洋县| 景泰县| 安福县| 贺州市| 清水县| 灵川县| 丰顺县| 嵊州市| 沛县| 马鞍山市| 图们市| 江口县| 九龙县| 北京市| 襄汾县| 孟州市|