تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تصدير االبيانات المحددة داخل listview الى برنامج الاكسل
#1
السلام عليكم ورحمة الله وبركاته,,,


اخوتي. عندي كود لتصدير قاعدة البيانات الى ملف اكسل
هذا الكود!
كود :
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
لكن اريده عندما اقوم بتحديدبعض البيانات داخل الجدول
ان يقوم بتصدير البيانات المحددة فقط وليش كل الجدول
مع العلم انني اعرف طريقة عمل تحديد والغاء التحديد
لكن احتاج الكود لتصدير المحدد فقط وشكرا لكم
الرد }}}
تم الشكر بواسطة: Amir_Alzubidy , Amir_Alzubidy
#2
و عليكم السلام و رحمة الله و بركاته
حياك الله اخي هاني
هل تريد ان انشيء لك مثالا ام لديك مشروع تفضل التعديل عليه .
الرد }}}
تم الشكر بواسطة: haniblack , Ahmed_Mansoor , awidan76
#3
(27-03-17, 02:15 PM)Amir_alzubidy كتب : و عليكم السلام و رحمة الله و بركاته
حياك الله اخي هاني
هل تريد ان انشيء لك مثالا ام لديك مشروع  تفضل التعديل  عليه .

تحياتي استاذ امير والله ليس عندي مثال انا اعمل على البرنامج  خاصتي لكن اذا كان لديك كود استطيع تطبيقه عندي او مثال بسيط جاهز ان امكن  انا فقط بحاجة الى تحديد البيانات ومن ثم اضغط على زر استراد الملف الى اكسل
يقوم الجدول باظهار البيانات المحددة فقط  ومن ثم يقوم بتصديرها الى اكسل
مثل عملية البحث التي علمتني ياها امس لكن اريدها ان تظهر البيانات المحددة بواسطة الاداة listview .
الرد }}}
تم الشكر بواسطة: Amir_Alzubidy
#4
السلام عليكم و رحمة الله و بركاته
اهلا بك اخي هاني
اتمنى ان يكون هذا هو المطلوب


.rar   ListView vb6 (2).rar (الحجم : 14.52 ك ب / التحميلات : 100)
الرد }}}
#5
(27-03-17, 07:45 PM)Amir_alzubidy كتب : السلام عليكم و رحمة الله و بركاته
اهلا بك اخي هاني
اتمنى ان يكون هذا هو المطلوب



بالضبط هذا مااريد  انها تعمل بشكل ممتاز شكرا لك استاذ امير على اهتمامك


لكن هناك مشكلة صغيرة بنفس الكود
عندما احدد الخانة الاولى والاخيرة مثلا يظهر جدول الاكسل الخانتين التانية والثالثة فارغة
يمكنك تجريبها المشكلة  ان جدولي عليه اكثر من 700 خانة او اسم

اذا حددت عشرة مثلاً شوف يظهر فراغات كثيرة بين البيانات وعليي حذفها
هل هناك طريقة تصحيح لهذه العملية ان امكن ولك جزيل الشكر Heart
الرد }}}
تم الشكر بواسطة: Amir_Alzubidy , Ahmed_Mansoor , awidan76
#6
اهلا بك اخي هاني
اهلاً و سهلاً بك
التعديل في المرفقات


.rar   ListView vb6 (3).rar (الحجم : 16.37 ك ب / التحميلات : 83)
الرد }}}
#7
(28-03-17, 12:38 PM)Amir_alzubidy كتب : اهلا بك اخي هاني
اهلاً و سهلاً بك
التعديل في المرفقات

الف الف الف شكر لك استاذ امير
بارك الله بك وبجهودك Heart Heart
واشكرك من قلبي
الرد }}}
تم الشكر بواسطة: sendbad100 , Amir_Alzubidy , Ahmed_Mansoor , awidan76



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم