open excel file usin VBA

[Hu]

quote:
--------------------------------------------------------------------------------
Originally posted by SIXTH SENSE:
hi!
This example will alow you to choose workbook and open it.
Sub OpenBook()
fname = Application.GetOpenFilename
If fname Then
Workbooks.Open fname
End If
End Sub


this returns run time error '13': Type mismatch after i have chosen the file

is there another way to do this?

respect
Hu

 

[Richie(UK)]

Hi Hu,

Try:

Sub OpenBook()
    Dim fname As Variant, wbkTest As Workbook
    
    fname = Application.GetOpenFilename
    If fname <> False Then
        Set wbkTest = Workbooks.Open(fname)
    Else
        Exit Sub
    End If
    
End Sub

HTH