فتح ملفات الاكسيل من خلال الاكسيس

هل الرسالة تحذير الامان ؟

اذا كان كذلك

في الاكسل انتقل لقائمة ( ادوات - ماكرو - خيارات الامان) واجعله منخفض

تمام مثل ما قال الاخ المتميز وان لم يكن ذلك فنرجو ان تقوم بارفاق المشروع علي المنتدي وسوف يتم عمل تصليح للاخطاء ان شاء الله وشكرا

سيتم نقل الموضوع لمنتدى الاكسيس

اختي الفاضلة

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

تستطيعين فتح اي ملف اكسيل عن طريق برنامج الاكسيس بواسطة الكود عن طريق ضغط زر امر وبدون ظهور اي رسالة تنبيه واليك الطريقه

1. نقوم بمعرفة مسار ملف الاكسيل بطريقة صحيحة فمثلا يمكن ان يكون ملف الاكسيل المطلوب فتحه هو C:\MyDIR\Number.xls

2. الان نقوم بإنشاء زر امر في النموذج وليكن مثلا OpenExcel ( سيكون هذا لفتح ورقة البيانات الاولى )

3. نضع تحت زر الامر في حدث عند النقر هذا الكود

Private Sub OpenExcel_Click()
Dim xlx As Object, xlw As Object, xls As Object, xlc As Object
On Error Resume Next
Set xlx = GetObject(, "Excel.Application")
If Err.Number <> 0 Then Set xlx = CreateObject("Excel.Application")
xlx.Visible = True
Set xlw = xlx.workbooks.Open("C:\MyDIR\Number.xls")
Set xls = xlw.Worksheets("WorksheetName")
Set xlc = Nothing
Set xls = Nothing
xlw.Save
Set xlw = Nothing
Set xlx = Nothing
End Sub

نقوم بتكرار هذا الامر على عدد ملفات الاكسيل المطلوب فتحها ليكون كل ملف له زر امر خاص مثلا لفتح الملف الثاني نضع زر امر OpenExcel2 ونضع تحت زر الامر الكود السابق مع تغيير مسمى الملف فقد يكون اسم الملف الثاني Name.xls وهكذا بقية الملفات الاربع .

عملت قاعدة بيانات معها ملفين اكسيل وموجوده في مجلد MyDIR وهذا المجلد يوضع مباشرة على محرك الاقراص C بهذا الشكل C:\MyDIR

MyDIR.rar

اختك

زهره

ألف شكر للجميع على التجاوب سوف أبدأ بتجريب الحلول

والعودة لكم إن شاء الله بالرد المناسب مع الملف المرفق