• 0
ahmed2ahmed

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

سؤال

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

 

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

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

شارك هذا الرد


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

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

  • 0

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

 

1

شارك هذا الرد


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

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

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

0

شارك هذا الرد


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

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

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

0

شارك هذا الرد


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

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

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



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

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

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