تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
فتح ملف اكسل داخل web browser
#1
اذا كان لدي هذه الواجهة

اريد بعدما اختار كافة الخيارات ان يفتح لي جدول الصف داخل ال web browser
علما ان الجدول لجميع المدارس له نفس الاسم marks_table ولكن كل جدول يوجد داخل مجلد خاص بالمدرسة

عملت الكود وزبط لكن وجدت مشكله انه لما افتح اول مرة بفتح لكن عندما اختار مدرسة اخرى وطالب اخر يكتب لي ان هذا الملف مفتوح مسبقا فكيف استطيع ان اغلفه

هذا الكود
sFileName = "D:\school_tables\" & school_name& "\marks_table.xls"

If Len(sFileName) Then
WebBrowser1.Navigate(sFileName)
End If
الرد }}}}
تم الشكر بواسطة:
#2
السلام عليكم ورحمة الله وبركاته

أخي الكريم
قم بإغلاق الصفحة الحالية باستخدام الكود التالي

كود :
WebBrowser1.Navigate("about:blank")

بعد ذلك قم بفتح ملف آخر

بالتوفيق
الرد }}}}
تم الشكر بواسطة:
#3
شكرا لك لكن نفس الخطا يخرج لي
الرد }}}}
تم الشكر بواسطة:
#4
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

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

بالتوفيق
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] كيفية نسخ النصوص من داخل ليست بوكس تنمية المعرفة 7 125 12-09-17, 11:15 PM
آخر رد: تنمية المعرفة
  [كود] استفسار داخل اليست بوكس عبدالرحمن المكاوي 3 83 11-09-17, 05:29 PM
آخر رد: سعود الشامان
Lightbulb [مثال] تحويل التاريخ الميلادي الى هجري داخل الداتا جريد من قاعدة بيانات اكسس محمود بكرى 20 481 30-08-17, 02:37 PM
آخر رد: محمود بكرى
  كود لتشغيل اى برنامج داخل نموذج VB.Net konter 3 128 28-08-17, 11:54 AM
آخر رد: konter
  [VB.NET] طلب كود معرفة موضع مؤشر الماوس داخل التيكست بوكس waelalmsry75 7 243 07-08-17, 02:46 AM
آخر رد: waelalmsry75
  استفسار عن كود تصدير بيانات داتا قريد الى اكسل وورود Marwan9990 4 148 23-07-17, 05:00 PM
آخر رد: Marwan9990
  [سؤال] طريقة الفرز داخل مربع النص abosaleh56 5 202 12-07-17, 10:23 AM
آخر رد: abosaleh56
  مشكلة في كود برنامج Web Browser khaled12345 4 207 28-06-17, 11:40 AM
آخر رد: khaled12345
  مساعده بالتعامل مع web browser qadar elzaman 6 264 25-06-17, 09:18 PM
آخر رد: qadar elzaman
Question [VB.NET] احتاج كود انتقال الى صفحة انترنت (داخل الفيجوال بيسك) The Light Fire 1 140 11-06-17, 12:56 AM
آخر رد: qadar elzaman

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم