20-02-13, 10:37 AM
هذا الكود استخدمه لفتح ملف اكسل داخل البرنامج
FileName = "D:\tables\m/exe"
If Len(sFileName1) Then
WebBrowser2.Navigate(sFileName1)
End If
طبعا هذا الكود يقوم بفتح الملف عندما اختار من قائمة list box
السؤال:عندما اختار لاول مرة يفتح لي ملف الاكسل ولكن اذا قمت باختيار مرة اخرى فانه يعطيني ان ملف الاكسل مفتوح بنفس الاسم لا يمكن فتحه مرة اخرى (علما ان ملف الاكسل متشابه للاسم ولكن مختلف فيه اسم الشركة بمعنى اخر ان هنالك عدة شركات وكل شركة عندها نفس الاسم للملف) فهل من طريقة لاغلاق الملف من داخل البرنامج وذلك عندما اختار مرة اخرى من list box
FileName = "D:\tables\m/exe"
If Len(sFileName1) Then
WebBrowser2.Navigate(sFileName1)
End If
طبعا هذا الكود يقوم بفتح الملف عندما اختار من قائمة list box
السؤال:عندما اختار لاول مرة يفتح لي ملف الاكسل ولكن اذا قمت باختيار مرة اخرى فانه يعطيني ان ملف الاكسل مفتوح بنفس الاسم لا يمكن فتحه مرة اخرى (علما ان ملف الاكسل متشابه للاسم ولكن مختلف فيه اسم الشركة بمعنى اخر ان هنالك عدة شركات وكل شركة عندها نفس الاسم للملف) فهل من طريقة لاغلاق الملف من داخل البرنامج وذلك عندما اختار مرة اخرى من list box