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

اذهب الى الأسفل

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

مُساهمة من طرف hassan0379 في السبت أبريل 07, 2018 6:40 pm

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

وقد قمت باستعمال هدا الكود و لكن دون جدوى وشكرا على المساعدة
الكود:
private sub imprimer_click()

الكود:
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
 endsub

avatar
hassan0379
.
.

تاريخ التسجيل : 07/04/2018
المساهمات : 1
النقاط : 3
التقيم : 0
الدولة : المغرب
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

الرجوع الى أعلى الصفحة

ََ

مواضيع ذات صلة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى