تقييم الموضوع :
  • 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 ك ب / التحميلات : 65)
لا اله الا الله الحنان المنان
الرد
#5
(27-03-17, 07:45 PM)Amir_alzubidy كتب : السلام عليكم و رحمة الله و بركاته
اهلا بك اخي هاني
اتمنى ان يكون هذا هو المطلوب



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


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

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


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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مساعدة بخصوص Listview haniblack 3 467 26-05-18, 02:56 PM
آخر رد: Abdellah
  [سؤال] كيف نقوم بالتعديل على خلية داخل msflexgrid ابن دوعن 3 504 07-05-18, 11:53 PM
آخر رد: safwan
  [مشروع] برنامج Backup and Restore SQL Server ahmedabdelaliem 7 1,952 23-04-18, 07:13 PM
آخر رد: abuhamza2013
  برنامج CodeSmart 2009 for VB6 لتطوير بيئة العمل Mohamad Anan 8 678 18-04-18, 09:22 PM
آخر رد: mhareek
  برنامج الحسابات التجارية sulimanalahdl 2 342 18-11-17, 01:08 AM
آخر رد: عبد العزيز البسكري
  [vb6.0] أريد أفضل برنامج SQL Server يعمل مع الفيجول بيسك وطريقة ربطه بالبرنامج VB.6 Rami_Mezo 4 305 06-11-17, 03:00 PM
آخر رد: Rami_Mezo
  كود قيمة ثابته داخل TEXTBOX مع كل ادخال للبينات دهشوش1 2 180 31-10-17, 07:07 PM
آخر رد: دهشوش1
  بحث بين رقمين داخل الجدول hannileo 4 251 31-10-17, 11:14 AM
آخر رد: hannileo
  [سؤال] كيف يمكن البحث بين تاريخين داخل datagrid1 محب الإسلام 5 268 28-10-17, 03:00 AM
آخر رد: Amir_Alzubidy
  [vb6.0] برنامج لقراءة الوزن من الشاحنات وادي العوضي 13 4,212 23-10-17, 03:33 PM
آخر رد: Hasanac

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


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