• 0
رحيّم

تصدير داتا قريد إلى الأكسل بدون مكتبات

سؤال

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

أساتذتي وإخواني

وجدت كوداً بسيطاً وسهلاً للتصدير من الداتا قريد إلى الإكسل ( ولا يحتاج مكتبات ولا ملفات ) فعدلت فيه قليلاً ليتميز صف العنوان عن غيره .. فقلت أضعه هنا ليستفيد منه من هو مثلي .. ويلاحظ عليه ويطوره أساتذتي هنا ...   ومما أريده في التطوير مثلاً : جعل خلفية خلايا العنوان مظللة باللون الرمادي ... 

وهذا هو الكود

        Try            Dim MsExcel = CreateObject("Excel.Application")            MsExcel.Workbooks.Add()            For i As Integer = 0 To DataGridView1.Columns.Count - 1                MsExcel.Cells(i + 1).Value = DataGridView1.Columns(i).HeaderText                MsExcel.cells(i + 1).Font.Bold = 1                MsExcel.cells(i + 1).Font.size = 12' هذا عملته وما اشتغل  وعملته : color فقط ما اشتغل                 'MsExcel.cells(i + 1).cells.backcolor = Color.Red            Next            For i As Integer = 0 To DataGridView1.Columns.Count - 1                For j As Integer = 0 To DataGridView1.Rows.Count - 1                    MsExcel.Cells(j + 2, i + 1).Value = DataGridView1.Rows(j).Cells(i).Value                Next            Next            MsExcel.Visible = True        Catch ex As Exception            MsgBox(ex.Message)        End Try

 

 

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

2 إجابة على هذا السؤال .

  • 0

جزاك الله خيراً

ولكني لم أفهم شيء حيث الكود بلغة السي والتنسيق ليس تنسيق أكسل .. كما أن ما يميز الكود الذي كتبته أنه يفتح الإكسل ثم تتخير أنت في حفظه أو عدمه وفي المكان الذي تريده .. والكود في الرابط يصنع الملف مباشرة وفي مسار محدد فقط .

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .