[الحاكم]

(27-08-17, 11:58 PM)waelalmsry75 كتب : السلام عليكم
الإخوة الكرام
هل الكود المطلوب غير ممكن  
لو كان غير ممكن فياريت حد يرد ويعرفني

ولو كان ممكن فياريت برده حد يعرفني انه ممكن وليس مستحيل

وجزى الله خيرا من اهتم بهذا الأمر

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

كود :

Private Sub testisstableword()
       Try
           Dim objWord As Application
           Dim objDoc As Document
           Dim objTable As Table
           objWord = CreateObject("Word.Application")
           objWord.Visible = True
           objDoc = objWord.Documents.Add
           Dim _RowCount As Integer = DataGridView1.RowCount - 1 ' تعريف صفوف الجدول
           Dim _ColCount As Integer = DataGridView1.ColumnCount - 1 ' تعريف اعمدة الجدول
           Dim r As Integer, c As Integer

           objTable = objDoc.Tables.Add(objDoc.Bookmarks.Item("\endofdoc").Range, _RowCount + 1, _ColCount + 1)
           objTable.Range.ParagraphFormat.SpaceAfter = 6
           For r = 0 To _RowCount
               For c = 0 To _ColCount
                   objTable.Cell(r + 1, c + 1).Range.Text = DataGridView1.Rows(r).Cells(c).Value.ToString()
               Next
           Next
           objTable.Rows.Item(1).Range.Font.Bold = True
           objTable.Rows.Item(1).Range.Font.Italic = True

           objTable.Borders.OutsideColor = WdColor.wdColorBlack
           objTable.Borders.OutsideLineStyle = WdLineStyle.wdLineStyleSingle
           objTable.Borders.InsideColor = WdColor.wdColorBlack
           objTable.Borders.InsideLineStyle = WdLineStyle.wdLineStyleSingle
           ' objTable.Borders.Shadow = True
           '  Me.Close()

           ' objDoc.SaveAs2("d:/tee.docx")
           '   SFD.Filter = "ملفات ورد|*.docx"
           ' If SFD.ShowDialog = System.Windows.Forms.DialogResult.OK Then
           objDoc.Save()
           '  End If
           objDoc.Close()
           objWord.Quit()

           System.Runtime.InteropServices.Marshal.ReleaseComObject(objWord)
           System.Runtime.InteropServices.Marshal.ReleaseComObject(objDoc)

           objDoc = Nothing
           objWord = Nothing
           GC.Collect()
           GC.WaitForFullGCComplete()

       Catch ex As Exception
           MsgBox(ex.Message)
       End Try
   End Sub