تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
استفسار عن كود تصدير بيانات داتا قريد الى اكسل وورود
#1
مسااءكم دهن العود ي اخوان ..

استفسار ي اعزائي هل يوجد كود ل تصدير بيانات داتا قريد الئ ملف اكسل او ورود ?
اذا فيه ياليت لي يعرفه يفيدني ابه شاكر للجميع


مودتي
الرد }}}
تم الشكر بواسطة:
#2
اهلا بك اخي مروان
اتمنى الاستفادة من هذه المشاركة
http://vb4arb.com/vb/showthread.php?tid=...7#pid61127
الرد }}}
تم الشكر بواسطة: Marwan9990 , Marwan9990
#3
PHP كود :
Imports System.IO 
PHP كود :
Public Sub ExportToExcel(ByVal DGV As DataGridViewOptional OpenDialog As Boolean FalseOptional 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(FlNmFalse)
        
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 0 To DGV.ColumnCount 1
                    
.WriteLine("  <Column ss:Width=""" DGV.Columns(i).Width """/>")
                
Next
            End 
If
            .
WriteLine("  <Row ss:StyleID=""ksg"">")
            For 
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>")
            For 
intRow As Integer 0 To 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(intColintRow).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 
الرد }}}
تم الشكر بواسطة: Amir_Alzubidy , Amir_Alzubidy , Marwan9990 , Marwan9990
#4
لي ملاحظه هنا بخصوص تصدير بيانات الداتا قريد فيو إلى اكسل او وورد

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

الحل الافضل من وجهة نظري تعمل تقرير ومن التقرير تقوم بتصدير البيانات إلى اكسل او وورد او بي دي اف

التقارير التي تدعم التصدير منها تقارير مايكروسوفت (Report viewer .Rdlc) و تقارير الكريستال ريبورت .
الرد }}}
تم الشكر بواسطة: Amir_Alzubidy , Amir_Alzubidy , Marwan9990 , Marwan9990 , Moneam
#5
شكرا لكم جميعا اعزائي كل مشاركات فائدتني ولله الحمد تم عمل الخطوه بنجاح ..

بخصوص مشكلة فرق الاصدار اشكرك على التنبيه عزيزي حريف برمجة ..



رزقكم ربي جنات النعيم ..
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] استفسار toe 2 60 26-03-24, 08:13 PM
آخر رد: mrfenix93
  هل من الممكن العمل على قاعدة بيانات اكسل على الفيجوال بيسك خالد كامل1 4 83 24-03-24, 02:00 AM
آخر رد: خالد كامل1
  [سؤال] أتمنى اجابة وافية:عمل برنامج بقاعدة بيانات SQL دون حاجة تثبيت SQLSERVER dr.programming 6 601 19-03-24, 08:56 AM
آخر رد: سلامه محمد11
  استعلام select عن مجموعة بيانات Adel27213 1 172 15-03-24, 01:11 AM
آخر رد: justforit
  مشكلة فى جمع عمود فى داتا جريد فيو احمد خطاب 3 152 06-03-24, 07:49 PM
آخر رد: احمد خطاب
  تعديل بيانات عمود DataGridView دفعة واحدة مصمم هاوي 2 164 05-03-24, 08:27 PM
آخر رد: مصمم هاوي
  [VB.NET] تحديث بيانات فى كلاس من جدول سيكوال asdfar1977 6 184 26-02-24, 01:07 AM
آخر رد: asdfar1977
  كيفية جمع أرقام عمود فى الداتا جريد فيو بناءاً على بيانات معينة heem1986 5 225 25-02-24, 11:26 PM
آخر رد: heem1986
  [C#.NET] طباعة بيانات داتا جرد فيو h2551996 0 84 25-02-24, 02:31 PM
آخر رد: h2551996
  [VB.NET] معرفة بيانات الجهاز محمد بوقزاحة 1 312 21-02-24, 11:44 PM
آخر رد: AHMED213

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


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