فتح ملف أكسيل من خلال زر فى نموذج

اخي الفاضل

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

بإمكانك العمل مع هذا الكود البسيط والذي من خلاله تستطيع فتح اي ملف اكسيل . ما عليك إلا ان تقوم بوضع مسار الملف في الكود

Private Sub cmdOpenExcel_Click()
Dim xlApp As Excel.Application
Set xlApp = CreateObject("Excel.Application")

xlApp.Visible = True

xlApp.Workbooks.Open "C:\MyFolder\book1.xls", True, False

Set xlApp = Nothing
End Sub

بالتوفيق

مشكورة أختنا الكريمة زهرة

لكن الكود الموضوع من قبل حضرتك هو لفتح ملف معين

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

الكود الى أنا ارفقتة بيفتح ملف الأكسيل حسب المسار المدخل فى الحقل pass

كود حضرتك بيفتح ملف موضوع بمسار معين هذا من خلال قرائتى للكود

عند التنفيذ لم يفتح الملف أستخدمتة كما وضعتية حضرتك بعد وضع ملف أكسيل فى المسسار المرفق فى الكود أيضا لم يفتح

رجأء تعديل الكود ليفتح من حقل موضوع بة مسار الملف وكذالك مراجعة الكود عامة لانة لم يعمل معى

وشكرا

اخي الفاضل

تم تعديل الكود بناء على طلبك

Private Sub cmdOpen_Click()
Dim strExl As String
strExl = Me.pass
Dim xlApp As Excel.Application
Set xlApp = CreateObject("Excel.Application")

xlApp.Visible = True

xlApp.Workbooks.Open strExl, True, False

Set xlApp = Nothing
End Sub

تحتاج الى تفعيل مرجع مكتبة الأكسيل لديك في برنامج الأكسيس بهذه الطريقه

1. افتح صفحة الكود في الأكسيس VBE

2. من شريط القوائم اختر Tools ثم اختر منها References

3. ابحث عن المكتبة الخاصة بالأكسيل وضع عليها علامة صح

4. اغلق صفحة الأكواد البرمجية واغلق النموذج واعد فتحه من جديد

5. ادخل مسار ملف الإكسيل في الحقل pass ثم اضغط زر الأمر وسيتم فتح ملف الأكسيل مباشرة ولن يأخذ سوى ثواني

بالتوفيق

سلمت يداكى أختنا الفاضلة

الله يور عليكى مشكورة شكرا جزيلا وليجعلة الله فى ميزان حسناتك أمين يارب العالمين

تم عمل المطلوب وشكرا مرة اخرى

zahrah كتب:

اخي الفاضل

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

بإمكانك العمل مع هذا الكود البسيط والذي من خلاله تستطيع فتح اي ملف اكسيل . ما عليك إلا ان تقوم بوضع مسار الملف في الكود

 

Private Sub cmdOpenExcel_Click()
Dim xlApp As Excel.Application
Set xlApp = CreateObject("Excel.Application")

xlApp.Visible = True

xlApp.Workbooks.Open "C:\MyFolder\book1.xls", True, False

Set xlApp = Nothing
End Sub

بالتوفيق

 

اختي الفاضلة 

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

انا نسخت الكود وغيرت مسار الملف لكن ما يشتغل معي وكل شوية اشغل الكود ما يشتغل ويقول في الرسالة المستخدم - تعريف نوع غير معرف

Option Compare Database

بارك الله فيكم وزادكم من علمه ورحمته

نرجوا الحاق ملفات امثلة ولكم جزيل الشكر