منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - المساعدة في تصدير بيانات الى جدول وورد

السلام عليكم واتمنى ان يلقى سؤالي تجاوبا من اعضاء المنتدى:
مشكلتي اني اريد تصدير بيانات الى جدول مرسوم على الوورد (صورة 1) من خلال فيجوال بسيك وفي حالة تعدد البيانات يجب تكرار نفس الجدول المرسوم مسبقا (صورة 2)
انطر الصورة المرفقة
و قد استعملت هذا الكود دون جدوى وشكرا على مساعدتكم

كود :

Dim wd As Word.Application 

Set wd = CreateObject("word.application")

wd.Documents.Open App.Path & "\impressionword.docx"

wd.Visible = True

Dim rs As adodb.Recordset

Set rs = New adodb.Recordset

Set rs = cn.Execute(requete)

If rs.Fields(17) <> "" Then

Do

wd.Selection.Tables(1).Cell(1, 2).Range.Text = rs.Fields(17)

wd.Selection.Tables(1).Cell(2, 2).Range.Text = rs.Fields(18)

wd.Selection.Tables(1).Cell(3, 2).Range.Text = rs.Fields(30)

wd.Selection.Tables(1).Cell(3, 4).Range.Text = rs.Fields(24)

rs.MoveNext

Loop Until rs.EOF = True

Else

wd.Selection.TypeText Text:="Aucune emprunt à signaler !!"

wd.Selection.MoveRight Unit:=wdCell

end if

[attachment=17607]
[attachment=17658]

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

hassan0379