Re: Error only without references

Tech Tip: Click here to run a free scan for Windows Errors and optimize PC performance

From: JJZ (jjzwaard_at_hotmail.com)
Date: 10/02/04 

Date: 2 Oct 2004 01:26:13 -0700

I created a program in VB6 that I have to send to customers. It runs
best without early bindings.

Kind regards,

JJ

<anonymous@discussions.microsoft.com> wrote in message news:<21bc01c4a6f0$0dcd0b80$a601280a@phx.gbl>...
> hi,
> am i missing something? why would you want the excel
> library turned off?
> >-----Original Message-----
> >Hello,
> >
> >I'm using VB6 and I created a project (EXE-file) to test
> this code.
> >
> >With the project -> references -> excel library turned
> on, this code
> >runs just fine, but without it on, I get Error 1004.
> >
> >
> >
> >
> >Dim xlapp As Object
> >Private Sub Form_Load()
> >
> >If xlapp Is Nothing Then
> > Set xlapp = CreateObject("Excel.Application")
> > Else
> > Set xlapp = GetObject(, "Excel.Application")
> >End If
> >
> >xlapp.Visible = True
> >excelfile = "c:\filename.xls"
> >
> >xlapp.workbooks.Open FileName:=excelfile, ReadOnly:=True
> >If xlapp.ActiveWorkbook.ReadOnly = True Then
> >xlapp.ActiveWorkbook.ChangeFileAccess xlReadWrite
> >Else
> >xlapp.ActiveWorkbook.ChangeFileAccess xlReadOnly
> >End If
> >
> >
> >End Sub
> >
> >
> >does anyone know how to tackle this problem?
> >
> >Kind regards,
> >
> >JJ
> >.
> >