1

以下はModule1.basを作成し、コードを保存しています。「Thisworkbook」からマクロをトリガーする以下のコードを追加したいと思います。

Thisworkbook に Workbook_Open() を追加するにはどうすればよいですか?

sCode ="Private Sub Workbook_Open()\r\n" + "UserForm1.Show\r\n" + "end sub"

using Excel = Microsoft.Office.Interop.Excel;
using VBIDE = Microsoft.Vbe.Interop;
VBIDE.VBComponent oModule;
String sCode;
oModule = wb.VBProject.VBComponents.Add(VBIDE.vbext_ComponentType.vbext_ct_StdModule);
sCode ="Private Sub Workbook_Open()\r\n" +
                  "UserForm1.Show\r\n" +
                  "end sub"
oModule.CodeModule.AddFromString(sCode);
4

1 に答える 1

0
var workbookMainModule = wkBk.VBProject.VBComponents.Item("ThisWorkbook");
    workbookMainModule.CodeModule.AddFromString(sCode);
于 2012-08-22T08:31:33.913 に答える