السلام عليكم ورحمة الله وبركاته
اريد معرفة عدد صفحات ملف اكسل عن طريق عمل كود بالاكسس
ولكم جزيل الشكر
معرفة عدد صفحات ملف اكسل عن طريق الاكسس
للرفع
عزيزي
تفضل مع ملاحظة إضافة مرجع لمكتبة الاكسل من خلال محرر الاكواد >> أدوات >> مراجع
وحسب اصدار الاوفيس لديك
Microsoft Excel xx.x Object Library
وكذلك ملاحظة تغيير المسار الملف الصحيح
Private Sub أمر1_Click()
Dim xl As Excel.Application
Dim xlwb As Excel.Workbook
Set xl = New Excel.Application
Set xlwb = xl.Workbooks.Open("C:\Users\Mohammed\Desktop\mm.xlsx")
MsgBox (xlwb.Worksheets.Count)
xlwb.Close
xl.Quit
Set xlwb = Nothing
Set xl = Nothing
End Subبالتوفيق
خبير تحليل النظم
خبير Business Process ونظم ERPs
خبير قواعد بيانات وبرمجة اكسس
abc_2_me@hotmail.com
اشكرك اخي فعلا هو المطلوب
جزاك الله خيرا
الكود جميل اخي
جميل
وَمِنَ النَّاسِ مَن يُعْجِبُكَ قَوْلُهُ فِي الْحَيَاةِ الدُّنْيَا وَيُشْهِدُ الله عَلَى مَا فِي قَلْبِهِ وَهُوَ أَلَدُّ الْخِصَامِ