Home |
Search |
Today's Posts |
|
#1
![]()
Posted to microsoft.public.excel.misc
|
|||
|
|||
![]()
I don't use C# but I think this is the correction
from // Create a new VBA code module. oModule = oBook.VBProject.VBComponents.Add(VBIDE.vbext_Compo nentType.vbext_ct_StdModule); to // Create a new VBA code module. oModule = oBook.VBProject.VBComponents("ThisWorkBook") "Aerojade" wrote: I am not quite able to understand what you have explained. So am going to try to be more clear. I m trying to use a Windows Application written in C# to programmatically add a macro function into an Excel File. However when i use the following code in the button click event of my windows application: Excel.Application oExcel; Excel.Workbook oBook; VBIDE.VBComponent oModule; VBIDE.VBProject oMOD; Office.CommandBar oCommandBar; Office.CommandBarButton oCommandBarButton; String sCode; Object oMissing = System.Reflection.Missing.Value; // Create an instance of Excel. oExcel = new Excel.Application(); // Add a workbook. oBook = oExcel.Workbooks.Open("C:\\test.xls"); //oModule = oMOD.VBComponents("ThisWorkbook"); // Create a new VBA code module. oModule = oBook.VBProject.VBComponents.Add(VBIDE.vbext_Compo nentType.vbext_ct_StdModule); sCode = "Private Sub Workbook_BeforePrint(Cancel As Boolean)\r\n" + " msgbox \"VBA Macro called\"\r\n" + "Cancel=true\r\n"+ "end sub"; // Add the VBA macro to the new code module. oModule.CodeModule.AddFromString(sCode); MessageBox.Show("Macro added"); oExcel.Visible = true; i find that it executes properly but what it does is... it adds a new module to the excel file's macro and then writes the function there. However i want to write my code into the "ThisWorkbook" part of the VBA project because it is only there that i can control the events occuring in Excel. I know it can be done usig an addin... but i want to perform it this way instead. Please Help. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
Excel - Golf - how to display "-2" as "2 Under" or "4"as "+4" or "4 Over" in a calculation cell | Excel Discussion (Misc queries) | |||
=SUM((C2:C7000="Friday")*(F2:F7000="8:00:00 AM")) not adding | Excel Discussion (Misc queries) | |||
How to do the "REDO" action in Excel programatically. | Excel Discussion (Misc queries) | |||
Macro to concatenate into "B1" B2 thru B"x" based on new data in "Col A" | Excel Discussion (Misc queries) | |||
Adding A "Timer" to a Macro | Excel Worksheet Functions |