Error only without references

  • Thread starter Thread starter JJZ
  • Start date Start date
J

JJZ

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
 
I created a program in VB6 that I have to send to customers. It runs
best without early bindings.

Kind regards,

JJ
 
I heart that it's illegal to send libraries with setup files, that's
why I have to use late bindings
 
Back
Top