[sooriaty03]

tecno2012 كتب :شكرا لك لكن نفس الخطا يخرج لي

السلام عليكم ورحمة الله وبركاته

أخي الكريم
يجب إعطاء مهلة للمتصفح حتى يقوم بإغلاق الملف المفتوح وبعد ذلك فتح الملف الجديد
وأفضل حدث يمكن استخدامه هو WebBrowser1_DocumentCompleted
لاحظ الكود التالي

كود :

Public Class Form1
    Dim CanOpen As Boolean = False
    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        If CanOpen = True Then
            WebBrowser1.Navigate("c:\book1.xls")
            CanOpen = False
        End If
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If IsNothing(WebBrowser1.Url) = False AndAlso WebBrowser1.Url.AbsolutePath.ToLower.EndsWith(".xls") Then
            CanOpen = True
            WebBrowser1.Navigate("about:blank")
        Else
            WebBrowser1.Navigate("c:\book1.xls")
        End If
    End Sub
End Class

انسخه كما هو وضعه ضمن الكود الخاص بمشروعك
وسيعمل بإذن الله

بالتوفيق