用C#为Excel创建个人宏工作薄(原创)-阿里云开发者社区

用C#为Excel创建个人宏工作薄(原创)

2017-08-27 1297

版权

本文内容由阿里云实名注册用户自发贡献，版权归原作者所有，阿里云开发者社区不拥有其著作权，亦不承担相应法律责任。具体规则请查看《阿里云开发者社区用户服务协议》和《阿里云开发者社区知识产权保护指引》。如果您发现本社区中有涉嫌抄袭的内容，填写侵权投诉表单进行举报，一经查实，本社区将立刻删除涉嫌侵权内容。

简介：

以前一直是用C#直接操作Excel,但是发现性能无比低下,最近发现用Excel中的宏可以高速的完成批处理的功能,于是决定写一个用C#为Excel文件创建宏的程序,工程如下:

    
   
 
    using
     System;

    using
     System.IO;

    using
     System.Runtime.InteropServices;

    using
     System.Reflection;

    using
     System.Text;



    using
     Office 
    =
     Microsoft.Office.Core;

    using
     VBDE 
    =
     Microsoft.Vbe.Interop;

    using
     Excel 
    =
     Microsoft.Office.Interop.Excel;



    namespace
     ConsoleApplication1
 {


    class
     Class1
 {

 [STAThread]

    static
     
    void
     Main(
    string
    [] args)
 {

    string
     MyFile 
    =
     Path.GetFullPath(
    "
    .
    "
    ) 
    +
     
    @"
    \sample.xls
    "
    ;
 CreateWorkbook(MyFile,GetMacro()); 
 Console.WriteLine(
    "
    File Saved to 
    "
     
    +
     MyFile);
 Console.ReadLine();
 }


    #region
     Get Macro
    

    private
     
    static
     
    string
     GetMacro()
 {
 StringBuilder sb 
    =
     
    new
     StringBuilder();

 sb.Append(
    "
    Sub FormatSheet()
    "
     
    +
     
    "
    \n
    "
    );
 sb.Append(
    "
     msgbox \
    "
    http:
    //
    www.cnblogs.com/huangcong/\"\r\n");
    

    sb.Append(
    "
    End Sub
    "
    );


    return
     sb.ToString();
 }

    #endregion
    


    #region
     Create Workbook
    

    private
     
    static
     
    void
     CreateWorkbook(
    string
     FileName,
    string
     Macro)
 {

 Excel.Application xl 
    =
     
    null
    ;
 Excel._Workbook wb 
    =
     
    null
    ;
 Excel._Worksheet sheet 
    =
     
    null
    ;
 VBDE.VBComponent module 
    =
     
    null
    ;

    bool
     SaveChanges 
    =
     
    false
    ;



    try
    
 {


    if
     (File.Exists(FileName)) { File.Delete(FileName); }

 GC.Collect(); 

 xl 
    =
     
    new
     Excel.Application();
 xl.Visible 
    =
     
    false
    ;

 wb 
    =
     (Excel._Workbook)(xl.Workbooks.Add( Missing.Value ));
 sheet 
    =
     (Excel._Worksheet)wb.ActiveSheet;

 module 
    =
     wb.VBProject.VBComponents.Add(VBDE.vbext_ComponentType.vbext_ct_StdModule);
 module.CodeModule.AddFromString(Macro);

 xl.Visible 
    =
     
    false
    ;
 xl.UserControl 
    =
     
    false
    ;
 SaveChanges 
    =
     
    true
    ;

 wb.SaveAs(FileName,Excel.XlFileFormat.xlWorkbookNormal,

    null
    ,
    null
    ,
    false
    ,
    false
    ,Excel.XlSaveAsAccessMode.xlShared,

    false
    ,
    false
    ,
    null
    ,
    null
    ,
    null
    );

 }

    catch
    ( Exception theException ) 
 {
 String msg;
 msg 
    =
     
    "
    Error: 
    "
    ;
 msg 
    =
     String.Concat( msg, theException.Message );
 msg 
    =
     String.Concat( msg, 
    "
     Line: 
    "
     );
 msg 
    =
     String.Concat( msg, theException.Source ); 
 Console.WriteLine(msg);
 }

    finally
    
 {


    try
    
 {
 xl.Visible 
    =
     
    false
    ;
 xl.UserControl 
    =
     
    false
    ;
 wb.Close(SaveChanges,
    null
    ,
    null
    );
 xl.Workbooks.Close();
 }

    catch
     { }

 xl.Quit();


    if
     (module 
    !=
     
    null
    ) { Marshal.ReleaseComObject (module); }

    if
     (sheet 
    !=
    null
    ) { Marshal.ReleaseComObject (sheet); }

    if
     (wb 
    !=
    null
    ) { Marshal.ReleaseComObject (wb); }

    if
     (xl 
    !=
    null
    ) { Marshal.ReleaseComObject (xl); }

 module 
    =
     
    null
    ;
 sheet
    =
    null
    ;
 wb
    =
    null
    ;
 xl 
    =
     
    null
    ;
 GC.Collect(); 
 }

 }

    #endregion
    
 }
 }
 
   

    
   