全部答案

2017-07-26 01:54:20

•   最近，在做一个小项目时，需要用到WORD/EXCEL（目前只针对OFFICE2003）文档中内容的替换，在网上搜寻了一番，找到了一些解决方法，自己再整理了一下，记录出来与大家共享。
  1、在项目的引用中添加WORD和EXCEL的COM引用：Microsoft。
    Word 11。0 Object Library和Microsoft。Excel 11。0 Object Library；
  2、在文件的USING部分加入以下命名空间：
  using Microsoft。Office。Core;
  using Microsoft。
    Office。Interop。Word;
  using Microsoft。Office。Interop。Excel;
  using System。IO;
  using System。Reflection;
  3、定义WORD和EXCEL内容替换函数：
  private void WordReplace(string filePath, string strOld, string strNew)
  {
  Microsoft。
    Office。Interop。Word。Application app = new Microsoft。Office。Interop。Word。ApplicationClass();
  object nullobj = System。Reflection。
    Missing。Value;
  object file = filePath;
  Microsoft。Office。Interop。Word。Document doc = app。Documents。Open(
  ref file, ref nullobj, ref nullobj,
  ref nullobj, ref nullobj, ref nullobj,
  ref nullobj, ref nullobj, ref nullobj,
  ref nullobj, ref nullobj, ref nullobj,
  ref nullobj, ref nullobj, ref nullobj, ref nullobj);
  doc。
    Content。Text = doc。Content。Text。Replace(strOld, strNew);
  doc。Content。AutoFormat();
  Microsoft。Office。Interop。Word。Range range = null;
  doc。
    Close(ref nullobj, ref nullobj, ref nullobj);
  app。Quit(ref nullobj, ref nullobj, ref nullobj);
  }
  private void ExcelReplace(string filePath, string strOld, string strNew)
  {
  Microsoft。
    Office。Interop。Excel。Application excel = new Microsoft。Office。Interop。Excel。ApplicationClass();
  excel。Visible = false;
  string modelFile = filePath;
  //文件名
  Workbook wb = excel。
    Workbooks。_Open(modelFile, Missing。Value, Missing。Value, Missing。Value, Missing。Value
  , Missing。Value, Missing。Value, Missing。
    Value, Missing。Value
  , Missing。Value, Missing。Value, Missing。Value, Missing。Value);
  Worksheet xSheet = (Worksheet)wb。Sheets[1];
  int icount = wb。
    Sheets。Count;
  for (int i = 1; i <= icount; i++)
  {
  try
  {
  xSheet = (Worksheet)wb。Sheets[i];
  object what = strOld;
  //查找字符串
  object retxt = strNew; //替换字符串
  xSheet。
    Cells。Replace(what, retxt, Missing。Value, Missing。Value, Missing。Value, Missing。Value, Missing。Value, Missing。Value);
  }
  catch
  {
  }
  }
  wb。
    Save();
  NAR(xSheet);
  wb。Close(false, Missing。Value, Missing。Value);
  NAR(wb);
  excel。Quit();
  NAR(excel);
  System。GC。Collect();
  }
  private void NAR(object o)
  {
  try
  {
  System。
    Runtime。InteropServices。Marshal。ReleaseComObject(o);//强制释放一个对象
  }
  catch
  {
  }
  finally
  {
  o = null;
  }
  }
  4、代码中直接调用这两个函数即可。
    

  全部
  

  A***

  2017-07-26 01:54:20

  53 8 评论

  分享
  提交评论