View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Homey Homey is offline
external usenet poster
 
Posts: 143
Default "Trust Access to Visual Basic Project" checked but getting error 6

Now that I have it checked

after that and you close excel is it still checked when you start excel
again?

"AsimHussain" wrote in message
...
| Hello,
|
| I have a C# service which basically looks at a directory and if it finds
any
| .XLS (2003) file, it would run a macro to save that file as an HTML (with
| interaction) somewhere else.
|
| Please note that when I run the service in Debug mode, it works fine,
| however, when I build a release version, and run it , the service always
| fails giving the following error:
|
| "Programmatic access to Visual Basic Project is not trusted"
|
| I have looked this up on the internet and they all said that the work
around
| is to check the "Trust Access to Visual Basic Project" in Excel 2003,
| Tools--Macro--Security--Trusted Publishers.
|
| Now that I have it checked (and the minimum macro security enabled), I am
| still not able to get the service to work!! and I am still getting the
exact
| same error message.
|
| I would appreciate if you could help me out here.
|
| The code for executing the macro is given below:
|
|
| Excel.Application xl = null;
| Excel._Workbook wb = null;
| Excel._Worksheet sheet = null;
| VBIDE.VBComponent module = null;
|
| xl = new Excel.Application();
| wb = xl.Workbooks._Open(savePath + @"\workbook\" +
|
fileName,Missing.Value,Missing.Value,Missing.Value ,Missing.Value,Missing.Value,Missing.Value,Missing .Value,Missing.Value,Missing.Value,Missing.Value,M issing.Value,Missing.Value);
|
|
| module =
|
wb.VBProject.VBComponents.Add(VBIDE.vbext_Componen tType.vbext_ct_StdModule);
| module.CodeModule.AddFromString(macroDesc);
| Console.Out.WriteLine("run macro");
|
|
wb.Application.Run(macro,Missing.Value,Missing.Val ue,Missing.Value,Missing.Value,Missing.Value,Missi ng.Value,Missing.Value,
|
Missing.Value,Missing.Value,Missing.Value,Missing. Value,Missing.Value,Missing.Value,Missing.Value,Mi ssing.Value,Missing.Value,Missing.Value,
|
Missing.Value,Missing.Value,Missing.Value,Missing. Value,Missing.Value,Missing.Value,Missing.Value,Mi ssing.Value,
| Missing.Value,Missing.Value,Missing.Value,Missing. Value,Missing.Value);
|
| I appreciate all the help that I can get.
|
| Just for completion, the service was built using VS2003.NET on Windows
2003
| and it is making use of Excel 2003.
|
| Regards
| Asim