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

ممكن مساعده في هذا الكود

هذا الكود وضيفته تحويل البيانات من داتا قريد الى الاكسل
لكن المشكلة :
1- ايد ان يطلع عناوين الهيدر الموجوده بالداتا قريد بالاكسل
2- ظهور البيانات بالاكسل الان تظهر الخلايا بحجم عادي اريدها تظهر بتعديل مماثل للداتا قريد
3- اريد ان اجعل الداتا تظهر بالاكسل right to lift

وشكرا
كود :
Dim ExcelApp As Object, ExcelBook As Object
        Dim ExcelSheet As Object
        Dim i As Integer
        Dim j As Integer

        'create object of excel
        ExcelApp = CreateObject("Excel.Application")
        ExcelBook = ExcelApp.WorkBooks.Add
        ExcelSheet = ExcelBook.WorkSheets(1)

        With ExcelSheet
            For i = 1 To Me.DataGridView1.RowCount
                .cells(i, 1) = Me.DataGridView1.Rows(i - 1).Cells("id").Value
                For j = 1 To DataGridView1.Columns.Count - 1
                    .cells(i, j + 1) = DataGridView1.Rows(i - 1).Cells(j).Value
                Next
            Next
        End With

        ExcelApp.Visible = True
        '
        ExcelSheet = Nothing
        ExcelBook = Nothing
        ExcelApp = Nothing
الرد
تم الشكر بواسطة:
#2
http://vb4arb.com/vb/Thread-%D8%AA%D8%B5...9%8A%D9%84

اخي شاهد كود الاخ د. شريف
الرد
تم الشكر بواسطة: Dr.Sherif Alazizi
#3
ممتاز جدا وتم حلها لكن هل ممكن اضبط التنسيق للخلايا مطابق للبيانات بالداتا قريد
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  محتاج مساعدة على التعديل على بوتن Mohamed Magdy 0 14 منذ 1 ساعه مضت
آخر رد: Mohamed Magdy
  [سؤال] طلب مساعدة بخصوص حفظ الداتا جريد فيو بها تشيكبوكس عاشق الرسول 10 245 18-08-19, 04:07 PM
آخر رد: ابراهيم ايبو
  [سؤال] كيفية تحويل ملف وورد خارجي الى ملف pdf الرائد 3 129 15-08-19, 11:05 PM
آخر رد: الرائد
  مساعدة بسيطة mohamedahmed1 0 102 15-08-19, 03:13 AM
آخر رد: mohamedahmed1
  [سؤال] مساعدة في تثبيت مكتبة Selenium mohamedahmed1 5 119 14-08-19, 06:24 PM
آخر رد: asemshahen5
  [VB.NET] اريد مساعدة في حل مشكله صغيرة e-coder 1 70 14-08-19, 12:55 AM
آخر رد: سعود
  اريد مساعدة في حساب نسبة خصم من حقل نصي dametucorazon 4 128 09-08-19, 07:54 PM
آخر رد: dametucorazon
  اريد مساعدة في تنفيذ هذا الامر mohamedahmed1 1 79 08-08-19, 10:03 PM
آخر رد: ابراهيم ايبو
  [سؤال] مساعدة بخصوص CHECKLISTBOX عاشق الرسول 6 176 07-08-19, 02:43 AM
آخر رد: ابراهيم ايبو
  [سؤال] احتاج مساعدة في تنفيذ هذا الامر mohamed11223 4 123 06-08-19, 09:30 PM
آخر رد: ابراهيم ايبو

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


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