Dim v_appexcel As New Microsoft.Office.Interop.Excel.Application
        With v_appexcel
            .Visible = False
            Try
                .Workbooks.Open(v_file)
            Catch ex As Exception
                MsgBox(Err.Number & vbCrLf & Err.Description)
                Exit Sub
            End Try
end with

mfG.
Stephan