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



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


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

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


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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  برنامج CodeSmart 2009 for VB6 لتطوير بيئة العمل Mohamad Anan 8 522 18-04-18, 09:22 PM
آخر رد: mhareek
  برنامج الحسابات التجارية sulimanalahdl 2 258 18-11-17, 01:08 AM
آخر رد: عبد العزيز البسكري
  [vb6.0] أريد أفضل برنامج SQL Server يعمل مع الفيجول بيسك وطريقة ربطه بالبرنامج VB.6 Rami_Mezo 4 215 06-11-17, 03:00 PM
آخر رد: Rami_Mezo
  كود قيمة ثابته داخل TEXTBOX مع كل ادخال للبينات دهشوش1 2 138 31-10-17, 07:07 PM
آخر رد: دهشوش1
  بحث بين رقمين داخل الجدول hannileo 4 187 31-10-17, 11:14 AM
آخر رد: hannileo
  [سؤال] كيف يمكن البحث بين تاريخين داخل datagrid1 محب الإسلام 5 212 28-10-17, 03:00 AM
آخر رد: Amir_alzubidy
  [vb6.0] برنامج لقراءة الوزن من الشاحنات وادي العوضي 13 3,961 23-10-17, 03:33 PM
آخر رد: Hasanac
  برنامج API-Guide v3.7 لشرح استخدام دوال API. Mohamad Anan 3 189 21-10-17, 08:55 AM
آخر رد: Ahmed_Mansoor
  اريد اعمل الفليكس قريد مثل هذا المثال على الاكسل hamedi2727 0 167 17-08-17, 10:18 PM
آخر رد: hamedi2727
  طلب مثال لكيفية تصميم برنامج تجريبي لفترة معينة مصمم هاوي 5 314 09-08-17, 07:49 AM
آخر رد: مصمم هاوي

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


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