المساعدة في تصدير بيانات الى جدول وورد
صفحة 1 من اصل 1 • شاطر
المساعدة في تصدير بيانات الى جدول وورد
السلام عليكم واتمنى ان يلقى سؤالي تجاوبا من اعضاء المنتدى:
مشكلتي اني اريد تصدير بيانات الى جدول مرسوم على الوورد (صورة 1) من خلال فيجوال بسيك وفي حالة تعدد البيانات يجب تكرار نفس الجدول المرسوم مسبقا في الجدول (صورة 2)
انطر الصورة المرفقة
وقد قمت باستعمال هدا الكود و لكن دون جدوى وشكرا على المساعدة
مشكلتي اني اريد تصدير بيانات الى جدول مرسوم على الوورد (صورة 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
hassan0379- .
- تاريخ التسجيل : 07/04/2018
المساهمات : 1
النقاط : 3
التقيم : 0
الدولة :
الجنس :
| |
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى
أمس في 12:41 am من طرف marketing118
» شركة تنظيف ستائر بالرياض
الأحد مارس 17, 2024 10:46 pm من طرف moslema_r
» خيام ملكيه من الداخل
الأحد مارس 17, 2024 8:13 pm من طرف marketing118
» شركة نقل عفش بالطائف
الأحد مارس 17, 2024 6:34 pm من طرف marketing118
» كهربائي منازل بالرياض
الأحد مارس 17, 2024 1:52 pm من طرف رانيا حماد
» افضل شركة نقل عفش بالرياض نقل باكستاني 40% خصم | موقع الانوار
الأحد مارس 17, 2024 1:25 pm من طرف رانيا حماد
» افضل معلم جبس بالرياض تركيب جبس بورد بالرياض 20% خصم اتصل الآن
الأحد مارس 17, 2024 1:09 pm من طرف رانيا حماد
» شراء اثاث مستعمل بالكويت بخصم 30%
الأحد مارس 17, 2024 12:54 pm من طرف رانيا حماد
» افضل فني كهربائي منازل بالرياض جودة 100% | اتصل الآن
الأحد مارس 17, 2024 12:36 pm من طرف رانيا حماد
» أفضل فني سباك بالرياض ممتاز بالرياض | اتصل الآن
الأحد مارس 17, 2024 12:25 pm من طرف رانيا حماد