+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+--- الموضوع : تصدير االبيانات المحددة داخل listview الى برنامج الاكسل (/showthread.php?tid=19806)
تصدير االبيانات المحددة داخل listview الى برنامج الاكسل - haniblack - 27-03-17
السلام عليكم ورحمة الله وبركاته,,,
اخوتي. عندي كود لتصدير قاعدة البيانات الى ملف اكسل
هذا الكود!
كود :
Dim xl As excel.Application
Dim fldCount As Integer
Dim recCount As Long
Dim iCol As Integer
Dim iRow As Integer
Set xl = New excel.Application
With xl
.Workbooks.Add
.Worksheets(1).Name = "Export Daily"
' Copy field names to the first row of the worksheet
fldCount = Adodc1.Recordset.Fields.count
For iCol = 1 To fldCount
xl.Cells(1, iCol).value = Adodc1.Recordset.Fields(iCol - 1).Name
Next
Call .ActiveSheet.Range("A2").CopyFromRecordset(Adodc1.Recordset)
.Visible = True
Timer1.Enabled = False
Frame1.Visible = False
End With
Elseان يقوم بتصدير البيانات المحددة فقط وليش كل الجدول
مع العلم انني اعرف طريقة عمل تحديد والغاء التحديد
لكن احتاج الكود لتصدير المحدد فقط وشكرا لكم
RE: تصدير االبيانات المحددة داخل listview الى برنامج الاكسل - haniblack - 27-03-17
(27-03-17, 02:15 PM)Amir_alzubidy كتب : و عليكم السلام و رحمة الله و بركاته
حياك الله اخي هاني
هل تريد ان انشيء لك مثالا ام لديك مشروع تفضل التعديل عليه .
تحياتي استاذ امير والله ليس عندي مثال انا اعمل على البرنامج خاصتي لكن اذا كان لديك كود استطيع تطبيقه عندي او مثال بسيط جاهز ان امكن انا فقط بحاجة الى تحديد البيانات ومن ثم اضغط على زر استراد الملف الى اكسل
يقوم الجدول باظهار البيانات المحددة فقط ومن ثم يقوم بتصديرها الى اكسل
مثل عملية البحث التي علمتني ياها امس لكن اريدها ان تظهر البيانات المحددة بواسطة الاداة listview .
RE: تصدير االبيانات المحددة داخل listview الى برنامج الاكسل - haniblack - 28-03-17
(27-03-17, 07:45 PM)Amir_alzubidy كتب : السلام عليكم و رحمة الله و بركاته
اهلا بك اخي هاني
اتمنى ان يكون هذا هو المطلوب
بالضبط هذا مااريد انها تعمل بشكل ممتاز شكرا لك استاذ امير على اهتمامك
لكن هناك مشكلة صغيرة بنفس الكود
عندما احدد الخانة الاولى والاخيرة مثلا يظهر جدول الاكسل الخانتين التانية والثالثة فارغة
يمكنك تجريبها المشكلة ان جدولي عليه اكثر من 700 خانة او اسم
اذا حددت عشرة مثلاً شوف يظهر فراغات كثيرة بين البيانات وعليي حذفها
هل هناك طريقة تصحيح لهذه العملية ان امكن ولك جزيل الشكر
RE: تصدير االبيانات المحددة داخل listview الى برنامج الاكسل - haniblack - 28-03-17
(28-03-17, 12:38 PM)Amir_alzubidy كتب : اهلا بك اخي هاني
اهلاً و سهلاً بك
التعديل في المرفقات
الف الف الف شكر لك استاذ امير
بارك الله بك وبجهودك
واشكرك من قلبي