منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
عاوز كود سريع لتصدير البيانات ضخمه الى اكسيل ؟ - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم امثلة ومشاريع VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=188)
+--- الموضوع : عاوز كود سريع لتصدير البيانات ضخمه الى اكسيل ؟ (/showthread.php?tid=40731)



عاوز كود سريع لتصدير البيانات ضخمه الى اكسيل ؟ - grg_dd - 10-02-22

عاوز كود سريع لتصدير البيانات ضخمه الى اكسيل ؟


RE: عاوز كود سريع لتصدير البيانات ضخمه الى اكسيل ؟ - ابراهيم ايبو - 10-02-22

السلام عليكم ورحمة الله وبركاته
اخي الكريم
تفضل هذا الرابط وفيه شرح استيراد وتصدير من والى الاكسل
لأخينا الفاضل الاستاذ Khodor جزاه الله كل خير
https://www.youtube.com/watch?v=_OV1t1txsGs&t=5s


RE: عاوز كود سريع لتصدير البيانات ضخمه الى اكسيل ؟ - بيسك لكل العرب - 17-03-22

افضل واسرع طريقة استعمل النسخ واللصق


RE: عاوز كود سريع لتصدير البيانات ضخمه الى اكسيل ؟ - أبووسم - 28-03-22

إذا كانت قاعدة البيانات اكسس

افتح قاعدة البيانات و اختر بيانات خارجية ثم تصدير إلى جدول اكسل .


RE: عاوز كود سريع لتصدير البيانات ضخمه الى اكسيل ؟ - aYHAMMMS - 27-09-22

كود :
   Public Sub ExportToExcel(ByVal DGV As DataGridView, Optional OpenDialog As Boolean = False, Optional SameColumnsWidth As Boolean = True)
       Dim FlNm As String = ""
       Dim sv As New SaveFileDialog
       sv.FileName = "Excel.xls"
       sv.Filter = "|*.xls"
       If sv.ShowDialog <> DialogResult.OK Then Exit Sub
       FlNm = sv.FileName
       Dim fs As New StreamWriter(FlNm, False)
       With fs
           .WriteLine("<?xml version=""1.0""?>")
           .WriteLine("<?mso-application progid=""Excel.Sheet""?>")
           .WriteLine("<Workbook xmlns=""urn:schemas-microsoft-com:office:spreadsheet"">")
           .WriteLine("  <Styles>")
           .WriteLine("  <Style ss:ID=""hdr"">")
           .WriteLine("  <Alignment ss:Horizontal=""Center""/>")
           .WriteLine("  <Borders>")
           .WriteLine("    <Border ss:Position=""Left"" ss:LineStyle=""Continuous"" ss:Weight=""1""/>")
           .WriteLine("    <Border ss:Position=""Right"" ss:LineStyle=""Continuous"" ss:Weight=""1""/>")
           .WriteLine("    <Border ss:Position=""Top"" ss:LineStyle=""Continuous"" ss:Weight=""1""/>")
           .WriteLine("  </Borders>")
           .WriteLine("  <Font ss:FontName=""Calibri"" ss:Size=""11"" ss:Bold=""1""/>") 'SET FONT
           .WriteLine("  </Style>")
           .WriteLine("  <Style ss:ID=""ksg"">")
           .WriteLine("  <Alignment ss:Vertical=""Bottom""/>")
           .WriteLine("  <Borders/>")
           .WriteLine("  <Font ss:FontName=""Calibri""/>") 'SET FONT
           .WriteLine("  </Style>")
           .WriteLine("  <Style ss:ID=""isi"">")
           .WriteLine("  <Borders>")
           .WriteLine("    <Border ss:Position=""Bottom"" ss:LineStyle=""Continuous"" ss:Weight=""1""/>")
           .WriteLine("    <Border ss:Position=""Left"" ss:LineStyle=""Continuous"" ss:Weight=""1""/>")
           .WriteLine("    <Border ss:Position=""Right"" ss:LineStyle=""Continuous"" ss:Weight=""1""/>")
           .WriteLine("    <Border ss:Position=""Top"" ss:LineStyle=""Continuous"" ss:Weight=""1""/>")
           .WriteLine("  </Borders>")
           .WriteLine("  <Font ss:FontName=""Calibri"" ss:Size=""10""/>")
           .WriteLine("  </Style>")
           .WriteLine("  </Styles>")

           .WriteLine("  <Worksheet ss:Name=""sheet1"">")
           .WriteLine("  <Table>")
           If SameColumnsWidth Then
               For i = 0 To DGV.ColumnCount - 1
                   .WriteLine("  <Column ss:Width=""" & DGV.Columns(i).Width & """/>")
               Next
           End If
           .WriteLine("  <Row ss:StyleID=""ksg"">")
           For i As Integer = 0 To DGV.Columns.Count - 1
               Application.DoEvents()
               .WriteLine("  <Cell ss:StyleID=""hdr"">")
               .WriteLine("    <Data ss:Type=""String"">{0}</Data>", DGV.Columns.Item(i).HeaderText)
               .WriteLine("  </Cell>")
           Next
           .WriteLine("  </Row>")
           Dim DgvCountRow As Integer = 0
           If DGV.AllowUserToAddRows = True Then
               DgvCountRow = DGV.RowCount - 2
           Else
               DgvCountRow = DGV.RowCount - 1
           End If
           For intRow As Integer = 0 To DgvCountRow 'DGV.RowCount - 1
               Application.DoEvents()
               .WriteLine("  <Row ss:StyleID=""ksg"" ss:utoFitHeight =""0"">")
               For intCol As Integer = 0 To DGV.Columns.Count - 1
                   Application.DoEvents()
                   .WriteLine("  <Cell ss:StyleID=""isi"">")
                   .WriteLine("  <Data ss:Type=""String"">{0}</Data>", DGV.Item(intCol, intRow).Value.ToString)
                   .WriteLine("  </Cell>")
               Next
               .WriteLine("  </Row>")
           Next
           .WriteLine("  </Table>")
           .WriteLine("  </Worksheet>")
           .WriteLine("</Workbook>")
           .Close()
           If OpenDialog Then
               Dim msg1
               msg1 = MsgBox("Save complete .. Do you want open file ?", MsgBoxStyle.YesNo + MsgBoxStyle.Question, "Export")
               If msg1 = vbNo Then Exit Sub
               Process.Start(FlNm)
           End If
       End With
   End Sub