منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
مساعدة في تحويل الداتا قريد الى اكسل - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : مساعدة في تحويل الداتا قريد الى اكسل (/showthread.php?tid=12145)

مساعدة في تحويل الداتا قريد الى اكسل - s3eed - 22-04-15

ألسلام عليكم ورحمه الله وبركاته

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

هذا الكود وضيفته تحويل البيانات من داتا قريد الى الاكسل
لكن المشكلة :
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


RE: مساعدة في تحويل الداتا قريد الى اكسل - الدريساوي - 23-04-15

http://vb4arb.com/vb/Thread-%D8%AA%D8%B5%D8%AF%D9%8A%D8%B1%D8%A7%D8%B9%D9%85%D8%AF%D9%87-DataGridView-%D8%A7%D9%84%D9%89-%D8%A7%D9%84%D8%A7%D9%83%D8%B3%D9%8A%D9%84

اخي شاهد كود الاخ د. شريف

RE: مساعدة في تحويل الداتا قريد الى اكسل - s3eed - 23-04-15

ممتاز جدا وتم حلها لكن هل ممكن اضبط التنسيق للخلايا مطابق للبيانات بالداتا قريد