كيف يمكن تصدير البيانات واستيرادها من والى برنامج office وبالأخص برنامج word 2003 في لغة vb.net2008
كيف اقوم بتصدير البيانات أو استيرادها من datagridview الى word
السلام عليكم ورحمه الله وبركاته
اختي ارفقت لك مشروع لتصدير بيانات ال DataGridView الى برنامج الوورد
.:: Wish to become better and better ::.
اخوي لكن المشروع الموجود ليس مثل ماريد
انا ابي اطبع ملف وورد ثابت القليل من المتغيرات
تم تعديل هذه المشاركة بواسطة شموع نجد في 13 يونيو 2011 في 13:34
السلام عليكم ورحمه الله وبركاته
اختي قلت لك يمكنك الاستفاده منه!! المهم اذا واجهتي مشكلة سيتم الرد في الموضوع الاصلي
.:: Wish to become better and better ::.
السلام عليكم ورحمة الله
اخي العزيز vbhelper
عندما جربت ان انزل البرنامج الذي قد رفعته , نزل واشتغال بشكل جيد عندي ,
ولكن عندما اردت ان انفذ امر العرض على ملف وورد على برنامجي , اولا اردت اصدار مكتبة office من microsfot
ولكن تفاجئت انها ليست موجودة , اما في البرنامج الذي قد رفعته انت , فقد كانت موجودة , فهذا ما حيرني .
مع العلم اني استخدم ال vb2010
السلام عليكم ورحمه الله وبركاته
اخي تأكد من المرجع في مجلد ال bin
.:: Wish to become better and better ::.
اشكرك اخي العزيز , ولكن تمكنت حل المشكلة من خلال اضافة
Add Reference
حيث استعملت مشروعك لكي ارى مكان المكتبة بالزبط ..
بارك اللــه فيك اخي العزيز , فعلا اسم على مسمى , جعله الله لك في ميزان حسناتك
اشكرك اخي العزيز , ولكن تمكنت حل المشكلة من خلال اضافة
Add Reference
حيث استعملت مشروعك لكي ارى مكان المكتبة بالزبط ..
بارك اللــه فيك اخي العزيز , فعلا اسم على مسمى , جعله الله لك في ميزان حسناتك
السلام عليكم ورحمة اللـــه .
اخي العزيــز , لماذا عندما يقوم بالعرض لا يعرض اول صف في الدتا جريد .
هل بإمكانك اخي العزيز لو تقوم ببعض الشرح للكود الموجود , لاني واجهت بعض الصعوبة في فهمــة . وجزاك الله خيرا
السلام عليكم ورحمه الله وبركاته
اخي بالفعل يمكنك اضافة مرجع الوورد الموجود في المجلد المذكور سابقا, اما بالنسبه للكود شكرا على الملاحظه وهذا هو الكود بعد التعديل مع الشرح
Dim oWord As Word.Application
Dim oDoc As Word.Document
Dim oTable As Word.Table
'انشاء تطبيق وورد
oWord = CreateObject("Word.Application")
oWord.Visible = True
'انشاء مستند
oDoc = oWord.Documents.Add()
Dim r As Integer, c As Integer
'DataGridView انشاء جدول على حسب عدد الصفوف والاعمدة للأداة
oTable = oDoc.Tables.Add(oDoc.Bookmarks.Item("\endofdoc").Range, DataGridView1.RowCount + 1, DataGridView1.ColumnCount)
'عمل 6 فراغات بين كل فقرة في الجدول
oTable.Range.ParagraphFormat.SpaceAfter = 6
'دوران لإنشاء رأس الجدول
For c = 1 To DataGridView1.ColumnCount
oTable.Cell(1, c).Range.Text = DataGridView1.Columns(c - 1).HeaderText
Next
'DataGridView تعبئة الجدول من اداة ال
For r = 1 To DataGridView1.RowCount
For c = 1 To DataGridView1.ColumnCount
oTable.Cell(r + 1, c).Range.Text = DataGridView1.Rows(r - 1).Cells(c - 1).Value
Next
Next
'ضبط نمط الصف الاول للجدول بحيث يكون الخط غامق ومائل وتفعيل حدود الجدول
oTable.Rows.Item(1).Range.Font.Bold = True
oTable.Rows.Item(1).Range.Font.Italic = True
oTable.Borders.Enable = True
Me.Close()
.:: Wish to become better and better ::.
بارك اللــه فيك اخي العزيز على هذا الجهد الرائــع .
أمي قد دعت لــكـ .
ولكن لدي اخر استفسار .
في عملية انشاء الجدول في ملف الورد استخدمت في هذا السطر
اقتباسoTable = oDoc.Tables.Add(oDoc.Bookmarks.Item("\endofdoc").Range, Visitor2DataGridView.RowCount + 1, Visitor2DataGridView.ColumnCount)
(" endofdoc ")
هل هي ثابته او ماذا تعني ,
السلام عليكم ورحمه الله وبركاته
اخي ال endofdoc ماهي الا مؤشر يدلنا بنهاية المستند
.:: Wish to become better and better ::.