有没有办法将vba宏代码添加到excel？

Question

我对现有的宏函数有问题，所以我要做的就是将宏传递给 excel 我的意思是将函数（例如：a（））添加到 excel，然后运行函数（“a（） ") 添加。

注意：我有 excel 的路径，我必须在其中添加宏。请清楚答案。

如何做到这一点？？

提前致谢。

Answer 1

• 为您的 Office 版本安装可再发行主互操作程序集

• 添加对程序集的引用 -> 扩展 ->Microsoft.Office.Interop.Excel 和 Microsoft.VBE.Interop

  using System;
  using System.Diagnostics;
  using System.Windows.Forms;
  using Microsoft.Vbe.Interop;
  using ExcelInterop = Microsoft.Office.Interop.Excel;
  
  namespace WindowsFormsApplication1
  {
      public partial class AddExcelMacro : Form
      {
          public AddExcelMacro()
          {
              InitializeComponent();
              AddMacro();
          }
  
          public void AddMacro()
          {
              try
              {
                  // open excel file 
                  const string excelFile = @"c:\temp\VBA\test.xlsm";
                  var excelApplication = new ExcelInterop.Application { Visible = true };
                  var targetExcelFile = excelApplication.Workbooks.Open(excelFile);
  
                  // add standart module to file
                  var newStandardModule = targetExcelFile.VBProject.VBComponents.Add(vbext_ComponentType.vbext_ct_StdModule);
                  var codeModule = newStandardModule.CodeModule;
  
                  // add vba code to module
                  var lineNum = codeModule.CountOfLines + 1;
                  var macroName = "Button1_Click";
                  var codeText = "Public Sub " + macroName +"()" + "\r\n";
                  codeText += "  MsgBox \"Hi from Excel\"" + "\r\n";
                  codeText += "End Sub";
  
                  codeModule.InsertLines(lineNum, codeText);
                  targetExcelFile.Save();
  
                  // run the macro
                  var macro = string.Format("{0}!{1}.{2}", targetExcelFile.Name, newStandardModule.Name, macroName);
                  excelApplication.Run(macro);
  
                  excelApplication.Quit();
  
              }
              catch (Exception ex)
              {
                  Debug.WriteLine(ex.Message);
                  throw;
              }
          }
      }
  }