تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] [مساعدة] ... شباب كيف اربط المشروع ب ملف Excel لتصدير البيانات فيه..؟
#1
Information 
السلام عليكم و رحمة الله 

 كيف اربط المشروع ب ملف Excel لتصدير البيانات فيه ..؟

اريد ان يتم تصدير البيانات النصية الي ملف Excel حتي يتم فيه عرض نتائج كل مستخدم في sheet خاص به.


* كل ما اريده ربط البرنامج ب Excel 
* اضافة قسمه الي احدي خلايا ال Excel
* انشاء sheet جديد ...

شكرا لك علي قراءة مشكلتي وانتظر منك الافادة Smile
الرد
تم الشكر بواسطة:
#2
لو تقصد التصدير الي الاكسل قم بانشاء مديول جديد وضع به هذا الكود

كود :
Public Sub dgv_ExportDataToExcelFile(ByVal dgv As DataGridView)
       System.Threading.Thread.CurrentThread.CurrentCulture = System.Globalization.CultureInfo.CreateSpecificCulture("ar-SA")
       Dim SFD As New SaveFileDialog
       Dim exlapp As New Application
       Dim exlworkbook As Workbook
       Dim exlworksheet As Worksheet
       Dim misvalue As Object = System.Reflection.Missing.Value
       exlworkbook = exlapp.Workbooks.Add(misvalue)
       exlworksheet = exlworkbook.Sheets(1)
       exlworksheet.DisplayRightToLeft = True
       For colhead As Integer = 0 To dgv.ColumnCount - 1
           exlworksheet.Cells(1, colhead + 1) = dgv.Columns(colhead).HeaderText
       Next
       For i As Integer = 0 To dgv.RowCount - 1
           For j As Integer = 0 To dgv.ColumnCount - 1
               exlworksheet.Cells(i + 2, j + 1) = dgv.Rows(i).Cells(j).Value.ToString
           Next
       Next
       SFD.Filter = "Excel Files|*.xlsx|Excel 2003|*.xls"
       If SFD.ShowDialog = System.Windows.Forms.DialogResult.OK Then
           exlworksheet.SaveAs(SFD.FileName)
       End If
       exlworkbook.Close()
       exlapp.Quit()
       System.Runtime.InteropServices.Marshal.ReleaseComObject(exlapp)
       System.Runtime.InteropServices.Marshal.ReleaseComObject(exlworkbook)
       System.Runtime.InteropServices.Marshal.ReleaseComObject(exlworksheet)
       exlapp = Nothing : exlworkbook = Nothing : exlworksheet = Nothing
       If MessageBox.Show("هل تريد فتح الملف ؟", "فتح ملف الأكسل", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button1, MessageBoxOptions.RtlReading) = MsgBoxResult.Yes Then
           Process.Start(SFD.FileName)
       End If
   End Sub
ثم بعد ذلك تقوم باستدعائه في الفورم اللي بتريده عن طريق بتون
الرد
تم الشكر بواسطة: أبو عبدالله الحلواني


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] اريد مساعدة بخصوص جروب فيسبوك ميدو الفنان 0 70 12-06-21, 10:24 PM
آخر رد: ميدو الفنان
  [تم الحل] اضافة صورة لقاعدة البيانات اكسس anes 2 116 12-06-21, 02:16 AM
آخر رد: anes
  [VB.NET] مطلوب تعديل في قاعدة البيانات nrkarat 0 78 09-06-21, 01:02 AM
آخر رد: nrkarat
  ممكن مساعدة في فك تشفير الرابط crazykinko 0 103 07-06-21, 03:34 PM
آخر رد: crazykinko
  [سؤال] أرجو مساعدة من الاعضاء الكرام safsf19 1 136 07-06-21, 11:48 AM
آخر رد: alfaiz678
Photo [VB.NET] أرخو مساعدة من الاعضاء الكرام كود vb.net zrayka01 10 356 06-06-21, 10:20 PM
آخر رد: zrayka01
  أرخو مساعدة من الاعضاء الكرام كود vb.net zrayka01 1 123 06-06-21, 08:48 PM
آخر رد: Fareed
  [VB.NET] التعديل على كود لقرائة باقي المعلومات من قاعدة البيانات khairallah 2 746 05-06-21, 11:21 PM
آخر رد: samirmondy2@gmail.com
  [VB.NET] حفظ البيانات المستوردة من اكسل الى الداتا Munther 5 183 05-06-21, 06:00 AM
آخر رد: Fareed
  [VB.NET] جعل ال datagridview لا تقبل إلا إدخال نوع معين من البيانات mmaalmesry 2 187 29-05-21, 04:30 PM
آخر رد: mmaalmesry

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم