[VB.NET] طلب كود تصدير بيانات داتا جريد فيو إلى وورد

كود :

Try

            Dim filename As String = "I:\sample.dotx"

            Dim myapp1 As New Application

            Dim mydoc1 As New Document

            mydoc1 = myapp1.Documents.Open(filename)

            mydoc1.Activate()

            Dim bk As Bookmarks = mydoc1.Bookmarks

            bk("text1").Range.Text = text1.Text

            bk("text2").Range.Text = text2.Text

            bk("text3").Range.Text = text3.Text

            bk("text4").Range.Text = text4.Text

            bk("text5").Range.Text = text5.Text

            Catch ex As Exception

            Exit Sub

            End Try

كود :

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