الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

مساعده فى تعديل كود تصدير الداتا جريد فيو الى الاكسل فى السى شارب

بدأه ahmed2ahmed في 3 أغسطس 2014 · 3 رد · 833 مشاهدة · في Microsoft Visual C#.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم ورحمه الله 

 

انا استخدم هذا الكود لتصدير بيانات الداتا جريد فيو الى ملف اكسل ولكن هناك مشكلتان ارجو ان اجد الحل لديكم

1- الكود اجبرنى ان انشأ ملف فى ال D اسمه  export.xls 

ارغب فى جعل المستخدم يفتح له مجال لحفظ الملف بالاسم الذى يختاره وفى المسار الذى يريده

 

2- البيانات التى تخرج من الكود الى الملف تخرج بدون رأس الداتا جريد اى اسماء الحقول فى الداتا جريد 

 

 

وفقكم الله واتمنى ان اجد لديكم الحل

الكود

 Excel.Application xlApp;
            Excel.Workbook xlWorkBook;
            Excel.Worksheet xlWorkSheet;
            object misValue = System.Reflection.Missing.Value;

            Int16 i, j;

            xlApp = new Excel.ApplicationClass();
            xlWorkBook = xlApp.Workbooks.Add(misValue);

            xlWorkSheet = (Excel.Worksheet)xlWorkBook.Worksheets.get_Item(1);

            for (i = 0; i <= dgv.RowCount - 2; i++)
            {
                for (j = 0; j <= dgv.ColumnCount - 1; j++)
                {
                    xlWorkSheet.Cells[i + 1, j + 1] = dgv[j, i].Value.ToString();
                }
            }

            xlWorkBook.SaveAs(@"d:\export.xls", Excel.XlFileFormat.xlWorkbookNormal, misValue, misValue, misValue, misValue, Excel.XlSaveAsAccessMode.xlExclusive, misValue, misValue, misValue, misValue, misValue);
            xlWorkBook.Close(true, misValue, misValue);
            xlApp.Quit();

            releaseObject(xlWorkSheet);
            releaseObject(xlWorkBook);
            releaseObject(xlApp);
        }
        private void releaseObject(object obj)
        {
            try
            {
                System.Runtime.InteropServices.Marshal.ReleaseComObject(obj);
                obj = null;
            }
            catch (Exception ex)
            {
                obj = null;
                MessageBox.Show("Exception Occured while releasing object " + ex.ToString());
            }
            finally
            {
                GC.Collect();
            }
        }

        private void searchsupplier_Load(object sender, EventArgs e)
        {

        }
#2

أتمني ان يفيدك هذا الكود في تصدير البيانات ولاتنسي تغير اسم DataGridview لتكون بنفس المسمي في مشروعك

 

Private Sub Export_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Export.Click
        If ((DgvMain.Columns.Count = 0) Or (DgvMain.Rows.Count = 0)) Then
            Exit Sub
        End If


        Dim rowsTotal, colsTotal As Short
        Dim I, j, iC As Short
        System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.WaitCursor
        Dim xlApp As New Excel.Application
        Try
            Dim excelBook As Microsoft.Office.Interop.Excel.Workbook = xlApp.Workbooks.Add
            Dim excelWorksheet As Microsoft.Office.Interop.Excel.Worksheet = CType(excelBook.Worksheets(1), Excel.Worksheet)
            xlApp.Visible = True
            rowsTotal = DgvMain.RowCount - 1
            colsTotal = DgvMain.Columns.Count - 1
            Dim currCol As Integer = 1
            With excelWorksheet
                .Cells.Select()
                .Cells.Delete()
                For iC = 0 To colsTotal


                    If DgvMain.Columns(iC).Visible = True Then
                        .Cells(1, currCol).Value = DgvMain.Columns(iC).HeaderText
                        currCol = currCol + 1
                    End If


                Next




                For I = 0 To rowsTotal
                    currCol = 1
                    For j = 0 To colsTotal
                        If DgvMain.Columns(j).Visible = True Then
                            .Cells(I + 2, currCol).value = DgvMain.Rows(I).Cells(j).FormattedValue
                            currCol = currCol + 1
                        End If
                    Next j
                Next I


                .Rows("1:1").Font.FontStyle = "Bold"
                .Rows("1:1").Font.Size = 10
                .Cells.Columns.AutoFit()
                .Cells.Select()
                .Cells.EntireColumn.AutoFit()
                .Cells(1, 1).Select()
            End With
        Catch ex As Exception
            MsgBox("Export Excel Error " & ex.Message)
        Finally
            System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.Default
            xlApp = Nothing
        End Try
End Sub
1

certifiedj.jpg

 

 

Image Hosted by ImageShack.us
#3

شكرا لك سيدى الفاضل لكن هذا الكود vb.net وانا استخدم c#

كيف يمكن التعديل او تحويله الى c#????

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…