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