السلام عليكم
الإخوة الكرام
الكود التالي يقوم بتصدير صف واحد من الداتا جريد في ملف وورد عن طريق البوك مارك
وأريد تصدير كل صفوف الداتا جريد
فأرجو التعديل على الكود بما يلزم
وجزاكم الله خيرا
كود :
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
(25-08-17, 03:21 AM)waelalmsry75 كتب : [ -> ] (24-08-17, 08:04 AM)waelalmsry75 كتب : [ -> ]السلام عليكم
الإخوة الكرام
الكود التالي يقوم بتصدير صف واحد من الداتا جريد في ملف وورد عن طريق البوك مارك
وأريد تصدير كل صفوف الداتا جريد
فأرجو التعديل على الكود بما يلزم
وجزاكم الله خيرا
كود :
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
تذكير للإخوة الكرام
الإخوة الكرام الخبراء.. أين هم؟
أتصور أن هذا الكود ليس صعبا بالنسبة لكم
أسأل الله أن يبارك فيكم ويوفقكم لما يحب ويرضى
السلام عليكم
الإخوة الكرام
هل الكود المطلوب غير ممكن
لو كان غير ممكن فياريت حد يرد ويعرفني
ولو كان ممكن فياريت برده حد يعرفني انه ممكن وليس مستحيل
وجزى الله خيرا من اهتم بهذا الأمر
(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
وعليكم السلام
تايع هذا الموضوع قد يفيدك
بكل بساطه اعمل تقرير reportviewer وحتلاقي رمز تصدير لوورد واكسيل و بي دي اف
