CreateObject failure in VBScript in Excel 2003

Question

0.00/5 (No votes)

See more:

I am getting the following error message reported by Excel 2003.

Run-time error '-2147024894 (80070002)';

File or assembly name ZZZ, or one of its dependencies, was not found.

Here is the VBScript in Excel:

VB

Private Sub Workbook_Open()
  Dim mgr As Object
  Range("C2").Value = ""
  Range("C3").Value = ""
  Range("C4").Value = ""
  Range("C5").Value = ""
  Set mgr = CreateObject("ZZZ.X")
  If Not mgr Is Nothing Then
    Dim conn As String
    conn = mgr.GetConnectionStrWithRole("...")
    If Len(conn) > 0 Then
      Range("C2").Value = mgr...
      Range("C3").Value = mgr...
      Range("C4").Value = mgr...
      Range("C5").Value = conn
    End If
    Set mgr = Nothing
  End If
End Sub

If I put the following code in test.vbs it works:

VB

Sub Test()
  Set mgr = CreateObject("ZZZ.X")
  mgr.GetConnectionStrWithRole("...")
End Sub

call Test

If I put the following code in a 2.0 .Net Console App it works:

C++

Module Module1

  Sub Main()
    Dim u As Object
    Try
      u = CreateObject("ZZZ.X")
      Console.WriteLine("A......: {0}", u.....)
      Console.WriteLine("B......: {0}", u.....)
    Catch ex As Exception
      Console.WriteLine("EXCEPT.......: {0}", ex.Message)
    End Try
  End Sub

End Module

The ZZZ.X is a 2.0 .Net ServiceComponent

C++

X.cs as follows

namespace ZZZ
{
  [Transaction(TransactionOption.Required),ComVisible(true)]
  public sealed class X : System.EnterpriseServices.ServicedComponent
  {
    public X()
    {
    }
    // ... public methods and properties
  }
}

assembly.cs contains

...
[assembly: ComVisible(false)]
[assembly: ApplicationActivation(ActivationOption.Library)]
[assembly: ApplicationName("ZZZ")]
...

The registry contains the ZZZ.X and CLSID information. Anyone have any ideas why the Excel 2003 vbscript isn't able to create the COM object?

Posted 15-Apr-10 10:05am

Putz2008

Add a Solution

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

icestatue · Answer 1 · 2010-06-09T04:05:00

Try this I compiled a windows form into a class file by switching the compiler option to produce a Dll, then assigned these attributes to the class, registers the class as a COM interop and finally, I referenced the dll in the VB script editor under tools reference. It seems to work. The implementation here is just code so ignore it.

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Text;
using System.Windows.Forms;

namespace Tungsten
{
	[System.Runtime.InteropServices.ComVisible(true)]
	[System.Runtime.InteropServices.Guid("ba16c8e9-125d-41d3-b4ad-214095778db4")]
	[System.Runtime.InteropServices.ProgId("Tungsten.Isotope")]
	public partial class Isotope : Form
	{
		public DateTime current;
		public string timeRep;
		public string GetDateTime()
		{
			timeRep = current.ToString();
			return current.ToString();
		}
		public string TheTime
		{
			get
			{
				timeRep = current.ToString();
				return GetDateTime();
			}
		}
		public Isotope()
		{
			InitializeComponent();
			this.Show();
		}

		private void dateTimePicker1_ValueChanged(object sender, EventArgs e)
		{
			current = dateTimePicker1.Value;
		}
	}
}


/*  excel VB code HERE
Private Sub Workbook_Open()
Dim x As Tungsten.Isotope
Dim a As String

Set x = CreateObject("Tungsten.Isotope")

a = x.TheTime
a = x.GetDateTime()
a = x.timeRep


End Sub

*/