Open up Worksheet

alannoble26 · February 10th, 2006, 12:21 PM

Good Afternoon,

When I open a workbook in Excel 2003, it can't find the project, it says cannot find project when the user enables teh macros. It works fine in Excel 97.

How do I fix this?????

Kind regards,

Alan

maccas · February 10th, 2006, 12:35 PM

You'll have a missing VBA project reference (probably!).

Go to the VBE open up the references dialog box (Tolls -> References...). There will be a series of checked items. If the problem is as I suspect then at least one of them will say "MISSING: ...". Uncheck the missing items and recheck the similarly named items from the list of unchecked items below. Hit ok and you should be good to go.

Maccas

alannoble26 · February 10th, 2006, 12:53 PM

the 2 missing references are Microsofy Office 8.0 Library and Outlook 98

How do i get these? They were not in the list of available references

maccas · February 10th, 2006, 01:02 PM

Is there not a Microsoft Office 11.0 Object Library and a Microsoft Outlook 11.0 Object Library (assumes you're using Office 2003 - change the number for a diff version of Office)?

Failing that you could look for the libraries by pressing the Browse... button and looking for the DLL files in "C:\Program Files\Common Files\Microsoft Shared\OFFICE11".

Failing that you could rewrite the code to implement late binding rather than early binding - they you don't need references.

Maccas

alannoble26 · February 13th, 2006, 01:52 PM

The worksheet has the Office 11 Object library. How would I go about re-writing the code to implement late binding as I assume this would be an issue for all users using office 2003 in our company

Any help is greatly appreciated

maccas · February 13th, 2006, 02:24 PM

Alan,

If everyone in the office is using Office 2003 then it will be far easier to just update the references to the OFFICE 11.0 libraries and release a new version of the file. This means you wan't have to recode.

If you want to implement late binding then the best way to demonstrate how to do it is with a quick example. The basic rules here are: remove all the references to the external libraries, rewrite the declarations of all external library generated objects to declare them as Object, rewrite the initial object creation lines from

Code:

Set MyObj = New ExtLib.NewObj

to

Code:

Set MyObj = CreateObject("ExtLib.NewObj")

& get rid of any user-friendly constants and replace them with the underlying numbers.

The following bit of code demonstrates two subroutines which demonstrate Early and Late binding to open Outlook from Excel and create a new message. I've written this on the fly and not debugged so it comes with a health warning but it should be close enough.

Code:

Sub EarlyBinding(msgTo As String, msgSubj As String, msgBody As String)

Dim objOutlook As Outlook.Application
Dim objExplorer As Outlook.Explorer
Dim objNs As Outlook.Namespace
Dim objMsg As Outlook.MailItem

    Set objOutlook = New Outlook.Application

    Set objExplorer = OlApp.ActiveExplorer
    If TypeName(objExplorer) = "Nothing" Then
        Set objNs = OlApp.GetNamespace("MAPI")
        objNs.Logon
    End If

    Set objMsg = objOutlook.CreateItem(olMailItem)
    objMsg.to = msgTo
    objMsg.Subject = msgSubj

    If Len(msgBdy) > 0 Then
        If HTMLFmt = False Then
            objMsg.body = msgBdy
        Else
            objMsg.HTMLBody = msgBdy
        End If
    End If

End Sub

Sub LateBinding(msgTo As String, msgSubj As String, msgBody As String)

Dim objOutlook As Object
Dim objExplorer As Object
Dim objNs As Object
Dim objMsg As Object

    Set objOutlook = CreateObject("Outlook.application")

    Set objExplorer = OlApp.ActiveExplorer
    If TypeName(objExplorer) = "Nothing" Then
        Set objNs = OlApp.GetNamespace("MAPI")
        objNs.Logon
    End If

    Set objMsg = objOutlook.CreateItem(0) 'Const olMailItem = 0
    objMsg.to = msgTo
    objMsg.Subject = msgSubj

    If Len(msgBdy) > 0 Then
        If HTMLFmt = False Then
            objMsg.body = msgBdy
        Else
            objMsg.HTMLBody = msgBdy
        End If
    End If

End Sub

Hope this helps,
Maccas