Workbook Open Run-time error '438'

[StevenD]

Hi,

I open a workbook with the following code.

Public Sub DKNYAnalyser()
Dim DKNYAnalyserIndex As String
On Error Resume Next
Application.DisplayAlerts = False
DKNYAnalyserIndex = "O:\mydocs\DaiKanYama Analyser.xls"
Workbooks.Open (DKNYAnalyserIndex)
End Sub

I get the Run-time error '438' and it highlights the workbooks.open part.

The file is saved as readonly, it opens the file and it asks to enter password or read only, when readonly is clicked it opens the workbook then brings up that error?

Any Ideas?

 

[Andrew Poulsom]

Try removing the parentheses:

Workbooks.Open DKNYAnalyserIndex

You only need them if what is returned is assigned to an object variable, eg:

Set wbNew = Workbooks.Open(DKNYAnalyserIndex)

 

[StevenD]

Thanks Andrew,

I tried that but unfortunately it still comes up with the same error.

 

[Andrew Poulsom]

Do you get the same error if you open the workbook manually?