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

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