14-02-19, 07:15 PM
وعليكم السلام ورحمة الله وبركاته
جربت المثال يعمل بدون مشكلة ولا تظهر رسالة الخطا المذكورة
ولكن بيكون ملف الاكسل الناتج فارغ
وبعد البحث وجدت ان في سطر مفقود في الكود وهو التالي
كود :
For i As Integer = 0 To grd.RowCount - 2
For j As Integer = 0 To grd.ColumnCount - 1
Next
Nextالمفروض يكون مضاف كالتالي
كود :
For i As Integer = 0 To grd.RowCount - 2
For j As Integer = 0 To grd.ColumnCount - 1
exlworkSheet.Cells(i + 2, j + 1) = grd.Rows(i).Cells(j).Value
Next
Nextوبعد التجربة تم انشاء الملف بنجاح وتصدير البيانات فيه بنجاح
مرفق المثال بعد إضافة السطر الناقص + الملف الناتج
* ملحوظة أستخدم عندي أوفيس 2010 فيجوال ستوديو 2012
تم معرفة الخطأ عن طريق مقارنة الكود بالكود المذكور في الموضوع تصدير البيانات إلى إكسل
تمنياتي لك بالتوفيق والنجاح
لا إله إلا الله وحده لا شريك له له الملك وله الحمد وهو على كل شئ قدير
سبحان الله وبحمده سبحان الله العظيم
سبحان الله والحمد لله ولا إله إلا الله والله أكبر ولا حول ولا قوة إلا بالله العلى العظيم
رب أغفر لي
