تقييم الموضوع :
  • 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
شكرا لكم جميعا اعزائي كل مشاركات فائدتني ولله الحمد تم عمل الخطوه بنجاح ..

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



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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اريد تعديل الكود ليعمل على صف فى داتا جريد new_programer 2 60 منذ 4 ساعة مضت
آخر رد: new_programer
  كيف يمكن تصدير البيانات الى ملف محدد في الاكسل من الداتاقريدفيو جيولوجي مبتدئ 0 45 , 02:56 PM
آخر رد: جيولوجي مبتدئ
  [VB.NET] استفسار بخصوص vb.net yassoo1985 3 128 25-11-21, 03:20 AM
آخر رد: yassoo1985
  السلام عليكم عندي جدولين جدول به التاريخ والكود وجدول به بيانات بنفس الكود ahmedhhh2 6 182 25-11-21, 12:54 AM
آخر رد: ahmedhhh2
  [SQL] مشكلة بطئ سرعة البرنامج المتصل بقاعدة بيانات على النت mmaalmesry 4 201 24-11-21, 12:23 PM
آخر رد: mmaalmesry
  اين اجد قاعدة بيانات الافتراضية باسم Northwind التي في شروحات microsoft غدير الصليحي 2 95 24-11-21, 06:43 AM
آخر رد: غدير الصليحي
  [VB.NET] مشكلة عند تصدير بيانات الداتا جريد فيو الي ملف وورد moftah70 0 109 21-11-21, 01:44 AM
آخر رد: moftah70
  استفسار بخوص برنامج صانع الاكواد-Aljzazy Code Builder Verison 4 - 2019 momani33 0 103 17-11-21, 02:05 AM
آخر رد: momani33
  استفسار ياليت تساعدوني فيه kaled2025 0 81 16-11-21, 08:47 PM
آخر رد: kaled2025
  [VB.NET] اجراء العمليات الحسابية داخل خلية داتا غريد فيو العواد الصغير 3 1,447 14-11-21, 03:15 PM
آخر رد: walkady

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


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