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

[ahmed2ahmed 0]

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

 

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

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)        {        }

[محمد فؤاد تركي 732]

أتمني ان يفيدك هذا الكود في تصدير البيانات ولاتنسي تغير اسم 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 TryEnd Sub

 

[ahmed2ahmed 0]

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

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

[محمد فؤاد تركي 732]

استخدم هذا الموقع لتحويل الكود

http://www.developerfusion.com/tools/convert/vb-to-csharp/