ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   "Trust Access to Visual Basic Project" checked but getting error 6 (https://www.excelbanter.com/excel-programming/428059-trust-access-visual-basic-project-checked-but-getting-error-6-a.html)

AsimHussain

"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
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


All times are GMT +1. The time now is 01:26 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com